Kullanıcı girişini kapatırken excelli kapatma

[crazy34]

Arkadaşlar merhaba,



böyle bir kullanıcı girişi yaptım. Şu kodları kullandım;

Private Sub CommandButton1_Click()
If TextBox1.Text = "abcde" And TextBox2.Text = "12345" Then
MsgBox "Hoşgeldiniz ....... Bey", vbExclamation, "Tebrikler"
Unload UserForm1


Else
MsgBox "Sen ....... Bey Değilsin", vbInformation, "Hata Mesajı"
TextBox1.Text = ""
TextBox2.Text = ""
End If

End Sub

Private Sub CommandButton2_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

bu kodlarla kullanıcı giriş çıkışı çalışıyor.

Excel'i açıyorum bu ekran çıkıyor kullanıcı ismi ve şifreyi yazıyorum açıyor.
Çıkışı tıkladığımda excel sayfasını kapatıyor.

Fakat sağ köşedeki kapat tuşuna basıp bu arayüzü kapattığımda hiç şifre istemiyormuş gibi kapatıyor.

Ben istiyorum ki ekranı kapatmaya çalışınca excel sayfasını kapatsın veya "kullanıcı adınızı ve şifrenizi girmeniz gerekmektedir" gibi bir ileti gelsin veya o kapatma tuşu hiç olmasın bu mümkün mü acaba?

 

[vardar07]

Kapatmayı engeller uyarır.

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox ("Bak Kızıyorum Haa Çıkış Düğmesini Kullanınız")
Cancel = 1
End If
'End Sub

 

[crazy34]

Kapatmayı engeller uyarır.

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox ("Bak Kızıyorum Haa Çıkış Düğmesini Kullanınız")
Cancel = 1
End If
'End Sub

hocam kullandım çok sağolun teşekkür ediyorum.

Birde bu kullanıcı girişine ikinci bir kişi nasıl ekleyebilirim acaba?

excelde kullanıcı (j6) : abcde (J7) yazıyor şuan. Bu ikinci kişi girdiğinde oranında yani (J7)'nin giren kişinin isminin yazmasını istiyorum. Bu ikisini nasıl yapabilirim acaba?

 

[yenilik025]

Kapatmayı engeller uyarır.

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox ("Bak Kızıyorum Haa Çıkış Düğmesini Kullanınız")
Cancel = 1
End If
'End Sub

Hocam biraz değişik benim sorum da

Kullanıcı adı ve şifre girişinde web sitelerinde çıkan rastgele sayı şeklindeki sayıyı formumuza nasıl ilave edebiliriz ?