Snasui Excel Forum

ขอบคุณคุณ bank9597 มากครับ ตรงตามความต้องการเลยครับ

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "คุณไม่สามารถปิดฟอร์มได้", vbCritical
    End If
End Sub

:D ลองใช้ใช้โค๊ดนี้ดูครับ

[code]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "คุณไม่สามารถปิดฟอร์มได้", vbCritical
End If
End Sub[/code]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Cells(1, 1).Text = "M1" Then
                Exit Sub
            Else
                Pasform1.Show
        End If
    End If
End Sub

Private Sub CommandButton1_Click()
    If Pasform1.TextBox1.Text = "admin" Then
            MsgBox "Password is correct ;)"
            Unload Pasform1
        Else
            MsgBox "Password is incorrect!!"
            Unload Pasform1
            Sheets("sheet1").Cells(1, 1).Value = "M1"
    End If
End Sub

เรียนอาจารย์ และสวัสดีเพื่อนๆ ครับ

ผมต้องการกำหนดสิทธิ์ผู้ใช้ที่จะเลือกใส่ค่าในเซลล์ A1 เฉพาะผู้ที่มีรหัส admin เท่านั้นจึงแก้ไขค่าได้ เขียนโค้ดโดยการสั่งให้เมื่อมีการแก้ไขค่าในเซลล์ A1 แล้ว ให้เรียก user form ออกมาเพื่อใส่รหัสให้ถูกต้อง หากใส่ผิด ค่าในเซลล์ A1 จะกลับไปเป็นค่าปกติ (คือ M1) แต่ผมเจอปัญหาคือ หากผู้ใช้ปิด user form (กดปุ่ม x) โดยที่ไม่จำเป็นต้องกรอกรหัส ค่าใน A1 ก็ยังจะอยู่ตามที่พิมพ์เอาไว้ ผมจะป้องกันไม่ให้ผู้ใช้ปิด user form ได้อย่างไรครับ

โค้ดที่ใช้ตามด้านล่างครับ
ที่ Sheet1;
[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Cells(1, 1).Text = "M1" Then
Exit Sub
Else
Pasform1.Show
End If
End If
End Sub[/code]

ที่ User Form (ชื่อ Pasform1);
[code]Private Sub CommandButton1_Click()
If Pasform1.TextBox1.Text = "admin" Then
MsgBox "Password is correct ;)"
Unload Pasform1
Else
MsgBox "Password is incorrect!!"
Unload Pasform1
Sheets("sheet1").Cells(1, 1).Value = "M1"
End If
End Sub[/code]

ขอบคุณครับ