Cara Membuka Proteksi Sel Microsoft Excel / Unprotect Sheet Excel

Cara Membuka Proteksi Sel Microsoft Excel / Unprotect Sheet Excel

Ingin membuka kembali dokumen di microsoft excel yang sudah dikasih protect sheet ? Untuk membuat data excel tetap aman, kita perlu memprotect atau memberikan pengunci data yang kita buat. Namun, apabila kita lupa password yang sudah kita berikan membuat kita menjadi kesulitan untuk melakukan perubahan pada dokumen yang kita buat di microsoft excel tersebut.

Nah, saya akan berikan salah satu cara untuk membuka kembali microsoft excel yang sudah kita rahasiakan atau yang sudah kita kasih protect agar bisa kembali kita buka, yaitu dengan menggunakan cara berikut ini.

Langkah - langkah unprotect microsoft excel :

1. Buka microsoft excel yang di protect tersebut.

2. Tekan tombol ALT dan F11 secara bersamaan, maka akan muncul Microsoft Visual Basic for Applications.

3. Ikuti langkah - langkah yang sudah ditunjukkan pada gambar di atas.
4. Copy skrip yang di bawah ini (pastikan semua tidak ada yang diubah atau diganti).

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 anda sudah berhasil di unprotect.

Selamat Mencoba :)