Office Dosyalarımızı Parola Koyarak Koruyabiliriz Lakin Herkesin Kullanabileceği Bir Dosyaya Parola Koyar isek Sadece Şifreyi Bilen Kişiler Dosyada Değişiklik Yapacaktır. . . Bugün Bu Problem ile Karşılaştık. . . ve Sizlere Excel Çalışma Sayfasında Çalışma Kitabını Koruma Parolasıyla Koruma Altına Alınan Veri Girişi Engeli Kaldırmanın Yolunu Anlatacağız ;

Nedir Bu Koruma ?

Excel Dosyasında Bulunan Verileri Koruma ve Değişimi Engelleme Üzerine Alınan Bu Parola Herhangi Bir Yerden Edilen Excel Dosyası Üzerindeki Yetkileri Tamamen Dosyayı Hazırlayan Kişinin Elinde Olması Demek. . . Son Kullanıcı Bu Veriler Üzerinde Değişiklik Yapmak İstediğinde Bu Parola Tam Bir Baş Belası Haline Geliyor ve Veri Girişi Yapmak Mümkün Olmuyor. . .

Yetkiyi Kendimize Nasıl Yönlendireceğiz ?

İlk Olarak Excel'de Alt + F11'e Basarak Ya da "Geliştirici" Sekmesinden Visual Basic' E Tıklayarak Excel İç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 İç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 İşe Yaradığını Göreceksiniz.

KODLAR :

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

Tüm Yetkiye Sahibiz ve Dilediğimiz Gibi Veri Değişikliği Yapabileceğiz..