Excel parola kaldırma veya dosya açma işi

Excel parola kaldırma veya dosta açma işi. Konuyla ilgili deneyimi veya görüşü bilgisi olan arkadaşlar pm ile ulaşabilir mi wp paylaşarak. tşkler.

Excel mi VBA şifresi mi? Excel dosya şifresini unuttuysanız bi program vardı tüm kombinasyonları deneyip açıyordu. Benim bi kere 2 güne yakın sürmüştü açması

excel şifresi hocam

Ben bi kere yapmıştım böyle bişey bu dosya rarlıydı sanırm.(evet excel sosyası) bu rarı çıkartıp içinde bi yerde şifresi vardı onu ordan siliyosun program düzeliyodu

Sub SifreAc()
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 "One usable password is " & 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

Excel üzerinde sayfa adı yazan yere sağ tık yapıp kod görüntüle bölümüne bunu yapıştırın ve yukardan yürüt tuşuna basın (yeşil olan) karşınıza şifreyi vermesi gerekli.

Not: Bu tarz şeyleri paylaşmak yasak mı bilmiyorum. Yardım etmek amacıyla paylaştım.