Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

Beranda
Komunitas
Tech
Templates & Scripts Stuff
Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

aipciamis

17-07-2020 04:37

Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

1. Silahkan buka file excel yang akan kamu unprotect.
2. Kemudian tekan tombol ALT + F11, nanti akan muncul kotak Microsoft Visual Basic Application.
Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

3. Pilih Insert Module.
Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

4. Masukan kode berikut ini.

Quote:

Sub PasswordBreaker()

'Author unknown but submitted by brettdj of www.experts-exchange.comDim 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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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

5. Kalau gagal coba pakai kode dibawah ini.

Quote:

Sub InternalPasswords()

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

ActiveWorkbook.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)

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 ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

6. Pilih Sheet yang ingin di unprotect
Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

7. Save, kemudian di close
8. Kemudian Macro > Show Macro > Internal Password > Run

Cara Membuka Sheet Microsoft Excel Yang Diproteksi Password Tanpa Software

9. Tunggu sampai selesai

Semoga bermanfaat.
Sumber informasi: Cara Membuka File Microsoft Excel Yang Di Protect Password Tanpa Sofware Cara Membuka File Microsoft Excel Yang Di Protect Password Tanpa Sofware.

achmadzai007568 memberi reputasi

909

Kutip

Balasan

Komentar yang asik ya

Komunitas Pilihan