VBA Excel เปิด WorkBook ไม่ได้

[Aoonne]

รบกวนสอบถามค่ะ

ตอนนี้ ไม่สามารถเปิด WookBook ได้ ตามภาพ ไม่ทราบว่าเกิดจากสาเหตุอะไรคะ และต้องแก้ไขอย่างไร

คือตอนนี้ทำอะไรไม่ได้เลย งานก็ไม่เสร็จ ทำต่อไม่ได้เลยค่ะ

[snasui]

กรุณาแนบไฟล์ VBA ที่มีปัญหามาด้วยจะได้ช่วยตรวจสอบได้ครับ

[Aoonne]

แนบไฟล์ค่ะ

ปัญหาตอนนี้คือ หลังจากเปลี่ยนหน้า login ใหม่ เป็นแบบ UserForm
ไม่สามารถทำให้เปิดไฟล์ excel ขึ้นมาแล้ว UserForm สำหรับใส่ username และ password แสดงขึ้นมาทันที
เมื่อจะเข้าไป เวิร์กบุ๊กเพื่อจะเพิ่ม

Code: Select all

 

Private Sub Workbook_Open ()
           UserForm2.Show
End Sub

 

ก็เปิดเวิร์กบุ๊กไม่ได้ค่ะ

[snasui]

ลองปรับ Code เป็นด้านล่าง

กรุณาศึกษาการเยื้อง Code ให้ง่ายต่อการเขียน ง่ายต่อการอ่าน ดังที่แนบมานี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim username As String, password As String
    
    username = TextBox1.Text
    password = TextBox2.Text

    With ThisWorkbook
        If username = "user1" And password = "n2pvfm" Then
            .Sheets("SlipUser1").Visible = True
        ElseIf username = "admin0" And password = "en6szdrf" Then
            'Sheets("Password").Visible = True
            .Sheets("Employee").Visible = True
            .Sheets("ComboBox").Visible = True
            .Sheets("Data").Visible = True
            .Sheets("Retrieve").Visible = True
            .Sheets("TemplateUser").Visible = True
            'Sheets("SlipAll").Visible = True
            .Sheets("SlipUser1").Visible = True
            .Sheets("SlipUser2").Visible = True
            .Sheets("SlipUser3").Visible = True
        ElseIf username = "admin1" And password = "wsrfz37p" Then
            .Sheets("Employee").Visible = True
            .Sheets("Data").Visible = True
            .Sheets("Retrieve").Visible = True
            .Sheets("TemplateUser").Visible = True
            'Sheets("SlipAll").Visible = True
            .Sheets("SlipUser1").Visible = True
            .Sheets("SlipUser2").Visible = True
            .Sheets("SlipUser3").Visible = True
        Else
            MsgBox "Username or Password is Incorrect!!!"
        End If
    End With
End Sub