в модуль листа
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Range("A1").Value = "ВНЕСТИ ИСПОЛНИТЕЛЯ!" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
MsgBox "Вы не внесли исполнителя!!!"
Else
ActiveSheet.Unprotect
End If
End Sub
[/vba]
в модуль книги
[vba]Код
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Лист1").Activate
ActiveSheet.Range("A1").Value = "ВНЕСТИ ИСПОЛНИТЕЛЯ!"
End Sub
[/vba]
[p.s.] прошу сильно не пинать, проба пера