Tutorial Cara Membuka Worksheet Yang Terproteksi

Mengunci cells atau sheet di dalam Excel mempunyai kegunaan untuk mengamankan data yang terdapat dalam cells tersebut biar tidak sanggup diu...

A+ A-
Mengunci cells atau sheet di dalam Excel mempunyai kegunaan untuk mengamankan data yang terdapat dalam cells tersebut biar tidak sanggup diubah atau dimodifikasi orang lain, atau biar mencegah terhapusnya data secara tidak sengaja.

Sekarang bagaimanakah jikalau password yang digunakan untuk mengunci cell atau sheet tersebut lupa atau tidak ingat, sehingga file tersebut tidak sanggup dimodifikasi atau digunakan lagi.

Nah untuk membuka file Excel yang terkunci, ada cara untuk membuka password tersebut, ikuti langkah-langkah sebagai 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, sesudah terbuka jendela Macros aktifkan UnprotectSheet dan klik  Run


Biarkan system bekerja beberapa dikala dan akan muncul pesan sebagai berikut:


Lalu tutup kegiatan Visual Basic, maka Sheet yang tadinya terkunci sanggup dimodifikasi atau ditulis lagi.

Selamat mencoba semoga bermanfaat…

disini


Related

Office Excel 5979724314050364438

Technology

Hot in week

Recent

Comments

item