Snasui Excel Forum

Code: Select all

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: Select all

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: Select all

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