User Form Hakkında

[SELIMT]

Değerli forum üyeleri;

Çalışmamda bulunan Userform ile ilgili yardımlarınıza ihtiyacım olacak.

1 - Excel dosyasını açınca direk userform gelsin.
2 - Bu userformdan excele dönmek istediğim zaman bir şifre istesin.

 

[ffesto]

bir modül içerisine bu kodları yapıştırın

Sub auto_open()
Application.Visible = False
userform1.Show
End Sub

buda excele şifreli geçiş için;

Private Sub CommandButton1_Click()
Dim sifre As Integer, benimsifrem As Integer
benimsifrem = 1234
sifre = InputBox("Sifre Giriniz.")
If sifre = benimsifrem Then
Application.Visible = True
userform1.Hide
Else
MsgBox ("Hatalı şifre,yeniden deneyiniz.")
End If

 

[SELIMT]

Çok teşekkür ediyorum. Ellerinize sağlık.
Kısa bir ilave olarak, şifre girişi esnasında girilen şifrenin yıldız olarak gözükmesi mümkün mü?
User formun köşedeki x işareteni basınca userformu kapatıyor ama excel çalışma sayfası arka planda çalışıyor gözüküyor. Bu x e basınca komple çıkması mümkün mü?

 

[ffesto]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True

End Sub

bu kodu yazarsanız x işareti çalışmaz çıkış için bir buton kullanırsınız.

Private Sub CommandButton1_Click()
Dim sifre As Integer, benimsifrem As Integer
benimsifrem = 1234
sifre = textbox1.value
If sifre = benimsifrem Then
Application.Visible = True
userform1.Hide
Else
MsgBox ("Hatalı şifre,yeniden deneyiniz.")
End If

burada yapacağınız ufak değişiklik inputbox yerine textbox kullanmak, koyduğunuz textbox 'ın özellikler kısmında 'Passwordchar' yazan yerin yanına '*' koyarsanız parola **** şeklinde görünecektir.

 

[SELIMT]

Tekrar çok teşekkür ederim. Beni büyük bir sıkıntıdan kurtardınız.

 

[ffesto]

Tekrar çok teşekkür ederim. Beni büyük bir sıkıntıdan kurtardınız.

Rica ederim yardımcı olduysam ne mutlu...