excel dosyasını kaydetmek için şifre isteme

[ilkiliroglu]

arkadaşlar çalışma sayfamızın üzerine veri girdikten sonra kaydet butonuna basıldığında şifre istemesi yapılabilirmi bir başka ifade ile şifre girişi yapılamadan var olan excel dosyasının üzerindeki değişikliklerin kaydedilmemesi yapılabilirmi

 

[alpi]

Aşağıdaki kodu Excel Dosyanızın ThisWorkbook kod editörüne yazınız.
Kaydetmek isteyene şifre soracak eğer şifreyi bilirse kaydedecek bilemezse kaydetmeyecek.
Aşağıda şifre=123
olarak ayarlanmıştır dilerseniz değiştirebilirsiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not InputBox("Şifre giriniz") = "123" Then
        MsgBox "Şifre yanlış dosya kaydedilemedi"
        Cancel = True
    End If
End Sub

 

[ilkiliroglu]

teşekkür

sayın alpi ilginiz için çok teşekkür ediyorum kesinlikle şimi gördü

 

[h2001]

word belgemde şifreyi bilen değişiklik yapabilsin, kaydete basıldığında şifre sorsun istiyorum. Sn alpinin vermiş olduğu kod word belgesi için nasıl olmalı? Teşekkürler

 

[alpi]

Aynı işlemi Word ile yapmak için maalesef standart bir kayıt olayı yok bu olayıda dosyamıza eklememiz gerekiyor.

Aşağıdaki kodu Word Dosyanızın ThisDocument kod editörüne yazınız.

Option Explicit
Dim KayıtKontrol As New Class1
Private Sub Document_Open()
    Set KayıtKontrol.Kayıt_Kontrol = Word.Application
    KayıtKontrol.DosyaAdı = ThisDocument.Name
End Sub

Insert/Class Module yi seçerek yeni bir class ekleyiniz. Eklediğiniz Classs a aşağıdaki kodu yazınız

Option Explicit
Public WithEvents Kayıt_Kontrol As Application
Public DosyaAdı As String
Private Sub Kayıt_Kontrol_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    If Not Doc.Name = DosyaAdı Then Exit Sub
    If Not InputBox("Şifre giriniz") = "123" Then
        MsgBox "Şifre yanlış dosya kaydedilemedi"
        Cancel = True
    End If
End Sub

Şifre yine 123 olarak ayarlanmıştır dilerseniz şifreyi değiştirebilirsiniz.

 

[h2001]

teşekkürler sn alpi, elinize sağlık.

 

[kemerkayalı]

İlave soru

peki şifrenin *** şeklinde görünmesini sağlamak için koda bir ilave yapmak gerekir mi?

 

[kemerkayalı]

ilave soru

peki şifrenin *** şeklinde görünmesini sağlamak için koda bir ilave yapmak gerekir mi?

 

[Recep İpek]

Aşağıdaki linki inceleyebilirsiniz.


http://www.recursosvisualbasic.com.ar/htm/listado-api/137-inputbox-password.htm

 

[alpi]

İnputbox içindeki metin kutusu için *** karakteri kullanılamıyor fakat dilersek bunu API yardımı ile yapabiliriz.
Bence çok daha pratik bir yolu daha var. İnputbox yerine bir UserForm tasarlayın ve iletişim kutusu olarak kullanın bence daha güzel olacaktır. Hem böylelikle TextBox nesnesinde *** işaretlerini kolayca gösterebilirsiniz.