защита ячейки в VBA - Microsoft Office Excel

tat-besidovska · 05.02.2008, 12:48

подскажите, пожалуйста, как в VBA защитить от изменений определенные ячейки???, Заранее спасибо

SAS888 · 05.02.2008, 13:37

Например, так:

Код:

    Cells.Locked = False 'Снимаем параметр "защищаемая ячейка" со всех ячеек
    Range("A1:A10,D3,E2").Locked = True 'устанавливаем параметр "защищаемая ячейка" для этих ячеек
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'защищаем лист

tat-besidovska · 05.02.2008, 14:36

Спасибо, все работает

tat-besidovska · 05.02.2008, 15:10

Работает, но выскакивает ошибка: Нельзя устанавливать свойство Locked класса Range. подскажите,что сделать

SAS888 · 06.02.2008, 04:57

Все должно работать. Внимательно проконтролируйте как у Вас задается диапазон ячеек "Range" (приведите пример Вашей строки). В конце концов воспользуйтесь макрорекордером, проделайте операции (см. комментарии к коду выше), посмотрите получившийся код.

Еще, возможно Вы пытаетесь изменить свойства ячеек на уже защищенном листе. Защиту предварительно нужно обязательно снимать, т.е. перед процедурой (см. выше), нужно выполнить "ActiveSheet.Unprotect". (если с паролем, то добавить "Passwodr:="XXX").

05.02.2008, 12:48	#1
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	защита ячейки в VBA подскажите, пожалуйста, как в VBA защитить от изменений определенные ячейки???, Заранее спасибо

06.02.2008, 04:57	#5
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Все должно работать. Внимательно проконтролируйте как у Вас задается диапазон ячеек "Range" (приведите пример Вашей строки). В конце концов воспользуйтесь макрорекордером, проделайте операции (см. комментарии к коду выше), посмотрите получившийся код. Еще, возможно Вы пытаетесь изменить свойства ячеек на уже защищенном листе. Защиту предварительно нужно обязательно снимать, т.е. перед процедурой (см. выше), нужно выполнить "ActiveSheet.Unprotect". (если с паролем, то добавить "Passwodr:="XXX"). Чем шире угол зрения, тем он тупее. Последний раз редактировалось SAS888; 07.02.2008 в 04:54.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Защита	boostman	Общие вопросы Delphi	4	21.06.2008 17:45
Как разделить число и текст в одной ячейки на две ячейки.	neboskreb	Microsoft Office Excel	2	15.04.2008 19:39
Защита листа!	Marsik	Microsoft Office Excel	2	27.03.2008 18:19
Защита	astorik	Софт	12	20.12.2007 04:43
Защита паролем	GAGARIN-NEW	Общие вопросы Delphi	46	15.10.2007 13:20

05.02.2008, 14:36	#3
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	Спасибо, все работает

05.02.2008, 15:10	#4
tat-besidovska Пользователь Регистрация: 17.01.2008 Сообщений: 29	Работает, но выскакивает ошибка: Нельзя устанавливать свойство Locked класса Range. подскажите,что сделать