Thanks Geoff
I didnt try it yet but are you saying that it is not doable to override
this message box then?
Many thanks for your effort.
Peddie
Geoff Harrison wrote:
"Geoff Harrison" wrote:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


If Worksheets("Sheet1").Protect = True Then
MsgBox "Protected"
End If
End Sub

Actually, reviewing what I've just posted ... ignore this section ... makes
no difference.

--
Quacking Eck!
It''s The Duck!