EXCEL ŞİFFRESİ VEYA PAROLA KoRUMASINI NASIL KALDIRABİLİRİM?

Kodla Büyü
KARÇİÇEĞİ

KARÇİÇEĞİ

Hiperaktif Üye
Hiperaktif
Süper Üye
Seçkin Üye
Mesajlar
2,836
EXCEL ŞİFFRESİ VEYA PAROLA KORUMASINI NASIL KALDIRABİLİRİM? PROGRAMSIZ OLARAK ..
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

Alt+F11 e basın exceldeyken, sonra gelen ekrandan yeni diyin aşağıdaki kodu yapıştırın ve işlem tamam…

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
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

HOCAM YENİ NERDE YAZIYOR.
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

Şşşşahane yav :++:
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

berkan66' Alıntı:
Alt+F11 e basın exceldeyken, sonra gelen ekrandan yeni diyin aşağıdaki kodu yapıştırın ve işlem tamam…

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
Genişletmek için tıkla ...

teşekkürler çalışıyor.
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

tenten' Alıntı:
berkan66' Alıntı:
Alt+F11 e basın exceldeyken, sonra gelen ekrandan yeni diyin aşağıdaki kodu yapıştırın ve işlem tamam…

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
Genişletmek için tıkla ...

teşekkürler çalışıyor.
Genişletmek için tıkla ...

HOCAM BENDE ÇALIŞMADI. NASIL YAPTINIZ?
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

örnek ekte denenmiştir. sayfa korumasını kaldırıyor.
makroyu çalıştırın şifre puf
 

Ekli dosyalar

  • ifre silme makro.rar
    10.2 KB · Görüntüleme: 46
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

wordde de geçerlimi bu arkadaşlar?
 
Re: EXCEL ŞİFFRESİ VEYA PAROLA KAORUMASINI NASIL KALDIRABİLİRİM?

arkadaşlar bende olmuyor...
ben 2007 kullanıyorum....ondan olabilir mi?
 
arkadaşlar hücreye konulmuş şifre bazı hücreleri siliyor...bazı hücreler korumlaı olduğu için silmiyor...
 
ARKADAŞLAR BU SİTEDEKİNİ YAPTIM OLDU. UĞRAŞAN ARKADAŞLARA TEŞEKKÜR EDERİM... :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst