Disabling Save Upon Exit

[Elena]

I am trying to diable the users ability to save the document upon exit. I
want them to be required to save the file under a different name.

The code works, yet when I put in my .NET application, upon closing the
form, it allows the user to Save instead of Save As.

Here's the code I have below:
Private Sub workbook_open()

'With CommandBars("File")
With Me.Application.CommandBars("File")
..Controls(4).Enabled = False 'Save Button

End With
Me.Application.CommandBars("standard").Controls("Save").Enabled = False
Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=748, Recursive:=True).OnAction = "Macro1"
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Me.Application.CommandBars("File")
.Controls(4).Enabled = True
End With

Me.Application.CommandBars("Standard").Controls("Save").Enabled = True

strAnswer = MsgBox("Would you like to save the Expense Report?",
vbYesNoCancel)
If strAnswer = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show "C:\New_Expense_Report.xls"
Else
Exit Sub
End If


Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=748, Recursive:=True).OnAction = ""

End Sub

Sub Macro1()
Application.Dialogs(xlDialogSaveAs).Show "C:\New_Expense_Report.xls"
End Sub


Any advice would be greatly appreciated!
Thanks,
Elena

 

[cscorp]

The easiest way to do that is to set application level events, the
intercept the call to the save method and cancel the operation b
setting the cancel property to true. Let me know if you need the cod
to the that

 

[Elena]

If you could please send that code, it would be fantastic!

Thank you,
Elena

 

[cscorp]

Elena,

I prepared a spreadsheet with the code so you can see and test the
functionality. The spreadsheet is attached. Let me know if it is what
you need

Best regards

Juan Carlos

 

[cscorp]

Elena,

If you save the original file as read only when a password for
modification, the user will be automatically forced to "Save As" to
keep any changes made to the original. Is that what you need?

Thanks.

Juan Carlos

 

[Elena]

This might be silly question... but how do I get the attachmentment? I can't
seem to find the link.

Thanks again,
Elena

 

[cscorp]

Hi..

Just a follow up. Is your problem solved ?

Regards
Juan Carlo