Suatu ketika kita mendownload sebuah file excel namun dari pihak user lain memberikan proteksi pada sheet excel sehingga sulit untuk mengedit kembali file tersebut. Karena diproteksi tersebut pastinya membuat kita jengkel.
Untuk itu bagi kalian yang masih awam dalam dunia komputer seperti saya yang ingin mengedit file excel yang sheet nya terproteksi dapat dengan mudah dibuka dengan trik di bawah ini.
Langkah Pertama, kita harus memiliki kode visual basic di bawah 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
Langkah kedua, buka file excel yang ingin anda buka passwordnya,
Setelah terbuka tekan lah alt+f11 untuk membuka window visual basic pada excel seperti gambar di bawah ini :
Masukkan kode di atas pada module dengan cara copi paste
Kemudian klik run pada menu yang ada di window paling atas dan tunggu sebentar.
Dan Taraaaaaaaaaaaaaaaaaaa.... sudah kebuka password excel nya....
Sekian dari tutorial yang singkat ini semoga menjadi manfaat bagi kita yang hobi berbagi informasi... :) :) :)
Untuk mendownload code nya dapat dilihat pada link berikut : http://adf.ly/1PIrwi
Tiada ulasan:
Catat Ulasan