Note: The other languages of the website are Google-translated. Back to English

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 serta Jendela Properti to tampilkan panel mereka.

doc-protect-hidden-sheets-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-protect-hidden-sheets-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-protect-hidden-sheets-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-protect-hidden-sheets-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-protect-hidden-sheets-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-protect-hidden-sheets-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-protect-hidden-sheets-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-protect-hidden-sheets-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 Plus > 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-protect-hidden-sheets-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-protect-hidden-sheets-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 Plus > 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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
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!
officetab bawah
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki pertanyaan tentang kode lembar kerja yang dibatasi kata sandi Anda. Anda memposting kode berikut yang berfungsi .... apa yang saya cari adalah kode yang akan melakukan ini dengan beberapa lembar kerja dan beberapa kata sandi dalam buku kerja yang sama. Apakah ini mungkin? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Perbarui 20140925 Dim xSheetName As String xSheetName = "sheet1" Jika Application.ActiveSheet.Name = xSheetName Kemudian Application.EnableEvents = Aplikasi Salah.ActiveSheet.Visible = False xTitleId = Respon "KutoolsforExcel" = Aplikasi .InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Kemudian Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Pilih End If End If Application.Sheets( xSheetName).Visible = True Application.EnableEvents = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Sudah menemukan solusi?

Saya mengalami masalah yang sama
Komentar ini diminimalkan oleh moderator di situs
Sub Workbook_SheetActivate Pribadi (ByVal Sh Sebagai Objek)
Redupkan xSheetName Sebagai String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

Jika Application.ActiveSheet.Name = aSheetName Kemudian
Application.EnableEvents = Salah
Application.ActiveSheet.Visible = Salah
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Ketik:=2)
Jika respon = "1234" Lalu
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Pilih
Lain
Application.Sheets(aSheetName).Terlihat = Salah
End If
End If
Application.EnableEvents = Benar

Jika Application.ActiveSheet.Name = bSheetName Kemudian
Application.EnableEvents = Salah
Application.ActiveSheet.Visible = Salah
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Ketik:=2)
Jika respon = "2345" Lalu
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Pilih
Lain
Application.Sheets(bSheetName).Terlihat = Salah
End If
End If
Application.EnableEvents = Benar

Jika Application.ActiveSheet.Name = cSheetName Kemudian
Application.EnableEvents = Salah
Application.ActiveSheet.Visible = Salah
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Ketik:=2)
Jika respon = "3456" Lalu
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Pilih
Lain
Application.Sheets(cSheetName).Terlihat = Salah
End If
End If
Application.EnableEvents = Benar

End Sub
Komentar ini diminimalkan oleh moderator di situs
Sub Workbook_SheetActivate Pribadi (ByVal Sh Sebagai Objek)
Redupkan SheetName Sebagai String
Redupkan bSheetName Sebagai String
Redupkan cSheetName Sebagai String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

Jika Application.ActiveSheet.Name = aSheetName Kemudian
Application.EnableEvents = Salah
Application.ActiveSheet.Visible = Salah
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Ketik:=2)
Jika respon = "123" Lalu
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Pilih
Lain
Application.Sheets(aSheetName).Terlihat = Salah
End If
End If
Application.EnableEvents = Benar

Jika Application.ActiveSheet.Name = bSheetName Kemudian
Application.EnableEvents = Salah
Application.ActiveSheet.Visible = Salah
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Ketik:=2)
Jika respon = "456" Lalu
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Pilih
Lain
Application.Sheets(bSheetName).Terlihat = Salah
End If
End If
Application.EnableEvents = Benar

Jika Application.ActiveSheet.Name = cSheetName Kemudian
Application.EnableEvents = Salah
Application.ActiveSheet.Visible = Salah
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Ketik:=2)
Jika respon = "789" Lalu
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Pilih
Lain
Application.Sheets(cSheetName).Terlihat = Salah
End If
End If
Application.EnableEvents = Benar

End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas kodenya, hanya ada satu pertanyaan. Ketika Anda membuka lembar, Anda diminta untuk bertanya, lalu Anda memasukkannya dan lembar itu terlihat, tetapi ketika Anda melompat ke lembar berikutnya dan mencoba membuka kembali lembar sebelumnya, Anda dimintai kata sandi yang sama lagi setiap saat. Pertanyaan saya adalah bisakah Anda melewati itu dan membuat excel meminta kata sandi sekali?
Komentar ini diminimalkan oleh moderator di situs
Kode Anda memungkinkan pengguna untuk melihat lembar selama mereka menahan tombol kiri mouse saat penunjuk mouse berada di tab. Coba ini untuk menyembunyikan sheet sampai kata sandi yang benar dimasukkan: If response = "123456" Kemudian Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Pilih Else Application.Sheets(xSheetName).Visible = False[/ b][/b] End If End If Application.EnableEvents = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Ini elegan. JIKA orang yang membuka spreadsheet tidak mengaktifkan makro (yaitu VBA) apa yang terjadi? Apakah lembaran tersembunyi itu bebek yang duduk? Atau sangat tidak mungkin ditemukan?
Komentar ini diminimalkan oleh moderator di situs
Hai, David,
Jika Anda membuka buku kerja tanpa mengaktifkan makro, lembar tersembunyi ditampilkan seperti biasa. Dalam hal ini, saya sarankan Anda untuk menerapkan metode pertama untuk menyelesaikan pekerjaan ini.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
jak ktoś ukrył arkusz jak w opasanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
Komentar ini diminimalkan oleh moderator di situs
Halo, ciekawa

Maaf, saat ini, tidak ada cara yang baik untuk membatalkan perlindungan lembar tersembunyi jika Anda lupa kata sandinya.

Tapi, Anda bisa menerapkan Sembunyikan semua lembar tersembunyi fitur dari Kutools untuk Excel untuk memperlihatkan semua lembar tersembunyi tanpa kata sandi apa pun.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
Anda dapat men-download Kutools untuk Excel dan gunakan secara bebas selama 30 hari.
Silakan coba. Terima kasih!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL