Excel VBA Şifreli Sayfa Korumasını Kırma Kodları

Herhangi bir excel dosyanız var diyelim ve bu dosyayı yıllar yıllar önce yaptınız ve bir nedenden dolayıda şifre koydunuz. Şifreyide unuttunuz aklınızada gelmiyor. Tüm eski şifrelerinizi denediniz fakat bir türlü şifreyi bulamadınız. Fakat üzülmenize gerek yok.

Excel VBA kullanarak sayfaların şifresini çok ama çok kolay bir şekilde kaldırabilirsiniz. Peki bunu nasıl yapacaksınız? Kod bilmenize gerek yok hiç birşey bilmenize gerek yok. Aşağıdaki adımları takip etmeniz yeterlidir.

Excel VBA Kullanarak Sayfaların Şifresini Kaldırma / Kırma

İlk önce exceli açınız. Hangi exceldeki şifreleri kaldıracaksanız bu sayfayı açınız.

Ardından yukardaki menülerden ilk önce geliştirici sekmesine, ardından visual basic sekmesine tıklayınız. (Eğer bu seçenekler yoksa bu yazımıza bakabilirsiniz.)

https://kodlattir.com/excel-gelistici-menusu-nasil-acilir

ardından aşağıdaki gibi bir sayfa açılacak.

Bu sayfada ise sol taraftaki menüden  VBAPROJECT yazısına sağ tıklayıp, Insert ve Module seçeneklerine tıklayın.

 

ardından sol tarafta module1 diye bir sayfa açılacak. O sayfaya tıklayın ve aşağıdaki kodları yapıştırın.

Kodları yapıştırdıktan sonra "F5" tuşuna basın ve makroyu çalıştırın. Ardından sayfalarınızdaki şifreler kaldırılacaktır. 

Aşağıdaki kod ile şifre ile korunan bir excel kitabının şifresini kaldırabilirsiniz.

 

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