Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menetapkan kata laluan untuk melindungi helaian tersembunyi dalam Excel?

Sekiranya anda mempunyai buku kerja yang mengandungi beberapa lembaran kerja tersembunyi yang penting, dan jangan biarkan orang lain menyembunyikannya. Sekarang, anda perlu menetapkan kata laluan untuk melindungi helaian tersembunyi sepenuhnya, apabila pengguna lain menyembunyikannya, mereka mesti memasukkan kata laluan. Adakah anda mempunyai sebarang cara untuk menangani tugas ini dengan cepat dan mudah di Excel?

Tetapkan kata laluan untuk melindungi helaian tersembunyi dengan fungsi VeryHidden

Tetapkan kata laluan untuk melindungi lembaran tersembunyi dengan kod VBA

Lindungi pelbagai helaian serentak dengan Kutools untuk Excel


Melindungi berbilang atau semua lembaran kerja serentak:

dengan Kutools untuk Excel'S Lindungi Lembaran Kerja dan Lembaran kerja tidak melindungi, anda boleh melindungi atau melindungi semua lembaran kerja dalam buku kerja dengan kata laluan yang sama sekali gus.

doc-protect-multiple-sheets-9

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Tetapkan kata laluan untuk melindungi helaian tersembunyi dengan fungsi VeryHidden


Biasanya, anda boleh menggunakan fungsi SangatHidden untuk menyembunyikan lembaran kerja terlebih dahulu, dan kemudian menetapkan kata laluan untuk mereka, sila lakukan langkah-langkah berikut:

1. Buka buku kerja anda, dan tahan Alt + F11kunci untuk membuka Tetingkap Microsoft Visual Basic untuk Aplikasi.

2. Di dalam Tetingkap Microsoft Visual Basic untuk Aplikasi, Klik Lihat > Projek Explorer dan Properties Window to memaparkan tetingkap mereka.

doc-protect-hidden-sheets-01

3. Dan kemudian di Projek-VBAProject anak tetingkap, pilih lembaran kerja yang anda mahu sembunyikan, dan dalam Hartanah panel, klik senarai lungsur dari Yang boleh dilihat seksyen untuk dipilih xlSheetVeryHidden pilihan, lihat tangkapan skrin:

doc-protect-hidden-sheets-02

4. Selepas membuat lembaran kerja sangat, anda boleh menetapkan kata laluan untuk melindunginya. Di dalam Tetingkap Microsoft Visual Basic untuk Aplikasi, Klik Memasukkan > Modul untuk membuka modul kosong, dan kemudian klik Alatan > Properties VBAProject, lihat tangkapan skrin:

doc-protect-hidden-sheets-03

5. Kemudian dalam muncul Properties Project-VBAProject kotak dialog, klik perlindungan tab, dan kemudian semak Kunci projek untuk tontonan kotak, akhirnya, masukkan dan sahkan kata laluan dalam Kata laluan untuk melihat sifat projek seksyen, lihat tangkapan skrin:

doc-protect-hidden-sheets-04

6. Kemudian klik OK butang untuk keluar dari dialog ini, dan tutup Tetingkap Microsoft Visual Basic untuk Aplikasi.

7. Simpan buku kerja sebagai Buku Kerja Excel Excel-Enabled format dan tutupnya untuk menjadikan perlindungan kata laluan berkuatkuasa.

doc-protect-hidden-sheets-05

8. Kali seterusnya, apabila anda membuka buku kerja ini, dan ingin membuat lembaran yang sangat mudah dilihat, anda diminta memasukkan kata laluan. Lihat tangkapan skrin:

doc-protect-hidden-sheets-06


Demo: Tetapkan kata laluan untuk melindungi helaian tersembunyi


Tetapkan kata laluan untuk melindungi lembaran tersembunyi dengan kod VBA

Untuk menetapkan kata laluan untuk melindungi helaian yang tersembunyi, saya juga boleh bercakap tentang kod VBA untuk anda.

1. Sembunyikan satu lembaran kerja yang anda ingin melindungi.

2. Tahan ALT + F11 kunci untuk membuka Tetingkap Microsoft Visual Basic untuk Aplikasi.

3. Kemudian pilih ThisWorkbook dari kiri Projek Explorer, klik dua kali untuk membuka Modul, dan kemudian salin dan tampal mengikut kod VBA ke dalam Modul kosong:

Kod VBA: Tetapkan kata laluan untuk melindungi helaian tersembunyi

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-protect-hidden-sheets-07

Nota: Dalam kod di atas, Sheet1 daripada xSheetName = "Sheet1" skrip adalah nama lembaran kerja tersembunyi yang anda ingin melindungi, dan 123456 dalam Jika jawapan = "123456" Kemudian skrip adalah kata laluan yang anda tetapkan untuk helaian tersembunyi. Anda boleh mengubahnya mengikut keperluan anda.

4. Sekarang, apabila anda ingin menunjukkan helaian tersembunyi, kotak petikan akan muncul untuk membolehkan anda memasukkan kata laluan. Dan kotak prompt ini akan muncul setiap kali, apabila anda klik untuk menunjukkan lembaran tersembunyi.

doc-protect-hidden-sheets-08


Lindungi pelbagai helaian serentak dengan Kutools untuk Excel

Sekiranya anda ingin melindungi beberapa pilihan atau semua lembaran kerja buku kerja sekaligus, biasanya, anda perlu melindungi satu demi satu secara manual dalam Excel. Tetapi, jika anda ada Kutools untuk Excel, Dengan itu Lindungi Lembaran Kerja utiliti, anda boleh melindungi mereka dengan satu klik.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Excel, sila lakukan seperti berikut:

1. Klik Enterprise > Lindungi Lembaran Kerja, lihat tangkapan skrin:

doc-protect-hidden-sheets-09

2. Di dalam Lindungi Lembaran Kerja kotak dialog, semua lembaran kerja dalam buku kerja disenaraikan dalam kotak senarai, sila pilih lembaran kerja yang ingin anda lindungi. Lihat tangkapan skrin:

doc-protect-hidden-sheets-010

3. Kemudian klik OK, dalam kotak dialog berikut, sila masukkan kata laluan anda dan taipkan semula, kemudian klik OK, satu lagi kotak petanda akan muncul untuk mengingatkan anda berapa banyak lembaran kerja yang telah dilindungi.

doc-protect-hidden-sheets-011

4. Kemudian klik OK untuk menutup dialog, dan semua lembaran kerja di buku kerja telah dilindungi dengan kata laluan yang sama.

Catatan: Jika anda ingin melindungi semua lembaran kerja sekaligus, anda hanya perlu mengklik Enterprise > Lembaran kerja tidak melindungi, dan ketik kata laluan anda untuk membatalkan perlindungan.

doc-protect-hidden-sheets-012

Muat turun dan percubaan percuma Kutools untuk Excel Sekarang!


Related articles:

Bagaimana untuk melindungi banyak helaian kerja sekaligus dalam Excel?

Bagaimana untuk menetapkan kata laluan untuk melindungi buku kerja?

Bagaimana untuk melindungi / mengunci kod VBA dalam Excel?


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab.
    Try this to keep sheet hidden until correct password is entered:
    If response = "123456" Then
    Application.Sheets(xSheetName).Visible = True
    Application.Sheets(xSheetName).Select
    Else
    Application.Sheets(xSheetName).Visible = False[/b][/b]
    End If
    End If

    Application.EnableEvents = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Darren · 2 years ago
    I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible?

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'Update 20140925
    Dim xSheetName As String
    xSheetName = "sheet1"
    If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
    Application.Sheets(xSheetName).Visible = True
    Application.Sheets(xSheetName).Select
    End If
    End If
    Application.Sheets(xSheetName).Visible = True
    Application.EnableEvents = True
    End Sub
    • To post as a guest, your comment is unpublished.
      Severin · 1 years ago
      Found a solution yet?

      I am having the same problem
      • To post as a guest, your comment is unpublished.
        Richard · 1 years ago
        Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim aSheetName As String
        Dim bSheetName As String
        Dim cSheetName As String
        aSheetName = "sheet1"
        bSheetName = "sheet2"
        cSheetName = "sheet3"

        If Application.ActiveSheet.Name = aSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "123" Then
        Application.Sheets(aSheetName).Visible = True
        Application.Sheets(aSheetName).Select
        Else
        Application.Sheets(aSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = bSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "456" Then
        Application.Sheets(bSheetName).Visible = True
        Application.Sheets(bSheetName).Select
        Else
        Application.Sheets(bSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = cSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "789" Then
        Application.Sheets(cSheetName).Visible = True
        Application.Sheets(cSheetName).Select
        Else
        Application.Sheets(cSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        End Sub
        • To post as a guest, your comment is unpublished.
          Tomas · 11 months ago
          Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
      • To post as a guest, your comment is unpublished.
        Rexamillian · 1 years ago
        Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim xSheetName As String
        aSheetName = "sheet1"
        bSheetName = "sheet2"
        cSheetName = "sheet3"

        If Application.ActiveSheet.Name = aSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "1234" Then
        Application.Sheets(aSheetName).Visible = True
        Application.Sheets(aSheetName).Select
        Else
        Application.Sheets(aSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = bSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "2345" Then
        Application.Sheets(bSheetName).Visible = True
        Application.Sheets(bSheetName).Select
        Else
        Application.Sheets(bSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        If Application.ActiveSheet.Name = cSheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        xTitleId = "KutoolsforExcel"
        response = Application.InputBox("Password", xTitleId, "", Type:=2)
        If response = "3456" Then
        Application.Sheets(cSheetName).Visible = True
        Application.Sheets(cSheetName).Select
        Else
        Application.Sheets(cSheetName).Visible = False
        End If
        End If
        Application.EnableEvents = True

        End Sub