Защищаемая ячейка - Microsoft Office Excel

hamlook · 12.06.2009, 11:36

Ставлю защиту листа. На листе в определенном диапазоне ячеек убрал галочку "Защищаемая ячейка". Тут все понятно.
Но при вставке таблицы из файла html, ячейки опять становятся защищаемыми, и при следующем открытии файла доступа к ним уже нет.
Как сделать чтобы этот диапазон постоянно был не защищен

Евгений ГВС · 15.06.2009, 18:16

Цитата:

Сообщение от hamlook

при следующем открытии файла доступа к ним уже нет

Можно при каждом открытии файла (книги) программно (с помощью VBA) делать нужные ячейки незащищенными. В модуле книги (Эта книга) делаем обработку события Workbook_Open. Примерно так:

Private Sub Workbook_Open()
Worksheets("Лист1").Range("A1:B2"). Locked = False
End Sub

hamlook · 15.06.2009, 18:48

Вот спасибо. Буду пробовать.

hamlook · 15.06.2009, 19:00

А у меня в книге есть уже код на закрытие:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A36").ClearContents
End Sub
Как их теперь объединить? Написать подряд?

Евгений ГВС · 15.06.2009, 21:31

Можно подряд, одно другому не мешает. Лучше названия этих процедур-обработчиков не набирать в ручную, а использовать выпадающий список вверху, они появятся сами.

12.06.2009, 11:36	#1
hamlook Пользователь Регистрация: 22.05.2009 Сообщений: 85	Защищаемая ячейка Ставлю защиту листа. На листе в определенном диапазоне ячеек убрал галочку "Защищаемая ячейка". Тут все понятно. Но при вставке таблицы из файла html, ячейки опять становятся защищаемыми, и при следующем открытии файла доступа к ним уже нет. Как сделать чтобы этот диапазон постоянно был не защищен

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA. Ячейка со списком значений.	Flangini	Microsoft Office Excel	7	27.05.2009 08:25
Ячейка Excel - в тексте Word	ruavia3	Microsoft Office Word	6	08.04.2009 15:10
Ячейка как список (через VBA)	maxic	Microsoft Office Excel	5	23.01.2009 00:10
Ячейка не меньше 1000	mirawoo	Microsoft Office Excel	2	24.10.2008 11:04
Помогите плз, нужна плавающая ячейка	linitz	Microsoft Office Excel	7	19.09.2008 13:34

15.06.2009, 18:48	#3
hamlook Пользователь Регистрация: 22.05.2009 Сообщений: 85	Вот спасибо. Буду пробовать.

15.06.2009, 19:00	#4
hamlook Пользователь Регистрация: 22.05.2009 Сообщений: 85	А у меня в книге есть уже код на закрытие: Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("A36").ClearContents End Sub Как их теперь объединить? Написать подряд?