สอบถามเรื่อง Code VBA UserForm

[AUTO_FOCUS]

รบกวนสอบถามเรื่อง Code VBA ครับ
- ผมต้องการสร้าง Login เข้าไฟล์ Excel ของผมแบบมีเงื่อนไขครับ
--- เงื่อนไขคือ ถ้า Login ด้วย Username "PDholderadmin" Password "Holder606561" แล้วกด Login ให้โชว์ทุก Sheet
----- แต่ถ้ากดปุ่ม General user ให้โชว์แค่ Sheet1 และ Sheet2

*แต่ตอนนี้ติดปัญหาอีกอย่างคือ กดปุ่ม กากบาทแล้ว ก็สามารถเข้าไฟล์ได้ อยากให้กดกากบาทแล้วออกจากไฟล์ด้วยครับ

[snasui]

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

Code: Select all

    Dim username, password As String
    Dim sh As Worksheet
    username = TextBox1.Text
    password = TextBox2.Text
    
    If username = "PDholderadmin" And password = "Holder606561" Then
        For Each sh In Worksheets
            sh.Visible = xlSheetVisible
        Next sh
        MsgBox "Welcome to Production Holder Report For Admin"
        
        Unload Me
    
    Else
        For Each sh In Worksheets
            If sh.Index > 2 Then
                sh.Visible = xlSheetHidden
            End If
        Next sh
        MsgBox "Username or Password Error!!!!!"
        ActiveWorkbook.Close
    
    End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        ThisWorkbook.Close False
    End If
End Sub

[AUTO_FOCUS]

--- เงื่อนไขคือ ถ้า Login ด้วย Username "PDholderadmin" Password "Holder606561" แล้วกด Login ให้โชว์ทุก Sheet
----- แต่ถ้ากดปุ่ม General user ให้โชว์แค่ Sheet1 และ Sheet2

เงื่อนไข 2 ข้อนี้ผมยังทำไม่ได้ครับ รบกวนด้วยนะครับ

[snasui]

ทำความเข้าใจ Code ที่ผมปรับไปให้แล้วนำไปใช้กับปุ่ม General User คิดว่าไม่ยากจนเกินไป ลองปรับมาเองก่อน ติดตรงไหนค่อยถามกันต่อ ทุกความต้องการกรุณาปรับปรุงเอง Code มาก่อนเสมอครับ

[AUTO_FOCUS]

ขอบคุณครับ

[AUTO_FOCUS]

ผมยังไม่ค่อยเข้าใจ code VBA ครับ รบกวนอธิบายได้ไหมครับ

[snasui]

ไม่เข้าใจ Code ที่ผมเขียนไปตรงบรรทัดไหน ยกมาถามได้เลยครับ