Saving Spreadsheets

[Sergio_Montenegro]

Hi folks, is there any way in which I can make sure that a spreadsheet cannot be saved unless specific cells have data or information entered...

For example if A1 has to have 100 entered and B2 has to have 200 entered, if I try and save it, I get a message that says "Some information is missing, please ensure all appropriate cells are competed correctly" or womething like that... I hope this makes sense.

Thanks in advance

Serge

 

[njimack]

Paste into 'ThisWorkbook' module...

Change "Sheet1" to the name of the sheet in question...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Sheets("Sheet1")
        If .Range("A1") <> 100 Or .Range("B2") <> 200 Then
            MsgBox "Some information is missing, please ensure all appropriate cells are competed correctly", vbCritical, "Oops!!"
            Cancel = True
        End If
    End With
End Sub

 

[Magriza]

Also change the

Private Sub Workbook_BeforePrint(Cancel As Boolean)

to read

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

The above will fire when the user tries to print, not save....

 

[njimack]

Well spotted - thanks for the correction!

Also change the

Private Sub Workbook_BeforePrint(Cancel As Boolean)

to read

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

The above will fire when the user tries to print, not save....

 

[Sergio_Montenegro]

Many thanks folks...