userformlar hk.

[MES_ELE]

:kafa: arkadaşlar benim bir hayli uğraşıp yapamadığım şu: bir çalışma dosyanın açılışında userform1 ile şifre sorup dosyayı açarken direk olarak userform2 nin açılmasını ve userform2 deki bir butonlada userform3 ün açılmasını sağlayan förmülleri yerleştiremedim yardımlarınızı bekliyorum

 

[serinci]

Sayın ELE;

Aşağıdaki Kod Þifre girildikten sonra onay tuşluna bastıktan sonra Userform2 ye geçiş yapar.

Private Sub CommandButton1_Click()
If TextBox1.Value = "dstprs4690" Or TextBox1.Value = "DSTPRS4690" Or TextBox1.Value = "001636" Or TextBox1.Value = "KESER" Or TextBox1.Value = "keser" Or TextBox1.Value = "serinci" Or TextBox1.Value = "SERİNCİ" Then
Unload Me
Userform2.Show
Else
MsgBox "Yanlış veya Eksik Þifre Girdiniz. Tekrar Deneyiniz!", vbCritical, "Geçersiz Þifre"
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

Daha sonra Userform3 e geçiş için Userform2 üzerine koyabileceğiniz bir Command button veya X işaratine atayacağınız bir makreoya

Unload me
Userform3.Show

komutlarını içeren bir makro atarsanız istediğiniz sanırım olur.
Ã?rneğin;

Private Sub Terhisbil_Click()
Unload Me
TERHIS.Show
End Sub

 

[MES_ELE]

teşekkürler