Disable Saving option if the condition was not met.

[dellennon]

Dear all,

Could you please help me to write a code to disable the saving option if the condition of the Sheet (called Repeater) and Sheet (called Antenna) were not met? The conditions shall be no cell/s is in "gray" coloured and no cell/s in "strikethrough" text.

Thanks a lot.

 

[doofusboy]

You could do something like this:

Private Sub [B]Workbook_BeforeSave[/B](ByVal SaveAsUI As Boolean, Cancel As Boolean)
     If < code for your conditions here > Then
          ' allow save
          Exit Sub
     Else
[B]          ' don't allow save[/B]
[B]          Cancel = True[/B]
     End If
End Sub

 

[dellennon]

You could do something like this:

Private Sub [B]Workbook_BeforeSave[/B](ByVal SaveAsUI As Boolean, Cancel As Boolean)
     If < code for your conditions here > Then
          ' allow save
          Exit Sub
     Else
[B]          ' don't allow save[/B]
[B]          Cancel = True[/B]
     End If
End Sub

Thanks but sorry for my dumbness, could you help me to put the conditions? i don't know how to do it...