สร้าง UserForm เป็นตัวล็อกอิน อยากให้เปลี่ยนพาสเวิร์ดได้

[prajak12]

พอดีว่าผมสร้าง UserForm เป็นตัวล็อกอิน เพื่อเข้าใช้งาน Excel ถ้าใส่พาสเวิร์ดหรือยูสเซอร์ผิด โปรแกรมจะปิดตัวเอง ตามตัวอย่าง
สิ่งที่อยากได้เพิ่ม
- อยากให้สามารถใส่รหัสผิดได้ 3 ครั้ง , พอใส่ผิด 3 ครั้ง ค่อยปิดโปรแกรม
- อยากผู้ใช้งานสามารถเปลี่ยน พาสเวิร์ด ได้เอง โดยที่เราต้องไม่ต้องเปลี่ยนให้

ไฟล์แนบ
Username = username
Password = password

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim i As Integer
Private Sub CommandButton1_Click()
    Dim username, password As String
    
    username = TextBox1.Text
    password = TextBox2.Text
    
    If username = "username" And password = "password" Then
        MsgBox "ÂÔ¹´Õµé͹ÃѺà¢éÒÊÙèÃкº", vbInformation
        Unload Me 'unload this form
    Else
        i = i + 1
        If i < 3 Then
            MsgBox "Username ËÃ×Í Password äÁè¶Ù¡µéͧ", vbCritical
            'now close the workbook
        Else
            Application.DisplayAlerts = False
            Application.Quit
        End If
    End If
End Sub