ورود با داشتن رمز ورود

[ali719]

سلام
من یک دکمه قرار دادم که با زدن روی آن فرمی باز می شود میخوام کدی بنویسم که اگر رمز وارده صحیح باشد شیت 2 را نمایش دهد و الا پیغام دوباره رمز را وارد کند را به من بده
با تشکر

[misammisam]

با سلام

Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then
Sheets("Sheet2").Select
TextBox1.Text = ""
UserForm1.Hide
Else
MsgBox "ÑãÒ ÇÔÊÈÇå ÇÓÊ ¡áØÝÇ ÏæÈÇÑå ÓÚí ßäíÏ"
End If
End Sub 

رمز 123