BeforeSave and Userform: Issues with saving the excel file

[paulked]

This disables the X :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "Sorry, this button is disabled.", vbOKOnly, "'X' not in use!"
    End If
End Sub