Çok sağolun acayip işime yaradı aylardır uğraşıyordum sayenizde Excel dosyasinin şifresini buldum. Teşekkürler…
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)
syntax error çalıştırınca hata mesajı veriyor
Bunu dene. Indentationlardan kaynaklı sanırım sorun.
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
Allah razı olsun sizden . O kadar uğraştım çok önemli bir Excel dosyasının şifresini sifirladim. Hiç kimse neden bunu yazmamıs anlamadım Excel koruma şifresi kırmak çok basit mis.
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)
syntax error çalıştırınca hata mesajı veriyor
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
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)
syntax error çalıştırınca hata mesajı veriyor
Aylardır Excel dosyasinin şifresini kırmaya çalışıyorum. Bu kadar basit olamaz ya:) valla sayenizde 5 dakika surmedi Excel şifresinin sıfırlanması. Teşekkürler
hata veren yerdeki Tırnak İşaretlerini (“) silip tekrar yazın
satır sonlarındaki Alt Çizgileri (_) silin ve alt çizgiyle ayrılmış olan satırları yukarı alarak birleştirin. Tek bir satır haline getirin…
Malesef 2016 da çalışmıyor Bu hata alınmaktadır.
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)
syntax error çalıştırınca hata mesajı veriyor
merhaba, excel in açılış şifresini nasıl bulabilirim… şifreyi unuttum… dosyayı açamıyorum…
Merhabalar bu yöntem sayfa korumasını kaldırıyor peki çalışma kitabına koyulan parola nasıl kaldırılabilinir
2013 sürümünde hata veriyor yardımcı olabilirimisiniz?
Hocam Merhaba
Benim için çok önemli bir dosya var bir türlü açamıyorum. yardımcı olabilirseniz sevinirim.
Bu ve benzeri bir kaç işlem uyguladım ama olmuyor maalesef
dosyayı sizlere göndersem açabilir misiniz ?
EXCEL ÇALIŞMA SAYFASINDAKİ KORUMAYI KALDIRMA KODUNU YAZDIĞIMDA 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)
KODUNU KIRMIZI YAZARAK “COMPİLE ERROR: SYNTAX ERROR “YAZIYOR.
Merhabalar Maalesef olmadı benimki 🙁
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)
Compile Error
Syntax Error hatası alıyorum
Çok acil düzenlemem gereken bir dosya var. Lütfen yardımcı olur musunuz?
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
Bu şekilde denerseniz çalışır.
Dosyayı size göndersem yardımcı olur musunuz?
Allah razı olsun kesinlikle çalışıyor
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)
compile error : syntax error
Şeklinde hata veriyor
2010 Excel kullanıyorum. Daha önce yapmış olduğum sayfa koruma şifresini bulamıyorum.
Yardımcı olursanız memnun olurum.
Saygılarımla
hata veren mesaj bölümünü silip çalıştırın. koruma kalkıyor.

Ya gerçek ten çok sağolun. Çok önemli bir Excel dosyasinin şifresini unutmuşum. Sayenizde çok basit şekilde çözdüm. Harikasınız