So if I open your workbook and do about 80% of the data entry, I can't save my
work if I'm interrupted--Maybe it's time to go home. Maybe I have something
important to do. Maybe I just like saving after I spend a lot of time entering
data. Maybe I have to do some research--depending on another person and they're
not available.
So you want to make it so that I can't save my work. You want me to discard
those changes and start over later?
If the user doesn't disable macros and doesn't disable events, then you could
use a macro. This goes behind the ThisWorkBook module:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim myRng As Range
With Me.Worksheets("Sheet999")
Set myRng = .Range("a1:a12,c13,d44:d55")
End With
If Application.Count(myRng) <> myRng.Cells.Count Then
MsgBox "you can't save this!"
Cancel = True
End If
End Sub
I really don't like this kind of thing (from a user standpoint).
If I were doing it, I would create a new worksheet. Name it something like
"Errors and Warnings"
And put a bunch of formulas in column A that do your validation checks. And
then put a nice short description in column B (to whatever).
In a2:
=if(sheet999!a1<>"","ok","Error")
in b2:
You have to complete the entry for xxxxx in A1 of Sheet999
Then apply data|filter|autofilter to column A. Hide the values that return Ok.
