Excel’de Sayfa Koruma Kaldırma İşlemi Nasıl Yapılır?

Excel’de Sayfa Koruma Kaldırma İşlemi Nasıl Yapılır?

10 Ocak 2018 0 Yazar: Mustafa BÜKÜLMEZ
Toplam Görüntülenme : 8493
Yaklaşık okuma süresi : 3 DK
Office Outlook'da HTML İmza Nasıl Eklenir?
Excel’de Sayfa Koruma Kaldırma İşlemi Nasıl Yapılır?
4.9 (97.14%) 7 Oy

Excel’de Sayfa Korumalarını Kaldırma İşlemi Nasıl Yapılır? Elinizde bir excel dosyası var ve korumalı mı? Ve sizde bu korumayı kırmak mı istiyorsunuz?. İşte o zaman tam yerine geldiniz. Bana da lazım olmuştu bir zamanlar. En son denediğimde işe yaramıştı. İşte Excel sayfa koruma kaldırma işlemi…

Windows kategorisi hakkında diğer yazılar için tıklayınız.

Bu iş için excel sayfa koruma kaldırma programına ihtiyacınız yoktur.

 

Sayfa Koruma Kaldırma İşlemi

İ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 sayfa koruma kaldırma işlemi tamam olacak. Eğer birden fazla sayfanız varsa açılan pencerede çıkan şifreyle diğer sayfalar içinde sayfa koruma kaldırma yapabilirsiniz. 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

 

İlgili İçerik  Office Outlook'da HTML İmza Nasıl Eklenir?

Windows kategorisi hakkında diğer yazılar için tıklayınız.

Bu işlemi microsoft office 2010 pro üzerinde denediğimde sorun çıkmadı. Ancak diğer versiyonlarda nasıl olur bilmiyorum. Sorun çıkacağanı düşünmüyorum ancak yine de denemek lazım.


Bu yazımızda bu kadar dostlar. Diğer yazılarımızda görüşmek üzere.

Sağlıcakla ve takipte kalın..

Office Outlook'da HTML İmza Nasıl Eklenir?
Mustafa Bükülmez

Liseden, Ağ Sistemleri ve Yönetimi bölümünden mezun oldum. Üniversiteden (2 yıllık), Bilgisayar Programcılığı bölümünden mezun oldum. Şuanda da AÖF, Yönetim Bilişim Sistemleri bölümünde okumaktayım.

Uzmanlık alanlarım; Windows Sistemleri, HTML, CSS, C# ve SQL’dir.

Hobi olarak uğraştığım genel konular, Photoshop, After Affects, Corel Draw’dır.Film, YABANCI dizi, Anime izlemeyi ve Manga okumayı severim. Arkadaşlarımla yürüyüş yapmayı ve grup olarak aktivitelere gitmeyi severim. Geri kalan zamanlarımın tümü bilgisayar karşısında geçer.