Mengunci cells atau sheet di dalam Excel berkhasiat untuk mengamankan data yang terdapat dalam cells tersebut agar tidak sanggup diubah atau dimodifikasi orang lain, atau agar menghambat terhapusnya data secara tidak sengaja.
Sekarang bagaimanakah bila password yang dipakai untuk mengunci cell atau sheet tersebut lupa atau tidak ingat, sehingga file tersebut tidak sanggup dimodifikasi atau dipakai lagi.
Nah untuk membuka file Excel yang terkunci, ada cara untuk membuka password tersebut, ikuti tindakan selaku berikut:
Buka File Excel dimana Worksheet tersebut ada sheet atau cell yang terproteksi.
Lalu buka Visual Basic (Alt+F11), dan klik Insert dan klik Module.
Kemudian copy-kan syntax VBA berikut ini ke dalam Module tersebut:
Sub UnprotectSheet()
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
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 ActiveSheet.ProtectContents = False Then
MsgBox "Password Crack Yang Sudah Termodifikasi Adalah : " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Setelah itu aktifkan Tools dan klik Macros, setelah terbuka jendela Macros aktifkan UnprotectSheet dan klik Run
Biarkan system melakukan pekerjaan beberapa dikala dan akan timbul pesan selaku berikut:
Lalu tutup aktivitas Visual Basic, maka Sheet yang tadinya terkunci sanggup dimodifikasi atau ditulis lagi.
Selamat menjajal mudah-mudahan bermanfaat…
disini
Sekarang bagaimanakah bila password yang dipakai untuk mengunci cell atau sheet tersebut lupa atau tidak ingat, sehingga file tersebut tidak sanggup dimodifikasi atau dipakai lagi.
Nah untuk membuka file Excel yang terkunci, ada cara untuk membuka password tersebut, ikuti tindakan selaku berikut:
Buka File Excel dimana Worksheet tersebut ada sheet atau cell yang terproteksi.
Lalu buka Visual Basic (Alt+F11), dan klik Insert dan klik Module.
Kemudian copy-kan syntax VBA berikut ini ke dalam Module tersebut:
Sub UnprotectSheet()
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
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 ActiveSheet.ProtectContents = False Then
MsgBox "Password Crack Yang Sudah Termodifikasi Adalah : " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Setelah itu aktifkan Tools dan klik Macros, setelah terbuka jendela Macros aktifkan UnprotectSheet dan klik Run
Biarkan system melakukan pekerjaan beberapa dikala dan akan timbul pesan selaku berikut:
Lalu tutup aktivitas Visual Basic, maka Sheet yang tadinya terkunci sanggup dimodifikasi atau ditulis lagi.
Selamat menjajal mudah-mudahan bermanfaat…
disini
0 Komentar untuk "Cara Membuka Worksheet Yang Terproteksi"