- Beranda
- Komunitas
- Tech
- Programmer Forum
CODE VBA UNTUK MEMBUKA EXCEL YANG DI PASWORD


TS
hendtopoi
CODE VBA UNTUK MEMBUKA EXCEL YANG DI PASWORD


Ane cuma mau berbagi code vba untuk membuka excel yang terpasword tanpa memakai software. udah ane tes pakai excel 2007 berhasil

berikut Code VBA open pasword nya :
****
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
***
code vba itu mulai dari bintang(***) kebawah sampai bintang yang paling bawah (***)
tanda bintang tidak perlu di copy krn tidak masuk kedalam code tersebut.
terimakasih telah berkunnjung.
semoga diberi cendol seger dan semoga tidak di timpa bata lag
i





nona212 memberi reputasi
1
14.4K
19


Komentar yang asik ya
Urutan
Terbaru
Terlama


Komentar yang asik ya
Komunitas Pilihan