Prevent save as with VBA

[Dark0Prince]

<code>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    MsgBox "You can't save this workbook!"
    Cancel = True

End Sub

I can't seem to prevent the user from saving as and creating a new workbook, and yet still allow them to save the workbook regularly.
</code>

 

[mumps]

Try:

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

 

[Fluff]

Try

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
   MsgBox "You can't save this workbook!"
   Cancel = True
End If
End Sub

 

[Dark0Prince]

It is still allowing me to save as it.

 

[Fluff]

Did you put the code in the ThisWorkbook module of the relevant workbook?
Both codes work for me.

 

[Dark0Prince]

Works I just had to put the code in workbook instead of sheet1

 

[Fluff]

Glad it's sorted & thanks for the feedback