• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sayfa korumasını unuttum

  • Konbuyu başlatan Konbuyu başlatan SAVAŞ1
  • Başlangıç tarihi Başlangıç tarihi
bu adresteki yazılanları excel code sayfasına yazdım ama sonuç alamadım yardım edermisiniz
 
SAVAÞ' Alıntı:
korumuyı nasıl kaldırabiliriz

excel sayfasında araçlar , Makro,Visual Basic Düzenleyicisine gir ,insert menüsünden,module seçeneği seç oraya aşağıdaki kodları yaz ve makroyu çalıştır(play işaretine bas) o sana sayfanın korumasını kaldıracak

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
 
Oradaki kodları bir modüle ekleyip çalıştır ve biraz bekle çözülmesi gerekir. Tabiki sayfa korumasını kaldırmaktan söz ediyorsak.
 
halledemedim arkadaşlar.yazdığınız metini belirtilen yere yazıp .alıştırmaya kalktığımda ingilizce birşeyler yazıyor anlayamadım ama; normal excel sayfasından yazdığım formülü makro olarak çalıştırmaya çalıştığımda " güvenlik seviyesi yüksek olduğundan veya sayılsal olarak imzalanmadığı ve güvenli olduğundan emin olunmadığından bu çalışma sayfasındaki makrolar devre dışı bırakılmıştır."şeklinde bir ikaz yazısı çıkıyor.güvenlik seviyesini düşürdümyine problem çözülmedi.yardım
 
Sayın SAVAÞ,
Ã?rnek dosyanızı buraya eklerseniz, yapmaya çalışalım.
 
Sayın SAVAÞ Dosyanız şifresi çözülmüş hali ile ektedir.
 
sayın trablus çözümünü nasıl yaptınız kısaca anlatımısınız
 
Þifreli olan sayfanızda iken alt + F11 tuşlarına basın, karşınıza kod sayfası gelecek, yukarıda menülerde insert yazan kısmın içinde module'yi tıklayın. Yeni açılan sayfaya yukarıda metintalat, 'ın vermiş olduğu kodları kopyalayın, ve o pencereyi kapatın. Daha sonra,
Tekrar korumalı olan sayfanızda iken sırasıyla Araçlar > Makro > Makrolar işlemini yapın ve sağ tarafta çalıştır deyin. 30 sn. kadar sürüyor korumanızı kaldırması. :mrgreen:
 
selam dostum güzel paylaşım denem yaptm bende :) parolayı çözdü teşekkürler
 
bende denedim oldu. gerçi şifrenin ne olduğunu söylemiyor ama olsun korumayı kaldırıyor ya önemli olan o...
 
merhaba
sanırım site yöneticilerinin gözünden kaçmış. forumda şifre kırma ile ilgili bilgilerin bulunması hoş görülmüyor.
emeğe saygı...
 
Geri
Üst