Excel'de Sayfa Korumalarını Kaldırma İşlemi

Excel'de Sayfa Korumalarını Kaldırma İşlemi

Bu dersimizde Excel dosyalarındaki sayfa korumalarını kaldırma işlemini göreceğiz.

Selam arkadaşlar,

Bugün bir excel dosyasındaki korumayı kaldırma işlemi ihtiyacım oldu. Biraz araştırma ile nasıl kaldırılacağınız buldum ve sizlerle de paylaşmak istedim.

İlk olarak Excel'de Alt+F11'e basarak yada "Geliştirici" sekmesinden Visual Basic' e tıklayarak Excel için Visual Basic kodları yazabildiğimiz pencereyi açıyoruz. Açılan pencerede menüden Insert->Module tıklıyoruz. Aşağıdaki kodları açılan pencereye yapıştırıp çalıştır butonuna tıklıyoruz. Çalıştırdıktan sonra küçük bir pencere açılacak ve içinde şifre yazıyor olacak. Açılan pencerede tamam butonuna tıkladığınız zaman o anda açık olan Excel sayfasının koruması kalmış olacak. Eğer birden fazla sayfanız varsa açılan pencerede çıkan şifreyle diğer sayfalarında korumasını kaldırabilirsiniz. Her ne kadar bu şifre orijinal şifreyle aynı olmasada işe yaradığını göreceksiniz.

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

Ekran Görüntüleri

Bu dersimizde bu kadar arkadaşlar.

Kendinize iyi bakın.

Yararlanılan Kaynak: Mehmet Ali Akbulut

Mustafa BÜKÜLMEZ
Web sitesi, ERP, MRP, CRM ve kişiye özel uygulamalar hazırlanır. -- Deneyip çalıştığını onaylamadan çok nadir ders eklerim. Denemediklerim ise eski makalelerimdendir. Hem bildiklerimi paylaşmak hemde her seferinde aramamak için yayınlıyorum. -- *Bilgi paylaştıkça çoğalır. *Bir mum diğer mumu yakmakla ışığından bir şey kaybetmez. Aksine Daha çok ışık yayar. -- 1992 İstanbul doğumluyum. Kahramanmaraş'ta yaşıyorum. Lise: Ağ sistemleri ve Yönetimi, Üniversite: Bilgisayar Programcılığı.. -- 07.2014 tarihinden beri bir firmada Bilgi İşlem Müdürü olarak çalışmaktayım. -- Kişisel Bloğum : https://csharpiledundenbugune.blogspot.com.tr/
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git