Sayfa koruması olan excel dosyasını düzenleme.

01-08-2016, 14:04:30

Merhaba sayfa koruması olan bir excel dosyasını alarak kendime göre düzenlemek istiyorum. Konu ile ilgili yardımcı olabilecek arkadaşlarıma şimdiden teşekkürlerimi sunarım. Saygılar.

02-08-2016, 10:16:11

#2

MuratOSMA

Google'da Password.xla ya da Password.xlam olarak aratıp eklentiyi indirin.
O eklentiyi Excel'in içine sürüklediğinizde, hem sayfa korumasını hem de kitap korumasını kaldırabilirsiniz.

02-08-2016, 13:20:18

#3

metinciris

veya

Excel sayfa içinde alt+F11
açılan sayfada, solda bu sayfada tıklayın --> sağda beyaz sayfa açılacak. Aşağıdaki kodu kopyalayın, F5 (yani kodu çalıştır) yapın. Küçük kutuda bir şeyler yazacak --> ok --> sayfa ismi üzerine sağ tık --> sayfa korumasını kaldır (bu kez şifre sormayacak)
Her sayfa için ayrı ayrı yapabilirsiniz.

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

05-08-2016, 14:29:31

#4

torch

MuratOSMA adlı üyeden alıntı: mesajı görüntüle

Google'da Password.xla ya da Password.xlam olarak aratıp eklentiyi indirin.
O eklentiyi Excel'in içine sürüklediğinizde, hem sayfa korumasını hem de kitap korumasını kaldırabilirsiniz.

murat hocam dediklerinizi yaptım fakat olmadı.

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 13:29:31 -->-> Daha önceki mesaj 13:28:50 --

metinciris adlı üyeden alıntı: mesajı görüntüle

veya

Excel sayfa içinde alt+F11
açılan sayfada, solda bu sayfada tıklayın --> sağda beyaz sayfa açılacak. Aşağıdaki kodu kopyalayın, F5 (yani kodu çalıştır) yapın. Küçük kutuda bir şeyler yazacak --> ok --> sayfa ismi üzerine sağ tık --> sayfa korumasını kaldır (bu kez şifre sormayacak)
Her sayfa için ayrı ayrı yapabilirsiniz.

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

Metin hocam dediklerinizi daha öncede uygulamaya çalışmıştım. run yaptıktan sonra saatlerce bekliyor fakat excel kilitlenip kalıyor.