Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Locked = True Then
MsgBox "No!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Как изменить диалог выскакивающий при попытке изменения защищенной ячейки в Excele
Задача: пользователь попытался изменить защищенную ячейку и выскачил диалог ячейка защищена, Как можно изменить этот диалог (убрать абривиатуры Excel)и поставить свои коментарии?
Подскажите пожалуйста.
Подскажите пожалуйста.
Цитата:
Originally posted by Vladimer
Задача: пользователь попытался изменить защищенную ячейку и выскачил диалог ячейка защищена, Как можно изменить этот диалог (убрать абривиатуры Excel)и поставить свои коментарии?
Подскажите пожалуйста.
Задача: пользователь попытался изменить защищенную ячейку и выскачил диалог ячейка защищена, Как можно изменить этот диалог (убрать абривиатуры Excel)и поставить свои коментарии?
Подскажите пожалуйста.
Могу предложить такой способ:
"Защита своими силами." Защиту листа снимаешь, а в модуль листа вставляешь такую штуку:
Код:
Есть существенный недостаток. Можно ввести число в другом месте и скопировать в нужное.
Еще есть в Экселе удобная штука - в меню Данные/Проверка. Поэкспериментируй с ней, может тебе понравится. Она к несчастью имеет тот же самый "существенный недостаток".
Задача: пользователь попытался изменить защищенную ячейку и выскачил диалог ячейка защищена, Как можно изменить этот диалог (убрать абривиатуры Excel)и поставить свои коментарии?
Дело в том, что не все ячейки должны быть полностью блокированы для пользователей и к тому же на листе есть рисованные объекты, которые тоже должны быть защищены от пользователей.
Предложенный вариант не решает этой задачи
Может быть есть другие пути решения проблемы?
Дело в том, что не все ячейки должны быть полностью блокированы для пользователей и к тому же на листе есть рисованные объекты, которые тоже должны быть защищены от пользователей.
Предложенный вариант не решает этой задачи
Может быть есть другие пути решения проблемы?