скрытые листы Экселя

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

скрытые листы Экселя (Макросы/Sub)

Stepler

Дата: Среда, 03.12.2014, 15:11 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

2007, 7
можно ли установить пароль на скрытый лист Экселя?
Спасибо

P.S.Чтобы наступила смерть - необходима жизненная сила !!!

Ответить

JayBhagavan

Дата: Среда, 03.12.2014, 15:39 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 27 ±

Замечаний: 0% ±

Excel 2010

Макрос подрихтованный от макрорекордера.[vba]

Код

Sub jjj()
Sheets("Лист1").Unprotect
Sheets("Лист1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

[/vba]

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов

Ответить

Stepler

Дата: Среда, 03.12.2014, 15:58 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

JayBhagavan,
неее, енто защита от изменений.... мне же надо пароль на скрытый лист (чтоб и отобразить нельзя было....)
пришлось только через сценарии
[vba]

Код

ActiveWorkbook.Unprotect ("ПАРОЛ")
Sheets("Лист1").Visible = True
Sheets("Лист2").Visible = True ...............

[/vba]
и при закрытии книги:
[vba]

Код

Sheets(Array("Лист1", "Лист2",......)).Select
         ActiveWindow.SelectedSheets.Visible = False

     ActiveWorkbook.Protect ("ПАРОЛ")

[/vba]

Но енто сценарии всей книги...., а мне надо только один листы запаролить...