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, then intercept the call to the save method and cancel the operation by setting the cancel property to true. Let me know if you need the code to the that.

[Elena]

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

Thank you,
Elena

"cscorp" wrote:

>
> The easiest way to do that is to set application level events, then
> intercept the call to the save method and cancel the operation by
> setting the cancel property to true. Let me know if you need the code
> to the that.
>
>
> --
> cscorp
> ------------------------------------------------------------------------
> cscorp's Profile: http://www.excelforum.com/member.php...o&userid=24015
> View this thread: http://www.excelforum.com/showthread...hreadid=376339
>
>

[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" wrote:

>
> 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
> ------------------------------------------------------------------------
> cscorp's Profile: http://www.excelforum.com/member.php...o&userid=24015
> View this thread: http://www.excelforum.com/showthread...hreadid=376339
>
>

[cscorp]

Hi..

Just a follow up. Is your problem solved ?

Regards
Juan Carlos