Вот так защищаются формулы листа[vba]Код
Sub Formula_Protect_with_CellValidation()
If ActiveWindow.RangeSelection.SpecialCells(xlCellTypeFormulas) Is Nothing Then Exit Sub
ActiveWindow.RangeSelection.SpecialCells(xlCellTypeFormulas).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, Formula1:="="""""
.ErrorTitle = "В ячейке формула!": .ErrorMessage = "Ввод данных запрещён" & vbCrLf & "Нажмите ""ОТМЕНА"""
.ShowError = True
End With
End Sub
[/vba]По аналогии с этим просто измените Selection на нужные Вам ячейки и текст в .ErrorTitle