thisworkbook kısmında bu kodları kullanıyorum ve yetkili şifre girmeden save edilmesini engelleiyorum fakat şifre girerken şifre görünüyor ben yıldız olarak görünmesini istiyorum..
Üstadlar el atarsa sevinirim...
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("2007 Yaz Sezon Kataloğu Olduğundan Kayıt İçin Yetkili Şifre Girmelisiniz.", _
"ADMIN ", "Yetkili Şifre")
If sifre = "amphetamine" Then
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Kayıt Başarısız", vbCritical, "Geçersiz Şifre"
Cancel = True
End If
End Sub
Üstadlar el atarsa sevinirim...
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("2007 Yaz Sezon Kataloğu Olduğundan Kayıt İçin Yetkili Şifre Girmelisiniz.", _
"ADMIN ", "Yetkili Şifre")
If sifre = "amphetamine" Then
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Kayıt Başarısız", vbCritical, "Geçersiz Şifre"
Cancel = True
End If
End Sub