Snasui Excel Forum

Posted: **Wed Jul 20, 2011 9:38 pm**

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

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

Posted: **Wed Jul 20, 2011 9:49 pm**

ลองเพิ่ม 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

Posted: **Wed Jul 20, 2011 10:30 pm**

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

Snasui Excel Forum

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

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

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

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