Cara memproteksi sheet yang sangat tersembunyi di excel dengan password

kata Simon Q
8 April 2019 pukul 3. 48 sore

Nama lembar yang sangat tersembunyi terlihat di editor VBA jadi, meskipun mengunci sel formula adalah ide yang bagus, itu tidak 100% mudah. Jika lembar yang sangat tersembunyi berisi rentang bernama, Pengelola Nama juga memberikan rahasianya
Berikut ini berbelit-belit, tetapi Anda bisa
- letakkan perhitungan rahasia Anda di lembar yang sangat tersembunyi #1
- gunakan lembar kedua yang sangat tersembunyi #2 untuk merujuk hanya ke sel yang Anda ingin pengguna lihat
- lihat sel lembar #2 di lembar terlihat #3 yang diakses pengguna
- kembali ke lembar #1 dan tambahkan kolom dan baris untuk mendorong sel rumus ke posisi yang tidak jelas
- sekarang tambahkan nomor acak dan teks ke sel kosong lembar #1
- atur parameter yang sangat tersembunyi untuk lembar #1 & #2
- mengunci struktur buku kerja
Bahkan jika pengguna menemukan nama lembar #1, tidak mungkin untuk membaca rumus dan hampir tidak mungkin untuk menemukan data sebenarnya karena terkubur di antara hal-hal acak. Menggunakan lembar perantara #2 menghentikan pengguna menemukan di mana 'barang bagus' di lembar #1 disembunyikan

Sebagai pengguna Excel, Anda bisa menyembunyikan lembar kerja Anda. Tetapi jika Anda tidak menyembunyikannya dengan kata sandi, orang lain dapat menyembunyikan lembar kerja dengan mudah. Itulah mengapa lembar tersembunyi perlindungan kata sandi di Excel sangat penting. Artikel ini akan membahas cara melindungi lembar tersembunyi dengan kata sandi di Excel. Saya harap Anda menikmati artikel ini secara menyeluruh dan mendapatkan pengetahuan yang berharga

Daftar isi

Download Buku Latihan

Unduh buku latihan Latihan ini

Lembar Tersembunyi Lindungi Kata Sandi. xlsm

3 Metode Mudah Melindungi Lembar Tersembunyi dengan Kata Sandi di Excel

Untuk melindungi lembar tersembunyi dengan kata sandi di Excel, kami telah menunjukkan tiga cara berguna untuk melakukan pekerjaan itu. Ketiga metode tersebut termasuk kode VBA cukup mudah dipahami. Jika Anda memiliki pertanyaan, jangan ragu untuk bertanya di bagian komentar, dan jangan lupa untuk mengunjungi halaman ExcelDemy kami

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

Tetapkan kata sandi untuk melindungi lembar tersembunyi dengan fungsi VeryHidden

Biasanya, Anda dapat menggunakan fungsi VeryHidden untuk menyembunyikan lembar kerja terlebih dahulu, lalu menyetel kata sandi untuknya, lakukan langkah-langkah berikut

1. Buka buku kerja Anda, dan tahan tombol Alt + F11 untuk membuka jendela Microsoft Visual Basic for Applications

2. Di jendela Microsoft Visual Basic for Applications, klik View > Project Explorer and Properties Window untuk menampilkan panelnya

3. Dan kemudian di panel Proyek-VBAProject, pilih lembar kerja yang ingin Anda sembunyikan, dan di panel Properti, klik daftar tarik-turun dari bagian Terlihat untuk memilih opsi xlSheetVeryHidden, lihat tangkapan layar

4. Setelah membuat lembar kerja sangat tersembunyi, Anda dapat mengatur kata sandi untuk melindunginya. Di jendela Microsoft Visual Basic for Applications, klik Sisipkan > Modul untuk membuka modul kosong, lalu klik Alat > Properti VBAProject, lihat tangkapan layar

5. Kemudian di kotak dialog VBAProject-Project Properties yang muncul, klik tab Protection, lalu centang kotak Lock project for viewing, terakhir, masukkan dan konfirmasikan kata sandi di bagian Kata Sandi untuk melihat properti proyek, lihat tangkapan layar

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

7. Simpan buku kerja sebagai format Buku Kerja Excel Macro-Enabled dan tutup untuk membuat perlindungan kata sandi berlaku

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

Demo. Tetapkan kata sandi untuk melindungi lembar tersembunyi

Tetapkan 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 lindungi

2. Tahan tombol ALT + F11 untuk membuka jendela Microsoft Visual Basic for Applications

3. Kemudian pilih Buku Kerja Ini dari Project Explorer kiri, klik dua kali untuk membuka Modul, lalu salin dan tempel kode VBA berikut ke dalam Modul kosong

kode VBA. Tetapkan 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

Catatan. Pada kode di atas, Sheet1 dari skrip xSheetName = "Sheet1" adalah nama lembar kerja tersembunyi yang ingin Anda lindungi, dan 123456 di If response = "123456" Then script is the password that you set for the hidden sheet. You can change them to your need.

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 kali, saat Anda mengklik untuk menampilkan lembar tersembunyi

Lindungi beberapa lembar kerja sekaligus dengan Kutools for Excel

Jika Anda ingin memproteksi beberapa lembar kerja yang dipilih atau semua lembar kerja sekaligus, biasanya Anda perlu memproteksi satu per satu secara manual di Excel. Tapi, jika Anda memiliki Kutools for Excel, dengan miliknya Lindungi Lembar Kerja utilitas, Anda bisa melindunginya dengan satu klik

Buka Unduh
Uji Coba Gratis 30 hari Beli
PayPal / MyCommerce

Setelah menginstal Kutools for Excel, lakukan hal berikut

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

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

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

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

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

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%

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and 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.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab 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 hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.  

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 10 )

Belum ada peringkat. Jadilah yang pertama menilai

Darren

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya punya pertanyaan tentang kode lembar kerja Anda yang dibatasi kata sandi. Anda memposting kode berikut yang berfungsi. yang saya cari adalah kode yang akan melakukan ini dengan banyak lembar kerja dan banyak kata sandi dalam buku kerja yang sama. Apakah ini mungkin? . Lembar aktif. Nama = xSheetName Kemudian Aplikasi. EnableEvents = Aplikasi Salah. Lembar aktif. Visible = False xTitleId = "KutoolsforExcel" response = Aplikasi. InputBox("Password", xTitleId, "", Type. =2) Jika respon = "123456" Maka Aplikasi. Spreadsheet (xSheetName). Terlihat = Aplikasi Sejati. Spreadsheet (xSheetName). Pilih Akhiri Jika Akhiri Jika Aplikasi. Spreadsheet (xSheetName). Terlihat = Aplikasi Sejati. EnableEvents = True End Sub

Membalas

0

0

Severin     Darren

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sudah menemukan solusinya?

Saya mengalami masalah yang sama

Membalas

0

0

Rexamillian     Severin

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sub Workbook_SheetActivate Pribadi (ByVal Sh Sebagai Objek)
Dim xSheetName Sebagai String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

Jika Aplikasi. Lembar aktif. Nama = aSheetName Kemudian
Aplikasi. EnableEvents = Salah
Aplikasi. Lembar aktif. Terlihat = Salah
xTitleId = "KutoolsforExcel"
tanggapan = Aplikasi. InputBox("Password", xTitleId, "", Type. =2)
Jika respon = "1234" Maka
Aplikasi. Spreadsheet(aSheetName). Terlihat = Benar
Aplikasi. Spreadsheet(aSheetName). Pilih
Kalau tidak
Aplikasi. Spreadsheet(aSheetName). Terlihat = Salah
Berakhir jika
Berakhir jika
Aplikasi. EnableEvents = Benar

Jika Aplikasi. Lembar aktif. Nama = bSheetName Kemudian
Aplikasi. EnableEvents = Salah
Aplikasi. Lembar aktif. Terlihat = Salah
xTitleId = "KutoolsforExcel"
tanggapan = Aplikasi. InputBox("Password", xTitleId, "", Type. =2)
Jika respon = "2345" Maka
Aplikasi. Spreadsheet(bSheetName). Terlihat = Benar
Aplikasi. Spreadsheet(bSheetName). Pilih
Kalau tidak
Aplikasi. Spreadsheet(bSheetName). Terlihat = Salah
Berakhir jika
Berakhir jika
Aplikasi. EnableEvents = Benar

Jika Aplikasi. Lembar aktif. Nama = cSheetName Kemudian
Aplikasi. EnableEvents = Salah
Aplikasi. Lembar aktif. Terlihat = Salah
xTitleId = "KutoolsforExcel"
tanggapan = Aplikasi. InputBox("Password", xTitleId, "", Type. =2)
Jika respon = "3456" Maka
Aplikasi. Spreadsheet(cSheetName). Terlihat = Benar
Aplikasi. Spreadsheet(cSheetName). Pilih
Kalau tidak
Aplikasi. Spreadsheet(cSheetName). Terlihat = Salah
Berakhir jika
Berakhir jika
Aplikasi. EnableEvents = Benar

Akhir Sub

Membalas

0

0

Richard     Severin

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sub Workbook_SheetActivate Pribadi (ByVal Sh Sebagai Objek)
Redupkan aSheetName Sebagai String
Redupkan bSheetName Sebagai String
Redupkan cSheetName Sebagai String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

Jika Aplikasi. Lembar aktif. Nama = aSheetName Kemudian
Aplikasi. EnableEvents = Salah
Aplikasi. Lembar aktif. Terlihat = Salah
xTitleId = "KutoolsforExcel"
tanggapan = Aplikasi. InputBox("Password", xTitleId, "", Type. =2)
Jika jawaban = "123" Maka
Aplikasi. Spreadsheet(aSheetName). Terlihat = Benar
Aplikasi. Spreadsheet(aSheetName). Pilih
Kalau tidak
Aplikasi. Spreadsheet(aSheetName). Terlihat = Salah
Berakhir jika
Berakhir jika
Aplikasi. EnableEvents = Benar

Jika Aplikasi. Lembar aktif. Nama = bSheetName Kemudian
Aplikasi. EnableEvents = Salah
Aplikasi. Lembar aktif. Terlihat = Salah
xTitleId = "KutoolsforExcel"
tanggapan = Aplikasi. InputBox("Password", xTitleId, "", Type. =2)
Jika respon = "456" Maka
Aplikasi. Spreadsheet(bSheetName). Terlihat = Benar
Aplikasi. Spreadsheet(bSheetName). Pilih
Kalau tidak
Aplikasi. Spreadsheet(bSheetName). Terlihat = Salah
Berakhir jika
Berakhir jika
Aplikasi. EnableEvents = Benar

Jika Aplikasi. Lembar aktif. Nama = cSheetName Kemudian
Aplikasi. EnableEvents = Salah
Aplikasi. Lembar aktif. Terlihat = Salah
xTitleId = "KutoolsforExcel"
tanggapan = Aplikasi. InputBox("Password", xTitleId, "", Type. =2)
Jika respon = "789" Maka
Aplikasi. Spreadsheet(cSheetName). Terlihat = Benar
Aplikasi. Spreadsheet(cSheetName). Pilih
Kalau tidak
Aplikasi. Spreadsheet(cSheetName). Terlihat = Salah
Berakhir jika
Berakhir jika
Aplikasi. EnableEvents = Benar

Akhir Sub

Membalas

Laporan

0

0

Tomas     Richard

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih untuk kodenya, hanya ada satu pertanyaan. Ketika Anda membuka lembar Anda dimintai pertanyaan, 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 kali. Pertanyaan saya adalah bisakah Anda melewati itu dan membuat excel meminta kata sandi sekali?

Membalas

0

0

Jeremy

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kode Anda memungkinkan pengguna untuk melihat lembar selama mereka menahan tombol kiri mouse saat penunjuk mouse ada di tab. Coba ini untuk menyembunyikan sheet sampai kata sandi yang benar dimasukkan. Jika respon = "123456" Maka Aplikasi. Spreadsheet (xSheetName). Terlihat = Aplikasi Sejati. Spreadsheet (xSheetName). Pilih Aplikasi Lain. Spreadsheet (xSheetName). Visible = False[/b][/b] End If End If Application. EnableEvents = True End Sub

Membalas

0

0

Daud

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini elegan. JIKA orang yang membuka spreadsheet tidak mengaktifkan makro (mis. e. VBA) apa yang terjadi?

Membalas

0

0

skyyang     David

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, Daud,
Jika Anda membuka buku kerja tanpa mengaktifkan makro, lembar tersembunyi ditampilkan seperti biasa. Dalam hal ini, saya menyarankan Anda untuk menerapkan metode pertama untuk menyelesaikan pekerjaan ini
Terima kasih

Membalas

Laporan

0

0

ciekawa

sekitar 4 bulan yang lalu

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?

Bagaimana cara melindungi kata sandi tab tersembunyi di Excel?

Bisakah Anda mencegah pengguna dari Unhiding sheets Excel?

Bagaimana cara membuat lembar tersembunyi tidak terdeteksi?