Excel Çalışma Sayfası Koruma Şifresini Kurtarma

VBA Kodu Ile Excel’de Kayıp Çalışma Sayfası Koruma Şifresini Kurtarma

Aşağıdaki VBA kodu orijinal parolalarınızı bir çalışma sayfasında hızlı bir şekilde iptal etmenize yardımcı olabilir.

1. Daha önce korunan çalışma sayfanızı açın.

2. Tuşunu basılı tutun. ALT + F11 tuşlarını kullanır ve Microsoft Visual Basic for Applications penceresi.

3. tıklayın Ekle > modülve aşağıdaki kodu yapıştırın: Modül Penceresi.

VBA kodu: kayıp çalışma sayfası koruma şifresini düzeltin


Sub PasswordRecovery()
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


4. Sonra tıklayın F5 tuşuna basarak bu kodu çalıştırın ve bir istem kutusu görünecektir. OK tuşuna basın ve kapatıp kapatın ve korumalı çalışma sayfanızdaki parolalar bir defada iptal edilecektir.

doc-kurtarma-password1

Notlar:

1. Bu kod ile, aynı anda yalnızca bir çalışma sayfası koruma şifresini kurtarırsınız, birden fazla korunan çalışma sayfası varsa, bu kodu birer birer uygulamanız gerekir.

Paylaş

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.

Menü
Giriş