- Beranda
- Programmer Forum
CODE VBA UNTUK MEMBUKA EXCEL YANG DI PASWORD
...
TS
hendtopoi
CODE VBA UNTUK MEMBUKA EXCEL YANG DI PASWORD
Selamat datang di trit ane gan
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
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.1K
19
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
20.2KThread•4.6KAnggota
Urutkan
Terlama
Komentar yang asik ya