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

[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