Userform da sağlıklı şifreleme yapamıyorum

[bennidetto]

Merhaba

Userformda oluşturmuş olduğum sayfa açılışında şifre ve parola işlemi sormakta.Fakat herhangi bir değer girmeden "tamam" ı tıkladığımızda "malesef doğru giriş yapmadınız" uyarısı gelmekte bundan sonra ise micrasoft excel in kendi uyarısı geliyor buradan ise iptal tıklandığında sayfaya giriş yapılabiliyor...Dolayısıyla hazırlamış olduğum şifreleme bir işe yaramıyor.
Workbook 'u ekliyorum.Yardımcı olursanız sevinirim....
( kullanıcı adı : PCD ,şifre : PCD )


Saygılarımla
İyi çalışmlar....

 

[metinozlu]

iki satır kod ekledim denedim yanlış paraloda kapanıyor
MsgBox ("Maalesef doğru giriş yapamadınız. Program kapatılacaktır.!")
TextBox1 = ""
TextBox2 = ""
ThisWorkbook.Close'bu kodu ekle
Workbooks("kitap1").Save'bu kodu ekle

Application.Quit

 

[bennidetto]

Çok teşekkür ederim yardımın için....

Saygılarımla...
İyi çalışmalar....