Açılışta UserForm görünsün

[ahmett46]

slm
UserFormla kullanıcı adı ve şifreyle programa giriyorum. Dosyayı ilk açtığımda excel sayfası görünmesin sadece kullanıcı adı ve şifreyi girdiğim UserForm görünsün ve giriş düğmesine tıkladığımda UserForm kapanıp excel sayfasına geçmesini istiyorum. Kod aşağıdaki şekildedir.
Option Explicit

Dim kullanici_adi(2, 3) As String
Dim şifreler(2, 3) As String

Private Sub CommandButton41_Click()
On Error GoTo Exit_Sub:

If TextBox1.Text = kullanici_adi(1, 1) And TextBox2.Text = şifreler(1, 1) Then
MsgBox ("SİSTEME GİRİŞİNİZ ONAYLANMIŞTIR!")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(2, 1) And TextBox2.Text = şifreler(2, 1) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(1, 2) And TextBox2.Text = şifreler(1, 2) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_Sub
End If

MsgBox ("MAALESEF DOĞRU GİRİŞ YAPMADINIZ..AÇMAYA ÇALIŞTIĞINIZ SAYFA KAPATILACATIR.!")
TextBox1 = ""
TextBox2 = ""
ThisWorkbook.Close
Exit_Sub:
UserForm1.Hide
Exit Sub

End Sub
Private Sub UserForm_Activate()
'Kullanıcı adları tanımlanıyor
kullanici_adi(1, 1) = "tuğçe"
kullanici_adi(2, 1) = "tuğçe"
kullanici_adi(1, 2) = "tuğçe"

'Şifreler tanımlanıyor
şifreler(1, 1) = "2005"
şifreler(2, 1) = "2005"
şifreler(1, 2) = "2005"
şifreler(2, 2) = "2005"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Buradan Kapatıp Sayfaya Ulaşacağını Sanma Üzgünüm..!"
Cancel = True
End If
End Sub

nasıl bir değişiklik yapmalıyım. Teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[ahmett46]

Sayın Orion2
Sub Autpen()
Application.StatusBar = "..................................."
Sheets("..........").Select
End Sub
Makrosu var Dolayısıyla Sub Autpen() ikinci defa kullanıldığı için hata veriyor. Başka yolla yapmamız mümkünmü? Teşekkürler

 

[ahmett46]

yardımmmm lütfenn

 

[Orion1]

Sayın Orion2
Sub Autpen()
Application.StatusBar = "..................................."
Sheets("..........").Select
End Sub
Makrosu var Dolayısıyla Sub Autpen() ikinci defa kullanıldığı için hata veriyor. Başka yolla yapmamız mümkünmü? Teşekkürler

Autpen makrosunun en altına kodları koydum.Kırmızı renkli kodları ilave ediniz.

Sub Auto_Open()
Application.StatusBar = "..................................."
Sheets("..........").Select
[COLOR="Red"]application.visible=false
userform1.show[/COLOR]
End Sub

 

[Erdal]

Merhabalar
sn. Orion2 yapmış olduğunuz çalışmada kullanıcı adı ve şifresinin olduğu gibi değilde yıldız veya başka bir şekilde gözükmesini sağlayabilirmiyiz.
İyi bayramlar iyi çalışmalar

 

[Skorpiyon]

Sorunuzu Sayın Orion2'ye sormuşsunuz ama kendisinin affına sığınarak cevaplamak isterim.

Yapılacaklar,
Programda Alt+F11 tuşu ile VBA bölümüne geçin. Formun üzerindeki Textbox nesnesini (veya nesnelerini) tutun. Properties bölümünden PasswordChar özelliğinin karşısına * (yıldız imi) koyarsanız programı çalıştırdığınızda kullanıcı adı veya şifre girerken bundan sonra yalnızca yıldız, atıyorum a harfi koyarsanız yalnızca a harfi çıkar.

 

[Orion1]

Sorunuzu Sayın Orion2'ye sormuşsunuz ama kendisinin affına sığınarak cevaplamak isterim.

Rica ederim.
Ayrıca cevapladığınız için teşekkür ederim.

 

[Erdal]

Teşekkür ederim Allah razı olsun sn. Sertkaya
İyi çalışmalar

 

[ahmett46]

Sn Orion2 hata veriyor. Neden kaynaklanabilir

 

[Orion1]

Sn Orion2 hata veriyor. Neden kaynaklanabilir

Hangi satırda hata veriyor.
Veya dosyanızı yollayında bir bakalım.

 

[ahmett46]

Microsoft Visual Basic

Run-time error '400':
From already displayed;can't show modally

End Help
şeklinde uyarı çıkıyor End dediğimizde kapanıyor

 

[Orion1]

Aşağıdaki şekilde deneyiniz.

userform1.show 1

 

[ahmett46]

yine olmadı hocam dosya ektedir

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[ahmett46]

Hocam teşekkür ediyorum nerde nasıl bir değişiklik yaptığınızı bulamadım. Keşke onu da yazsaydınız öğrenmiş olurduk.

 

[ahmett46]

Tamamdır hocam ThisWorkbook taymış problem teşekkürler

 

[ahmett46]

Tamamdır hocam ThisWorkbook taymış problem teşekkürler