Loncat ke daftar isi utama

Bagaimana cara memulihkan kata sandi perlindungan lembar kerja yang hilang di Excel?

Kami selalu menetapkan kata sandi untuk melindungi beberapa lembar kerja penting agar tidak rusak atau dimodifikasi oleh orang lain. Tetapi jika Anda lupa kata sandi Anda, bagaimana Anda bisa melakukannya? Untungnya, Excel mendukung beberapa kode VBA untuk memulihkan kata sandi perlindungan lembar kerja Anda yang hilang. Anda dapat mengatasi masalah ini seperti ini:

Pulihkan kata sandi perlindungan lembar kerja yang hilang di Excel dengan kode VBA
Lebih banyak tutorial untuk melindungi lembar kerja ...


Pulihkan kata sandi perlindungan lembar kerja yang hilang di Excel dengan kode VBA

Kode VBA berikut dapat membantu Anda dengan cepat membatalkan kata sandi asli Anda di lembar kerja.

1. Buka lembar kerja Anda yang sudah diproteksi sebelumnya.

2. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: pulihkan kata sandi perlindungan lembar kerja yang hilang

Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim 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 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 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)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4. Lalu klik F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul, klik OK untuk menutupnya, dan kata sandi Anda dari lembar kerja yang dilindungi akan segera dibatalkan.

Catatan:

1. Dengan kode ini, Anda hanya memulihkan satu kata sandi perlindungan lembar kerja pada satu waktu, jika ada beberapa lembar kerja yang dilindungi, Anda perlu menerapkan kode ini satu per satu.
2. Kode di atas berasal http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.


Mudah melindungi beberapa lembar kerja secara bersamaan dengan kata sandi di Excel:

Grafik Lindungi Lembar Kerja kegunaan Kutools untuk Excel dapat membantu Anda melindungi beberapa lembar kerja secara massal dengan kata sandi yang sama. Ini juga menyediakan utilitas untuk membuka proteksi lembar kerja ini pada saat yang bersamaan. Unduh fitur lengkap jejak gratis 30 hari dari Kutools untuk Excel sekarang!


Terkait artikel

Bagaimana cara melindungi beberapa lembar kerja sekaligus di Excel?

Bagaimana cara membuka proteksi beberapa lembar kerja sekaligus di Excel?

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


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!
Comments (99)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What is the Macro name?
This comment was minimized by the moderator on the site
Even using this code below, I continue to receive this message: (When I running that code on Excel 365, I got this message error:
Runtime '1004'
The password you supplied is not correct. Verify that the CAPS LOCK key is off and be sure to use the correct capitalization.
Please if you can help me on this.
thank you very much)
Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim 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 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 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)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
This comment was minimized by the moderator on the site
Hello, Jose,
If the VBA code can't work well in Office 365, maybe the following article can help you, there are two methods in that article, please check it:
https://www.extendoffice.com/documents/excel/7179-excel-unprotect-all-sheets-without-password.html
Thank you!
This comment was minimized by the moderator on the site
When I running that code on Excel 365, I got this message error:
Run-time '1004'
The password you supplied is not correct. Verify that the CAPS LOCK key is off and be sure to use the correct capitalization.
Please if can help me on this.
thank you very much
This comment was minimized by the moderator on the site
The tip to recover my password says to open the Excel document. Without the password I cant open it, so how does this work?
This comment was minimized by the moderator on the site
Il existe de nombreux programmes pour r茅cup茅rer le mot de passe des fichiers Excel. J'utilise Manyprog Excel Password Recovery. C'est rapide et facile 脿 utiliser. https://fr.manyprog.com/excel-password-recovery.php
This comment was minimized by the moderator on the site
Hi. I've got Microsoft 365 . Does it work too ?I tried, but for now couldn't open my xlsx files..
This comment was minimized by the moderator on the site
Thank you! After saving it as an Excel 91-2003 (.xls) doc, I was able to use this to unlock all the worksheets within the workbook. Literally saved me so much time.
This comment was minimized by the moderator on the site
This does not appear to work. It only generates passwords with As, Bs and something else at the end. What am I missing?
This comment was minimized by the moderator on the site
This algorithm doesn't work. Only generates PWs with As, Bs and something different at the end. What am I missing?
This comment was minimized by the moderator on the site
Hay muchos programas para recuperar la contrase帽a de los archivos de Excel. Estoy usando Manyprog Excel Password Recovery. Es r谩pido y f谩cil de usar. https://es.manyprog.com/excel-password-recovery.php
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations