warning or message before saving spreadsheet

M

MissM

I would like to have a message or warning to show up before saving a
spreadsheet template I've made if certain cells have been left empty. Is that
possible?
 
D

Duke Carey

Yes it is.

Right click on a sheet's tab and choose View Code. In Project Explorer (if
it isn't displayed select it from the View menu) double click ThisWorkbook
under your template's name.

Use code something like (change A1 & B1 to reflect the cells that are of
concern to you)
===========================================

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("A1") = "" Or Range("B1") = "" Then
MsgBox "Must complete cells A1 & B1 before closing" _
, vbCritical, "Error"
Cancel = True
End If

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
If Range("A1") = "" Or Range("B1") = "" Then
MsgBox "Must complete cells A1 & B1 before closing" _
, vbCritical, "Error"
Cancel = True
End If

End Sub

===========================================
 
D

Daniel CHEN

Try something like:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range(A1) = "" Then
MsgBox "Err"
End If
End Sub

===== * ===== * ===== * =====
Daniel CHEN

Spreadsheet/VBA Specialist
[email protected]
www.Geocities.com/UDQServices
Your "Impossible" Task Could Be Someone Else's "Piece of Cake"
===== * ===== * ===== * =====
 
Top