Excel Şifre Kırma ve Kaldırma ve Koruma Şifresi Sıfırlama %100 Çözüm - Hayatın İçinden Haberler...Hayatın İçinden Haberler…

Adem yigit23 Mayıs 2018 / 06:56 Cevapla

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

Kenan yigit29 Mayıs 2018 / 15:24 Cevapla

Çok sağolun acayip işime yaradı aylardır uğraşıyordum sayenizde Excel dosyasinin şifresini buldum. Teşekkürler…

ismail18 Haziran 2018 / 22:39 Cevapla

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

Güçlü29 Haziran 2018 / 14:59 Cevapla

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

Hikmet polat23 Haziran 2018 / 09:50 Cevapla

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.

emre sarısoy25 Haziran 2018 / 11:35 Cevapla

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

Guclu29 Haziran 2018 / 15:00 Cevapla

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

gencay atay1 Temmuz 2018 / 22:46 Cevapla

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

Nazif dogan7 Temmuz 2018 / 09:47 Cevapla

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

numANdroid19 Temmuz 2018 / 10:13 Cevapla

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…

Hasan Basri Yılmaz27 Temmuz 2018 / 17:19 Cevapla

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

ismail28 Temmuz 2018 / 22:31 Cevapla

merhaba, excel in açılış şifresini nasıl bulabilirim… şifreyi unuttum… dosyayı açamıyorum…

Selçuk karaca31 Temmuz 2018 / 23:54 Cevapla

Merhabalar bu yöntem sayfa korumasını kaldırıyor peki çalışma kitabına koyulan parola nasıl kaldırılabilinir

ERSEN ŞENER28 Ağustos 2018 / 09:51 Cevapla

2013 sürümünde hata veriyor yardımcı olabilirimisiniz?

İSMAİL AS18 Eylül 2018 / 13:07 Cevapla

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 ?

MUHARREM AYGÜN10 Ekim 2018 / 16:59 Cevapla

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.

Armağan GÜÇLÜ22 Ekim 2018 / 20:42 Cevapla

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?

Hasan Yu9 Kasım 2018 / 11:39 Cevapla

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