Kode VBA untuk Membuka Kunci Lembar Excel yang Terkunci: 4 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:57

Jika Anda pernah lupa kata sandi untuk salah satu lembar kerja excel Anda, Anda tahu betapa frustasinya itu. Kode yang digunakan dalam instruksi ini adalah salah satu yang paling sederhana yang saya temukan. Ini akan menghasilkan kode yang dapat digunakan yang akan membuka kunci lembar Anda yang dilindungi. Saya tidak dapat mengambil kredit untuk kode karena saya hanya menemukannya pada saat dibutuhkan (dan saya tidak dapat menemukan di mana situs itu lagi)… sooo saya tidak akan banyak membantu jika itu tidak berhasil untuk Anda, tetapi saya sudah telah sukses dengan itu dan berpikir saya akan berbagi.

Langkah 1: Buka VBA

Buka lembar kerja yang Anda lupa kata sandinya. Gunakan Alt+F11 untuk masuk ke editor makro. Setelah di VBA klik dua kali lembar yang perlu Anda buka kuncinya dari daftar menu di sebelah kiri. Ini akan membuka halaman deklarasi umum untuk lembar tersebut.

Langkah 2: Potong dan Tempel Pemecah Kode

Masukkan kode di bawah ini di halaman deklarasi umum yang telah Anda buka. Anda tidak perlu mengubah apa pun, nama sheet dll… Cukup potong dan tempel._ Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 Sampai 66: Untuk k = 65 Sampai 66 Untuk l = 65 Sampai 66: Untuk m = 65 Sampai 66: Untuk i1 = 65 Sampai 66 Untuk i2 = 65 Sampai 66: Untuk i3 = 65 Sampai 66: Untuk i4 = 65 Ke 66 Untuk i5 = 65 Hingga 66: Untuk i6 = 65 Hingga 66: Untuk n = 32 Hingga 126 ActiveSheet. Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Jika ActiveSheet. ProtectContents = False Kemudian MsgBox "Satu kata sandi yang dapat digunakan adalah " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Keluar Sub Akhir If Next: Next: Next: Next: Next Next Next: Next: Next: Next: Next End Sub_

Langkah 3: Jalankan Makro

Setelah kode ditambahkan, jalankan Makro dengan memilih Jalankan dari bilah tab menu di bagian atas layar editor VBA atau cukup tekan F5

Langkah 4: Gunakan Kode yang Dihasilkan

Makro akan mengembalikan Anda ke lembar kerja yang ingin Anda buka proteksinya. Kotak gaya peringatan akan muncul dengan kode yang dapat digunakan. Di tab menu Review klik Unprotect sheet. Masukkan kode yang dihasilkan sebagai kata sandi dan selesai. Lembar Anda harus dibuka kuncinya! Anda harus menggunakan kekuatan ini dengan bijak dan bertanggung jawab hanya untuk membuka lembar kerja Anda sendiri.