Step by step trik membuka password excel sheet
2. Untuk memasukan script VBA lihat bagian sebelah
bawah kiri pada tab sheet yang di protect, klik kanan dan pilih “view
code” akan terbuka jendela baru secara otomatis (Microsoft visual
basic), atau bisa juga dengan cara menekan tombol kombinasi “Alt + F11″ di lanjutkan klik
insert/module, apabila di bagian tengah sudah muncul jendela
baru/module berarti langkah anda sudah benar cara membuka password excel
sheet

Code VBA membuka password excel sheet
1. 3. Selanjutnya
trik membuka password excel sheet Pada jendela module, copy pastekan
kode berikut ini (copy dan paste mulai dari ” Sub
InternalPasswords()” sampai dengan “end sub”)
Copy dan paste code berikut ini :
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
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
4.
Membuka password excel sheet selanjutnya Lihat bagian kiri atas lembar
kerja, highlight atau klik pada sheet yang akan kita buka protectnya.
6. Tunggu beberapa saat dan klick icon Microsoft Excel di pojok kiri atas atau “Alt + F11″ untuk kembali ke lembar kerja, dan kini
file excel yang di protect tersebut sudah bisa di edit sesuka hati anda
! lihat juga pada tab “review” kini icon sheet sudah bertuliskan
protect sheet sebagai tanda sudah tidak di protect lagi.
0 komentar:
Posting Komentar