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

The above Is the basic "to Cancel any SaveAs attempt" - maybe add as If then
statement to perform the Cancel = SaveAsUI line...

HTH,

Jim


" wrote:

Hi there guys,

is there a code to stop a user to save as if not all fields are filled
in?

thanks for your help

alex