Stop Save as code

[alex.ferrazza]

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

 

[fujing1003]

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

You could use a boolean value to specify whether all the fields are
filled in.
And then only save workbook when the value is true, false to cancel.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Not mbAllFilled Then 'mbAllFilled is used to specify whether all
the fields are filled in.
Cancel = True
MsgBox "Please fill all of fields before you save it!"
End If
End Sub

 

[Jim May]

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

 

[Dave Peterson]

The replies to your other thread include a line like:

Cancel = True

That line stops the Save.

ps. It's better to stick in the same thread when you have followup questions.