Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выполнение макроса разгрупперовки на всех листах книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выполнение макроса разгрупперовки на всех листах книги (Макросы/Sub)
Выполнение макроса разгрупперовки на всех листах книги
PIV0106 Дата: Вторник, 04.04.2017, 08:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
В листах есть защищенные паролем ячейки и группировка столбцов и строк.
Для того чтоб пользоваться группировкой вот такой макрос.

[vba]
Код
Sub ZashitaGrupirovka()
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub
[/vba]

Задача сделать так чтоб он запускался автоматически на всех листах (около 15) при открытии книги.
Помогите пожалуйста.


Сообщение отредактировал PIV0106 - Вторник, 04.04.2017, 10:52
 
Ответить
СообщениеВ листах есть защищенные паролем ячейки и группировка столбцов и строк.
Для того чтоб пользоваться группировкой вот такой макрос.

[vba]
Код
Sub ZashitaGrupirovka()
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub
[/vba]

Задача сделать так чтоб он запускался автоматически на всех листах (около 15) при открытии книги.
Помогите пожалуйста.
Автор - PIV0106
Дата добавления - 04.04.2017 в 08:39
Pelena Дата: Вторник, 04.04.2017, 08:42 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
PIV0106, оформите код тегами спомощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеPIV0106, оформите код тегами спомощью кнопки # в режиме правки поста
Автор - Pelena
Дата добавления - 04.04.2017 в 08:42
PIV0106 Дата: Вторник, 04.04.2017, 08:49 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
А как и для чего? Просто я первый раз пользуюсь сайтом.
 
Ответить
СообщениеА как и для чего? Просто я первый раз пользуюсь сайтом.
Автор - PIV0106
Дата добавления - 04.04.2017 в 08:49
SLAVICK Дата: Вторник, 04.04.2017, 09:15 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата PIV0106, 04.04.2017 в 08:49, в сообщении № 3 ()
А как

так
Цитата PIV0106, 04.04.2017 в 08:49, в сообщении № 3 ()
и для чего?

Потому что так требуют правила форума

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата PIV0106, 04.04.2017 в 08:49, в сообщении № 3 ()
А как

так
Цитата PIV0106, 04.04.2017 в 08:49, в сообщении № 3 ()
и для чего?

Потому что так требуют правила форума
Автор - SLAVICK
Дата добавления - 04.04.2017 в 09:15
K-SerJC Дата: Вторник, 04.04.2017, 11:34 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
в модуль книги
[vba]
Код

Private Sub Workbook_Open()
For Each Sheet In ThisWorkbook.Sheets
Sheet.EnableOutlining = True
Sheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
Next Sheet
End Sub
[/vba]

Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщениев модуль книги
[vba]
Код

Private Sub Workbook_Open()
For Each Sheet In ThisWorkbook.Sheets
Sheet.EnableOutlining = True
Sheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
Next Sheet
End Sub
[/vba]
Автор - K-SerJC
Дата добавления - 04.04.2017 в 11:34
sboy Дата: Вторник, 04.04.2017, 11:35 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Без файла как-то так в модуль Эта Книга
[vba]
Код
Private Sub Workbook_Open()
for each sh in thisworkbook.sheets
sh.EnableOutlining = True
sh.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
next sh
End Sub
[/vba]

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Без файла как-то так в модуль Эта Книга
[vba]
Код
Private Sub Workbook_Open()
for each sh in thisworkbook.sheets
sh.EnableOutlining = True
sh.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
next sh
End Sub
[/vba]
Автор - sboy
Дата добавления - 04.04.2017 в 11:35
PIV0106 Дата: Вторник, 04.04.2017, 11:43 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, огромное!
Все заработало!!!
 
Ответить
СообщениеСпасибо, огромное!
Все заработало!!!
Автор - PIV0106
Дата добавления - 04.04.2017 в 11:43
PIV0106 Дата: Среда, 05.04.2017, 05:46 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!
А можно как нибудь убрать следующее:
При открытии файла требует ввести пароль для снятия защиты с книги.
При нажатии отмена - все работает как нужно.


Сообщение отредактировал PIV0106 - Среда, 05.04.2017, 06:31
 
Ответить
СообщениеДобрый день!
А можно как нибудь убрать следующее:
При открытии файла требует ввести пароль для снятия защиты с книги.
При нажатии отмена - все работает как нужно.
Автор - PIV0106
Дата добавления - 05.04.2017 в 05:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выполнение макроса разгрупперовки на всех листах книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!