Prevent Save as

[luckycharm]

This has been asked before (and answered), but somehow
does not work for me.

I put this code in 'this workbook':

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

I have also seen it with this alteration (inserted correctly):

' If SaveAsUI Then
' End If

1. If the user disables macros - it doesn't work?!
2. Whats the diferrence between the original code and the alteration?

Thanks.

 

[tusharm]

This is an exercise in futility. Unless you can figure out how to stop someone from *every* other method of making a copy, both within XL and using other programs, why bother?

This has been asked before (and answered), but somehow
does not work for me.

I put this code in 'this workbook':

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

I have also seen it with this alteration (inserted correctly):

' If SaveAsUI Then
' End If

1. If the user disables macros - it doesn't work?!
2. Whats the diferrence between the original code and the alteration?

Thanks.

 

[luckycharm]

Ok. I have taken some time to search around and agree with you.

Could you just enlighten me with answer to my 2nd. question?

Cheers.

 

[Gary Bailey]

SaveAsUI returns whether the Save As dialog will be displayed.

Adding that code around the "Cancel=True" will prevent the user Saving As (but not regular saving).