Sayfa Koruma

[aligunes]

sayfa için verilen korumayı kaldırmak için bir çözüm yolu var mı ?

şifreyi bilmiyorum çözüm önerilerinizi bekliyorum.

kitap koruma değil= sayfa korumasını kaldırmak istiyorum

 

[birol_mumcu]

merhaba;
site içinde arama yapın örnekler bulacaksınız.
"password.xla"

 

[abazya]

Kod:
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
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
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Sn : aligunes Bunları denermisin

 

[DOLAR]

Bu kodlar mükemmel çok teşekkürler. Acaba Þifreyi çözdükten sonra ne olduğu da yazılabilir mi. Olursa mükemmel olur. :dua:

 

[DOLAR]

Sanırım site taşınma aşamasında bu soru gözden kaçtı. Bir çözümü var mı yokmu gerçekten merak ediyorum.

Teşekkürler..

 

[abazya]

SnOLAR
Ben bir kaçkere çalıştırdım ve işime yaradı şifreyi çözdükten sonra ister kendi şifreni koy ister şifreyi kaldır . Olmadı kendin boş bir kitapta dene. Þifre çözümü bir iki dakika sürdü (6 haneli şifreyi)

 

[DOLAR]

Sn. abazya

Ben şifreyi çözdüm kodlar harika çalışıyor. Fakat o dönemlerde yaptığım birkaç dosya var. Belki unuttuğum şifre ile çağrışım yapabilir. Bu yüzden şifre çözüldükten sonra ne olduğunu öğrenmek istedim. Yani zamanında şifreyi koyuyoruz sonra unutuyoruz. :8)

Teşekkürler.

 

[DOLAR]

Bir çözümü var mı yokmu gerçekten merak ediyorum.

Teşekkürler..

:kafa: :kafa: :arkadas: :hey:

 

[abazya]

SnOLAR
Sorunu görüyorum sadece okuyorum ADSL arızlarına gidiyorum sorununu düzelttiğim her ekrana www.excel.web.tr açıyorum hem test ediyorum hem adresi bırakıp sitenin reklamını yapıyorum Senin sorunu okudukca cevap veremediğim için kahroluyorum
Cevabına gelince Sadece eski şifreyi açıyor sen eskiden şunu yazdın demiyor istersen tekrardan yeni şifre imkanı veya şifresiz olarak devam etme imkanı veriyor sorundan bunu anladım
Not :Bunu müşteriden izin isteyip yazdım Saat 19:00 kadar başka cevap malesef

 

[DOLAR]

Sn. abazya;

İlginiz için çok teşekkürler. Benim istediğim sayfayı çözdükten sonra şifre de buydu, ben bu şifreyi çözdüm demesi ama cevabı yoksa bulunana kadar beklerim. Ne yapalım :hey: :lol:

İyi çalışmalar..

 

[abazya]

Þimdi evimdeyim istediğin şekil sorunu yanıtlayayım sen eski şifrem diyelim Ankara bunu bana böylece yazsın diyorsan hayır öyle değil hem eski unutulmuş şifreyi ne yapacaksın yenisini yazma olanağı varken unutulmuşu unut gitsin Bu gün seninle birine daha cevap yazdım oda ben çalıştığım şirketin kısıtlamaları yüzünden ekleri göremiyorum dedi onun sorusunuda okuyorum ama müşterinin yanındanda şuna cevap yazayım olmuyor Düşün eczanedesin adsl hattı gitmiş ben gittim düzelttim adamın bir sürü recetesi birikmiş dur bir cevap yazayım ben diyemem adam gözümün içine bakıyor inşallah sorun cözülür diye ne dualar ediyor
Bir ara baktım Sn: leventm cevaba devam ediyor nasıl rahatladım buradanda Sn:leventm beni o anki stresten kurtardığı için teşekkürler

 

[DOLAR]

Beni anlamadın ya ben ona yanıyorum.. Kayahan :kafa: :kafa: :kafa: :hey: