Kod VBA untuk Membuka Kunci Excel Berkunci: 4 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:11

Sekiranya anda terlupa kata laluan untuk salah satu lembaran kerja excel anda, anda pasti tahu betapa mengecewakannya. Kod yang digunakan dalam arahan ini adalah salah satu kaedah termudah yang saya dapati. Ini akan menghasilkan kod yang boleh digunakan yang akan membuka kunci lembaran terlindung anda. Saya tidak dapat mempercayai kod tersebut kerana saya hanya menemukannya pada masa yang diperlukan (dan saya tidak dapat mencari di mana laman web itu lagi) … jadi saya tidak akan banyak membantu jika ia tidak berfungsi untuk anda tetapi saya sudah berjaya dengan itu dan fikir saya akan berkongsi.

Langkah 1: Buka VBA

Buka lembaran kerja yang anda lupakan kata laluan anda. Gunakan Alt + F11 untuk memasukkan editor makro. Setelah di VBA klik dua kali pada helaian yang perlu anda buka dari senarai menu di sebelah kiri. Ini akan membuka halaman pernyataan umum untuk helaian.

Langkah 2: Potong dan Tampal Code Breaker

Masukkan kod di bawah ini di halaman pernyataan umum yang telah anda buka. Anda tidak perlu menukar apa-apa, nama helaian dll … Cukup potong dan tampal._ Sub PasswordBreaker () 'Memecahkan perlindungan kata laluan lembaran kerja. Dim i As Integer, j As Integer, k Sebagai IntegerDim l Sebagai 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 Untuk i = 65 hingga 66: Untuk j = 65 hingga 66: untuk k = 65 hingga 66 untuk l = 65 hingga 66: untuk m = 65 hingga 66: untuk i1 = 65 hingga 66 untuk i2 = 65 hingga 66: untuk i3 = 65 hingga 66: untuk i4 = 65 Ke 66 Untuk i5 = 65 Hingga 66: Untuk i6 = 65 Hingga 66: Untuk n = 32 hingga 126 Lembaran Aktif. Melindungi Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Sekiranya ActiveSheet. ProtectContents = Salah Kemudian MsgBox "Satu kata laluan yang boleh 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 End Sekiranya Seterusnya: Seterusnya: Seterusnya: Seterusnya: Seterusnya: Seterusnya Next: Next: Next: Next: Next: Next End Sub_

Langkah 3: Jalankan Makro

Setelah kod ditambahkan jalankan Makro dengan memilih Jalankan dari bar tab menu di bahagian atas skrin editor VBA atau tekan F5 sederhana

Langkah 4: Gunakan Kod yang Dihasilkan

Makro akan mengembalikan anda ke lembaran kerja yang anda mahu lindungi. Kotak gaya amaran akan muncul dengan kod yang boleh digunakan. Pada tab menu Semak, klik Lembarkan perlindungan. Masukkan kod yang dihasilkan sebagai kata laluan dan selesai. Helaian anda mesti dibuka! Anda harus menggunakan kuasa ini dengan bijak dan bertanggungjawab hanya untuk membuka kunci lembaran kerja anda sendiri.