Dimana saat kita mengklik salah satu cell yang akan kita edit atau lihat formula/rumus nya akan muncul pemberitahuan bahwa “cell or chart you’re trying to change is on a protected sheet. To make change, unprotect the sheet. You might be requested to enter a password.”
Hal yang dapat dilakukan adalah dengan menanyakan kepada si pembuat file apa password yang digunakan, namun jika itu file hasil unduhan atau memang tidak memungkinkan untuk kita menanyakan passwordnya, ya dengan begitu kita harus mencari alternatif lain untuk menghilangkannya.
Disini saya akan memberi tutorial bagaimana membuka file yang dipassword itu dengan mudah, tanpa aplikasi lain dan juga tidak membutuhkan waktu yang lama. Oke langsung saja ke tutorialnya.
Cara Membuka Proteksi Password File Microsoft Excel
1. Pertama-tama buka file Excel yang akan di unlock passwordnya.2. Setelah itu klik menu di keyboard ALT+F11 hingga muncul aplikasi Microsoft Visual Basic for Applications.
3. Klik menu Insert pilih Module
4. Masukkan script dibawah ini pada kolom yang disediakan
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
6. Maka akan muncul kotak dialog Macros dengan perintah InternalPasswords. Disini kita cukup klik Run. Tunggu beberapa saat sampai kode yang kita masukkan tadi pada module bekerja untuk menghilangkan proteksi Sheet Excel.
Jika sudah selesai tutup jendela Microsoft Visual Basic for Applications lalu kalian kembali ke file/sheet yang tadi di proteksi. Sekarang coba kalian klik cell yang terdapat rumus atau yang ingin diedit. Sekarang cell pada sheet tersebut sudah bisa diedit dan dilihat formula/rumus sesuai keinginan kita.








0 Response to "Cara Membuka Proteksi Password Microsoft Excel Tanpa Software"
Post a Comment