Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
End Sub
Как избавиться от вывода сообщения о защите листа?
Имеется защищенный лист (в нужный момент защита программно снимается), в котором определен диапазон для ввода данных. Ввод можно осуществлять даблкликом мыши используя процедуру листа:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, ByRef Cancel As Boolean)
.............
End Sub
Все работает отлично если данные выбраны. Однако, если нажимется "Отмена" то выдается сообщение "Ячейка защищена от изменения.... бла.. бла..бла.."
Учитывая что DisplayAlerts не действует, возможно ли отключить это сообщение.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, ByRef Cancel As Boolean)
.............
End Sub
Все работает отлично если данные выбраны. Однако, если нажимется "Отмена" то выдается сообщение "Ячейка защищена от изменения.... бла.. бла..бла.."
Учитывая что DisplayAlerts не действует, возможно ли отключить это сообщение.
Код:
Да, и для того, чтобы программно изменять значения защищённых ячеек вовсе не обязательно снимать защиту листа, ибо достаточно просто испоользовать необязательный именованный аргумент UserInterfaceOnly
Код:
Me.Protect Password:="Ваш_пароль", UserInterfaceOnly:=True
Примечание : Обладатели MS Excel 97, 2000 могут не указывать пароль, т.е.
Код:
Worksheets(1).Protect UserInterfaceOnly:=True
Благодарю.