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 SubCatatan. 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
Kutools untuk Excel . dengan lebih dari 300 add-in Excel praktis, gratis untuk dicoba tanpa batasan dalam 30 hari.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?