Disable the redX in a form
I added it like this and it doesnt seem to work. Any suggestions?
Dim Message2, Title2, MyValue
Dim Cancel As Integer
Dim CloseMode As Integer
If CloseMode = vbFormControlMenu Then
Cancel = True
Message = "Please Enter Last 5 Digits of Your Card Number"
Title = "AMEX Number" '<--Change
MyValue = InputBox(Message, Title)
If MyValue = "" Then
Sheets("Expense Amex").Protect password:="welcome"
Exit Sub
End If
End If
"Coder1215" wrote:
On Jul 9, 7:16 pm, Ewing25 wrote:
Okay so i have a inputbox that pops up from this code.
Dim Message2, Title2, MyValue
Message = "Please Enter Last 5 Digits of Your Card Number"
Title = "AMEX Number" '<--Change
MyValue = InputBox(Message, Title)
If MyValue = "" Then
Sheets("Expense Amex").Protect password:="welcome"
Exit Sub
End If
Range("Cardholder_Number").AutoFilter
Range("Cardholder_Number").AutoFilter Field:=1, Criteria1:=MyValue,
visibleDropDown:=False
Sheets("Expense Amex").Protect password:="welcome"
On Error Resume Next
What i want to do is make it so they cant press the red X in the top right
of the form. how do i do this?
Thanks,
Alex
Hi Alex,
Try to include following code in your form:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
'message maybe
End If
End Sub
regards
Peter
|