Bukan barang yang baru bila kita mendownload file Excel, file tersebut sering dipasword atau diprotek agar tidak dirubaha atau diedit yang mendownload file tersebut.
Nah bagaimana cara membuka password tersebut sementara kita tidak tahu passwordnya, sementara membuka password tersebut sangat penting?
begini caranya:
Pertama: Buka File Excel yang dipassword tersebut.
Kedua: Setelah terbuka, tekan ALT+ F11
Ketiga : akan muncul seperti gambar dibawah ini, setelah itu Klik Insert Trus Klik Module
Keempat: copy paste script dibawah ini
Sub InternalPasswords()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveWorkbook.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 ThenIf ActiveWorkbook.ProtectWindows = False ThenIf ActiveSheet.ProtectContents = False ThenExit SubEnd IfEnd IfEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub
Setelah di COpy Paste Biarkan saja.
Kelima: Buka kembali Sheet atau halaman excel yang dipasword sebelumnya
Trus Buka Menu View Dan Klik Macros trus View Macros
nah insya Allah paswordnya akan langsung terbuka..
Selamat mencoba
0 Komentar Untuk "Cara Membuka Pasword Excel Yang di Proteck"
Out Of Topic Show Konversi KodeHide Konversi Kode Show EmoticonHide Emoticon