Excel Sayfa Koruması Kaldırma

Tarihe göre sırala Oylara göre sırala
Qwx

Qwx

Kıdemli Üye
30 Nis 2012
2,728
13
Merhaba,
Excelde ki şifreyi kaldırmak adına bu videoda bir çok yöntem bulunmaktadır.
[ame]https://www.youtube.com/watch?v=S2-qsG6jYSU&vl=tr[/ame]
 
Oyla 0 Downvote
S.A.B.E.R!/

S.A.B.E.R!/

Basın&Medya Ekibi Deneyimli
14 Mar 2017
4,185
5
578
26
Sakarya
Buyurun:
[ame]https://www.youtube.com/watch?v=KDjKK90fgvU[/ame]

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(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

Ve;

[ame]https://www.youtube.com/watch?v=xEfJIzaDfg0[/ame]
 
Son düzenleme:
Oyla 0 Downvote
H

HaCKiNG0

Üye
30 Eki 2013
177
0
Kutalp' Alıntı:
Buyurun:
https://www.youtube.com/watch?v=KDjKK90fgvU

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(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
Ve;

Sayfa Koruması Nasıl İptal Edilir? (excel) izle | Video | Eğitim Bilişim Ağı
Genişletmek için tıkla ...




bu olmuyor hocam farklı bir yol yokmu
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.