Loncat ke daftar isi utama

Bagaimana cara mengatur kata sandi untuk melindungi lembar tersembunyi di Excel?

Jika Anda memiliki buku kerja yang berisi beberapa lembar kerja tersembunyi yang penting, dan tidak memperbolehkan orang lain untuk memperlihatkannya. Sekarang, Anda perlu mengatur kata sandi untuk melindungi lembar kerja yang tersembunyi sepenuhnya, ketika pengguna lain menampilkannya, mereka harus memasukkan kata sandi. Apakah Anda punya cara untuk menangani tugas ini dengan cepat dan mudah di Excel?

Atur kata sandi untuk melindungi lembar tersembunyi dengan fungsi VeryHidden

Atur kata sandi untuk melindungi lembar tersembunyi dengan kode VBA

Lindungi beberapa lembar kerja sekaligus dengan Kutools for Excel


Atur kata sandi untuk melindungi lembar tersembunyi dengan fungsi VeryHidden

Biasanya, Anda dapat menggunakan fungsi VeryHidden untuk menyembunyikan lembar kerja terlebih dahulu, kemudian mengatur kata sandi untuk mereka, lakukan langkah-langkah berikut:

1. Buka buku kerja Anda, dan tahan Alt + F11kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. di Jendela Microsoft Visual Basic for Applicationsklik View > Penjelajah Proyek dan Jendela Properti to tampilkan panel mereka.

doc-melindungi-lembar-tersembunyi-01

3. Dan kemudian di Proyek-VBAProject panel, pilih lembar kerja yang ingin Anda sembunyikan, dan di Properties panel, klik daftar drop-down dari Terlihat bagian untuk memilih xlLembarSangatTersembunyi opsi, lihat tangkapan layar:

doc-melindungi-lembar-tersembunyi-02

4. Setelah membuat lembar kerja sangat tersembunyi, Anda dapat mengatur kata sandi untuk melindunginya. Dalam Jendela Microsoft Visual Basic for Applicationsklik Menyisipkan > Modul untuk membuka modul kosong, lalu klik Tools > Properti VBAProject, lihat tangkapan layar:

doc-melindungi-lembar-tersembunyi-03

5. Kemudian di pop out Properti VBAProject-Project kotak dialog, klik Proteksi tab, lalu periksa Kunci proyek untuk dilihat kotak, akhirnya, masukkan dan konfirmasi kata sandi di Kata sandi untuk melihat properti proyek bagian, lihat tangkapan layar:

doc-melindungi-lembar-tersembunyi-04

6. Lalu klik OK tombol untuk keluar dari dialog ini, dan tutup Jendela Microsoft Visual Basic for Applications.

7. Simpan buku kerja sebagai Buku Kerja Excel dengan Makro Aktif format dan tutup untuk membuat perlindungan kata sandi berlaku.

doc-melindungi-lembar-tersembunyi-05

8. Lain kali, saat Anda membuka buku kerja ini, dan ingin membuat lembar yang sangat tersembunyi terlihat, Anda diminta untuk memasukkan kata sandi. Lihat tangkapan layar:

doc-melindungi-lembar-tersembunyi-06


Demo: Atur kata sandi untuk melindungi lembar tersembunyi


Atur kata sandi untuk melindungi lembar tersembunyi dengan kode VBA

Untuk mengatur kata sandi untuk melindungi lembar tersembunyi, saya juga dapat berbicara tentang kode VBA untuk Anda.

1. Sembunyikan satu lembar kerja yang ingin Anda proteksi.

2. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

3. Lalu pilih Buku Kerja Ini dari kiri Penjelajah Proyek, klik dua kali untuk membuka file Modul, lalu salin dan tempel kode VBA berikut ke dalam modul kosong:

Kode VBA: Atur kata sandi untuk melindungi lembar 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-melindungi-lembar-tersembunyi-07

Note: Pada kode di atas, Sheet1 dari xSheetName = "Sheet1" script adalah nama lembar kerja tersembunyi yang ingin Anda lindungi, dan 123456 dalam Jika respon = "123456" Lalu script adalah kata sandi yang Anda tetapkan untuk lembar tersembunyi. Anda dapat mengubahnya sesuai kebutuhan Anda.

4. Sekarang, ketika Anda ingin menampilkan lembar tersembunyi, sebuah kotak prompt akan muncul untuk memungkinkan Anda memasukkan kata sandi. Dan kotak prompt ini akan muncul setiap saat, ketika Anda mengklik untuk menampilkan lembar tersembunyi.

doc-melindungi-lembar-tersembunyi-08


Lindungi beberapa lembar kerja sekaligus dengan Kutools for Excel

Jika Anda ingin memproteksi beberapa lembar kerja yang dipilih atau semua lembar kerja dari sebuah buku kerja sekaligus, biasanya, Anda perlu memproteksi satu per satu secara manual di Excel. Tapi, jika sudah Kutools untuk Excel, Dengan yang Lindungi Lembar Kerja utilitas, Anda dapat melindungi mereka dengan satu klik.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Klik Kutools Ditambah > Lindungi Lembar Kerja, lihat tangkapan layar:

2. di Lindungi Lembar Kerja kotak dialog, semua lembar kerja dalam buku kerja dicantumkan ke dalam kotak daftar, pilih lembar kerja yang ingin Anda proteksi. Lihat tangkapan layar:

doc-melindungi-lembar-tersembunyi-010

3. Dan kemudian klik OK, di kotak dialog berikut, masukkan sandi Anda dan ketik ulang lagi, lalu klik OK, kotak prompt lain akan muncul untuk mengingatkan Anda berapa banyak lembar kerja yang telah dilindungi.

doc-melindungi-lembar-tersembunyi-011

4. Lalu klik OK untuk menutup dialog, dan semua lembar kerja di buku kerja telah diproteksi dengan kata sandi yang sama.

Catatan: Jika Anda ingin membuka proteksi semua lembar kerja sekaligus, Anda hanya perlu mengklik Kutools Ditambah > Buka Proteksi Lembar Kerja, dan ketikkan kata sandi Anda untuk membatalkan perlindungan.

 Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Artikel terkait:

Bagaimana cara melindungi beberapa lembar kerja sekaligus di Excel?

Bagaimana cara mengatur kata sandi untuk melindungi buku kerja?

Bagaimana cara melindungi / mengunci kode VBA di Excel?

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations