Пробуйте, пароль на изменение НЕ ПУСТЫХ ячеек в диапазоне А1:F12 - 123
[vba]Код
Public a As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:F12")) Is Nothing And a <> "" Then
x = InputBox("Введите пароля для ищменения ячейки")
If x <> "123" Then
Target.Value = a
End If
End If
a = Target.Value
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
[/vba]