Ingin membuka kembali yang sudah dikasih protect sheet pada microsoft excel ?
Untuk membuat datat excel tetap aman, kita perlu memprotect atau memberikan pengunci data kita. namun, jika kita lupa password yang sudah kita berikan membuat kita memnjadi kesulitan untuk melakukan perubahan excel tersebut.
Nah Saya akan berikan salah satu untuk membuka kembali cell excel yang sudah kita rahasiakan atau yang sudah kita kasih protect bisa kembali kita buka dengan cara berikut.
Langkah - langkah Unprotect Sheet excel :
1. Buka microsoft excel yang di protect tersebut
2. Tekan tombol ALT+F11, maka akan muncul Microsoft Visual Basic for application
lihat gambar :
3. Ikuti langkah yang sudah di tunjuk oleh gambar
4. Copy skrip yang di bawah ini (pastikan semua tidak ada yang di rubah atau di ganti)
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
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 "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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
5. Silahkan save / simpan
6. Kemudian klik tools lalu pilih macros
7. Klik Run
8. Maka akan muncul pop up dan klik OK
9. Data sudah berhasil unprotect sheet
10. Selamat menggunakan
Untuk membuat datat excel tetap aman, kita perlu memprotect atau memberikan pengunci data kita. namun, jika kita lupa password yang sudah kita berikan membuat kita memnjadi kesulitan untuk melakukan perubahan excel tersebut.
Nah Saya akan berikan salah satu untuk membuka kembali cell excel yang sudah kita rahasiakan atau yang sudah kita kasih protect bisa kembali kita buka dengan cara berikut.
Langkah - langkah Unprotect Sheet excel :
1. Buka microsoft excel yang di protect tersebut
2. Tekan tombol ALT+F11, maka akan muncul Microsoft Visual Basic for application
lihat gambar :
4. Copy skrip yang di bawah ini (pastikan semua tidak ada yang di rubah atau di ganti)
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
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 "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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
5. Silahkan save / simpan
6. Kemudian klik tools lalu pilih macros
7. Klik Run
8. Maka akan muncul pop up dan klik OK
9. Data sudah berhasil unprotect sheet
10. Selamat menggunakan
8 komentar:
bagus tuh,, makasih boss
pnya saya insert modulenya gk aktif gmn sob?
just sharing, cara yang saya lakukan hanya 3 step, silahkan cek postingan saya, , http://binderone.blogspot.com/2015/02/3-step-open-sheet-cell-protection.html or youtube https://www.youtube.com/watch?v=gpQjmdTLoI0 terimakasih
tulisan saya yang lain www.comparazi.com
MANTAP BRO.... Ijin copas..
tengkyu bgt mz broo
thanks gan
mantap bos. thanks
Posting Komentar