Skip to main content

AccessTr.neT


Excel sayfa koruma şifresini parolasını çözen makro kodu ve örneği

Excel sayfa koruma şifresini parolasını çözen makro kodu ve örneği

#1
PHP Kod:
Sub SayfaSifresiniCoz()
Dim i As IntegerAs IntegerAs IntegerAs IntegerAs Integer_
As Integeri1 As Integeri2 As Integeri3 As Integer_
i4 
As Integeri5 As Integeri6 As Integer
On Error Resume Next
For 65 To 66
For 65 To 66
For 65 To 66
For 65 To 66
For 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 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
'Msg= InputBox("Parola", "Www.Accesstr.Net", Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n))
MsgBox "Parola Çözüldü, dosyanız şifresizdir", vbInformation, "Www.Accesstr.Net"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub 

VB şifresini çözen makro kod var ama sn: adminlerimiz ve site yönetimmimizin izni olursa onuda eklerim.
Son Düzenleme: 11/05/2011, 10:37, Düzenleyen: DUAYEN.
Cevapla
#2
Paylaşım İçin Teşekkürler.
Cevapla
#3
Paylaşımınız için teşekkürler.
Cevapla
#4
teşekkürler, çok faydalı oldu
Cevapla
#5
Paylaşım için teşekkürler.
VBA şifresini çözen programı gönderme drumunuz var mı acaba?
Cevapla
#6
Sn,Süleyman Bey.
Paylaşımınız için teşekkürler.
Vba şifresini çözen kodu gönderebilirmisiniz?
Teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da