Cancel beforeSave

[MimiTchoupie]

Hello,

I have a problem with my Private Sub BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) and it's driving me nuts ! I hope somebody will be able to help.

I had a code to cancel every save and it worked ! (th code down there)

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

I had to disable it temporarily (by adding ' ) . What happened next is almost hyllarious : I reactivated it and, as the code is made for unabling the saves, I CAN'T SAVE MY CODE !

I'm desperate... please help me !

 

[MimiTchoupie]

hat happened next is almost hilarious : I reactivated

 

[Candyman8019]

You can have it allow only you to save, for example:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Environ("UserName") <> "enter your userID here" Then Cancel = True
End Sub

 

[MimiTchoupie]

Thank you sooo so much ! It worked AND, I was able to use this function I didn't know for an other macro and it also work. Love this !

 

[Candyman8019]

Right on! Happy to help.