MEMBUKA FILE EXCEL YANG DI PROTECT

BUKA SHEET YANG AKAN DI BUKA 

TEKAN   "ALT + F11

CARI MENU INSERT PILIH MODULE

CO PASS HTML BERIKUT

 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

TERUS PILIH SHEET YANG AKAN DI BUKA KLIK F5

TERUS KLIK RUN

SELESAI

LEGER

 BAPAK IBUK SAYA SAMPAIKAN LEGER TIGA TAHUN TERAKIR SIAPA TAHU DI BUTUHKAN 

UNTUK LIHARNYA KLIK KLIK DISINI