Excel - Allows SaveAs Only

[Hack]

Well in that case, Hack, would you like the user not to be able to exit by clicking on 'X' button? Each time the user clicks on the 'X' button, he will be prompted to do a Save As... If Yes then this should help...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not saveasUI = True Then
        MsgBox "Please use Save As To Save this File"
        Cancel = True
    End If
End Sub

If you don't want the user to exit by clickin on the 'X' button then simply use the above code without the MSGBOX....

Hope this will satisfy the department manager

What is: saveasUI?

Is that a variable I need to declare or Excel will yell at me?

[RobDog888]

What is: saveasUI?

Is that a variable I need to declare or Excel will yell at me?

Its from the BeforeSave event. Set it depending on if you want the Save As dialog box to be displayed or not

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    '
End Sub

[Siddharth Rout]

What is: saveasUI?

Is that a variable I need to declare or Excel will yell at me?

Nah you do not need to declare it. The code below can be used to stop any users saving a Workbook as another name and another location. The code must be placed in the Private Module of the Workbook Object (ThisWorkbook). The fastest way to get there is to right click on the Excel icon, top left next to File and select View Code. It is in here you should place the code below and then save the Workbook. So long as the Workbook is opened with macros enabled the code will fire anytime any user tries to clcik on the 'X' button.

hope this helps...

edit: Ah Rob beat me to it