Header Ads

Header ADS

Cara Membuka Unprotect Sheet yang Lupa Password di Excel 2007 dengan Mudah


Pasti Kalian Yang Suka Melindungi Sheet dengan di Protect, Kadang-Kadang Lupa Password nya Nah... Jadi Pusing kan :) Jangan Pusing Dulu Beruntung Anda Berjumpa Disini Disini Saya Akan Memberikan Tutorialnya :
Pertama-tama Siapkan File yang Lupa.
Kedua Pilih Sheet yang Di Protect
Lalu Klik Develover jika Excel Kalian Belum Ada Develover Tenang Caranya Adalah Klik Office ->

Lalu Klik Excel Options dan Pilih Popular dan Cari Show Developer Tab in The Ribbon Lalu Ceklist
Ketiga Setelah Develover Muncul Klik Visual Basic dan Tambahkan Module dan Masukan Script Dibawah Ini :


"Sub OpenSheet()
'Membuka Sheet
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 "Password " & 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"

Ingat Tanpa Tanda Kutip 
Keempat Tutup Jendela Visual Basic dan Klik Macros dan Cari Sub Open_Sheet dan Klik Run Tunggu Beberapa Saat dan Muncul Password Batuannya

Itulah Sedikit Info dari Saya Sekian.

Tidak ada komentar

Berkomentarlah dengan Sopan... :)

Diberdayakan oleh Blogger.