İlginizi Çekebilir
  1. Ana Sayfa
  2. Office Programları
  3. Excel’de Sayfa Koruma Kaldırma İşlemi Nasıl Yapılır?
Trendlerdeki Yazı

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

excel koruma kaldırma kodu

Excel’de Sayfa Koruması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 korumasını 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

 

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.

 

Güncelleme 13.06.2020

Office Excel 97- 2003 formatı ile kaydedilen dosyalarda da çalışmaktadır.

Office 2016 Versiyonlarında da yukarıdaki kodlar çalışmaktadır.

NOT: Kodlar neredeyse tüm sürümlerde çalışmaktadır. Yaşanan diğer türlü sorunlar Excel dosyası ile ilgili olabilir. Örneğin dosya bozuk olabilir.

Bilinen bir hata Yanıt Vermiyor hatasıdır. Biraz araştırdım ancak bu hata hakkında bir çözüm bulamadım. Eğer çözüm bulursam bu kısma ekleyeceğim.


Bu yazımızda bu kadar dostlar. Diğer yazılarımızda görüşmek üzere. Excel hakkındaki diğer yazılarım için tıklayabilirsiniz.

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

Yorum Yap

Yazar Hakkında

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.

Yorum Yap

Yorumlar (17)

  1. _avatar

    Güncelleme 16.01.2020: Office 2016 üzerinde bir excel de deneme şansım oldu. Yukarıdaki kodlar çalışıyor.

  2. _avatar
    9 ay önce

    yanıt vermiyor diyor. çok uzun sürüyor mu açılması

  3. _avatar
    8 ay önce

    Allah bin kere razı olsun sizden sizin sayenizde büyük bir iş yükünden kurtuldum

  4. _avatar
    7 ay önce

    Çok işime yaradı, teşekkür ederim…

  5. _avatar

    Emeğinize sağlık. Teşekkür ederim

  6. _avatar

    İnsert Module sekmesi çalışmıyor sıkıntı nedir acaba?

  7. _avatar

    Merhabalar çalıştır butonunu bulamıyorum ben yardımcı olursanız sevinirim.

    • _avatar

      Çalıştır = Run = yeşil renkli sağa bakan ok. (Yanında mavi renkli yan yana iki çizgi ve mavi renkli kare buton yer alır. )
      Yani kodları çalıştırma butonundan bahsediyorum.

  8. _avatar
    3 ay önce

    Kodlar çalışıyor çok teşekkür ederim.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir