Cara Membuka Data Excel Yang Terkunci

Pernahkah anda mengalami seperti gambar diatas ? Ketika hasil download data excel mau dibuka terkunci atau terprotek seperti gambar diatas ? rasanya menyebalkan dan kesel.

Untuk itu kami mengajak para pengunjung untuk memberikan Solusi cara membuka data excel yang terkunci atau terprotek.

Langkah 1 :

• Buka file excel hasil download anda yang terkunci 

• Lihat bagian sebelah bawah kiri pada tab sheet yang di protect, 
• Lalu klik kanan dan pilih “view code” >> akan terbuka jendela baru secara otomatis (Microsoft visual basic), 
• Atau bisa juga dengan cara menekan tombol kombinasi “Alt + F11″ di lanjutkan klik insert/module, sampai muncul jendela baru/module di bagian tengah.

• Copy kode yang sudah di catat tadi pada jendela module. ( ada dibawah ), hasilnya seperti dibawah ini 

• Lihat bagian kiri atas lembar kerja, highlight atau klik pada sheet yang akan kita buka proteksinya
• Klik menu Tools
• Klik menu Macros
• Klik menu Internal Password
• Klik menu run
• Tunggu beberapa saat ... dalam proses 
• dan klick icon Microsoft Excel di pojok kiri atas atau “Alt + F11″ untuk kembali ke lembar kerja.
• Selesai

Demikian cara membuka data excl yang terkunci, semoga bermanfaat

Terima Kasih

Salam Hangat

Jaenudin Kreatif

...................................................................................

Kode untuk membuka data excel yang terkunci :

Sub InternalPasswords()
 
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
 
ActiveWorkbook.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)
 
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 ActiveWorkbook.ProtectStructure = False Then
 
If ActiveWorkbook.ProtectWindows = False Then
 
If ActiveSheet.ProtectContents = False Then
 
Exit Sub
 
End If
 
End If
 
End If
 
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
 
End Sub