206 Görüntülenme

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

Excel’de Sayfa Koruma Kaldırma İşlemi Nasıl Yapılır?
4.7 (93.33%) 3 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.

excel koruma kaldırma kodu

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

 

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

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.