Saadet Saniye
YazarSaadet Saniye
873 görüntülenme
2 dakika okuma süresi
Ara 14, 2019

    Excel de Veri Girişi Engeli Kaldırma


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

    Bunlar İlginizi Çekebilir