Veri değiştirirken uyarı alma

Katılım
21 Temmuz 2004
Mesajlar
15
Herkese merhaba benim bir excel çalışma kitabım var ve bu kitaba bilgi girip kitabı kapadıktan sonra bu kitaba tekrar girdiğimde bir önceki kaydettiklerimi değiştirmek istersem bana uyarı mesajı vermesini istiyorum acaba bu özellikte bir makro var mıdır?Þimdiden teşekkürler
 
X

xxrt

Misafir
Eğer Sizin çalışma kitabınızı sizden başkasının değiştirip kaydetmesini istemiyorsanız ki sorunuzdan bunu anladım şöyle bir koruma altına alabilirsiniz.Kodları ThisWorkbooka yazın.Kayıt şifresi:xxrt
Kod:
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("Kayıt için şifreyi girmelisiniz", _
"KAYIT", "şifre girin")
If sifre = "xxrt" Then
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAÞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Dosya kaydedilemedi", vbCritical, "HATALI ÞİFRE"
Cancel = True
End If
End Sub
 
Üst