User form กับ การใส่ PassWord

[Panuwat]

ขอความอนุเคราะห์ให้อาจารย์ เขียนโค้ด ต่อ เมื่อคลิ๊กปุ่มเพื่อเข้าหน้าจอ "ข้อมูลลับ"จะshow user form ให้ใส่ password สมมุติให้เป็น "1234" ก่อนที่จะเข้า sheet "ข้อมูลลับ" ถ้าใส่ถูกก็เข้า sheet "ข้อมูลลับ" แต่ถ้าไม่ถูก ให้ขึ้น message box "คุณใส่รหัสผิด"ครับ ตามไฟล์แนบครับ

ขอแสดงความนับถือ

[snasui]

ลองเพิ่ม Code ตามไฟล์แนบครับ

Code: Select all

Private Sub CommandButton1_Click()
If password.pass_text1 = "1234" Then
    Worksheets("ข้อมูลลับ").Select
    Unload Me
Else
    MsgBox "คุณใส่รหัสผิดครับ"
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

[Panuwat]

ขอบพระคุณมากครับท่านอาจารย์