Demi keamanan data yang telah dibuat, biasanya yang dilakukan adalah dengan memberi password pada file yang dibuatnya. Pada data yang dibuat di Ms Excel dapat diprotect atau diamankan dengan diberi sandi atau password untuk dapat mengedit atau merubahnya. Biasanya yang sering diberi password adalah sel (cell) yang terdapat rumus tertentu yang tidak boleh dirubah sembarangan.
Untuk mengatasi password sel (cell) pada Ms Excell, dapat menggunakan cara sebagai berikut :
- Buka file excel yang cellnya diprotect.
- Tekan tombol Alt+F11, maka akan muncul jendela Microsoft Visual Basic For Application.
- Klik insert kemudian pilih Modul
- Copy code dibawah ini dan paste di jendela modul yang muncul.Sub PasswordBreaker()'Author unknown but submitted by brettdj of www.experts-exchange.comDim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveSheet.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 ThenMsgBox "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).SelectRange("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 SubEnd IfNext: Next:Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub
- Jika sudah klik save (atau simpan)
- Masih di jendela Microsoft Visual Basic, klik menu Tools kemudian pilih Macros
- Setelah itu muncul jendela macros dan klik run
- Muncul popup dan klik OK
- Selamat….. cell yang dikunci sudah dapat dibuka kembali.Semoga bermanfaat
Referensi : https://www.hanapibani.com/2017/06/cara-membuka-cell-excel-yang-diprotect.html
إرسال تعليق