excel acil

Sub Unlockpasword()
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 "İşlem Tamamdır."
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next



arkadaslar bu vba kodu ile ne yapılmak istenilmiştir. pek bilgim yok biraz kurcuklamaya calısıyorumda

yok mu

Sayfa korumasını kaldırmaya çalışmışlar. Ama sayfa şifre korumalı.

Bunlar da şifreyi kırmaya çalışmışlar. Ama belli ki şifreye dair bir takım veriler var.

Mesela şifre 12 karakterli ve ilk 11 karakteri sadece a ve b harflerinden oluşuyor. Sadece son karakter belli değil onun için de a..z ve A..Z arasındaki tüm harfleri deniyor.

yani şifre şu olabilir

aaabbababbaK

gibi.

evet oraası oylede ben bir sayfada korumayı kaldırıyom şifresini biliyom sayfanın herhangi bir yerinde sag tıklarsam yada gizli hücreyi gösterebilmek için tüm hücreleri secmeye çalıştıgım an otomatik olarak tekrar korumaya alıyor neticesinde hücrede değişiklik yapmaıyorum

Hocam sayfanın selection change event'ine yeniden sayfa koruma yapması için kod yazılmıştır; onları silin eğer sayfa korumasını yapmasını istemiyorsanız.