berjalanlah sampai tujuan tercapai

Terimakasih telah berkunjung. Semoga Anda menemukan apa yang Anda butuhkan

AdSense

Cara Membuka Proteksi Cell Excel atau Unprotrect Sheet

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 :
Cara Membuka Proteksi Cell Excel / Unprotrect Sheet


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

Membuka Proteksi Cell Excel / Unprotrect Sheet

6. Kemudian klik tools lalu pilih macros

Membuka Password Cell Excel / Unprotrect Sheet

7. Klik Run
8. Maka akan muncul pop up dan klik OK

Cara Membuka Proteksi Cell Excel / Unprotrect Sheet

9. Data sudah berhasil unprotect sheet
10. Selamat menggunakan

8 komentar:

Anonim mengatakan...

bagus tuh,, makasih boss

Unknown mengatakan...

pnya saya insert modulenya gk aktif gmn sob?

Unknown mengatakan...

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

Unknown mengatakan...

tulisan saya yang lain www.comparazi.com

Anonim mengatakan...

MANTAP BRO.... Ijin copas..

Firman mengatakan...

tengkyu bgt mz broo

yusufsantika mengatakan...

thanks gan

Anonim mengatakan...

mantap bos. thanks