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

Вход

Регистрация

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

 

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

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

Excel 2013
Возможно ли такое исполнение?

[vba]
Код
      
      Sheets("Лист1").EnableOutlining = True
      Sheets("Лист1").Protect Password:="ХХХ", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
      Sheets("Лист2").EnableOutlining = True
      Sheets("Лист2").Protect Password:="YYY", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

[/vba]

Или я что-то не так делаю? У меня получается, что после выполнения макроса все работает, но стоит мне закрыть файл, то при открытии группировка уже не открывается/закрывается, хотя листы защищены.
В чем может быть проблема?


Сообщение отредактировал Stork4ever - Вторник, 03.02.2015, 11:47
 
Ответить
СообщениеВозможно ли такое исполнение?

[vba]
Код
      
      Sheets("Лист1").EnableOutlining = True
      Sheets("Лист1").Protect Password:="ХХХ", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
      Sheets("Лист2").EnableOutlining = True
      Sheets("Лист2").Protect Password:="YYY", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

[/vba]

Или я что-то не так делаю? У меня получается, что после выполнения макроса все работает, но стоит мне закрыть файл, то при открытии группировка уже не открывается/закрывается, хотя листы защищены.
В чем может быть проблема?
Автор - Stork4ever
Дата добавления - 03.02.2015 в 11:45
SLAVICK Дата: Вторник, 03.02.2015, 12:13 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Нужно макрос ставить на открытие книги, либо изменение листа, либо на кнопку.
Вы если берете часть кода например из статьи - прочтите ее полностью :D

[vba]
Код
Private Sub Workbook_Open()
     Sheets("Лист1").EnableOutlining = True
     Sheets("Лист1").Protect Password:="ХХХ", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
     Sheets("Лист2").EnableOutlining = True
     Sheets("Лист2").Protect Password:="YYY", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub
[/vba]

Это поставит защиту листа при открытии книги.

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 03.02.2015, 12:35
 
Ответить
СообщениеНужно макрос ставить на открытие книги, либо изменение листа, либо на кнопку.
Вы если берете часть кода например из статьи - прочтите ее полностью :D

[vba]
Код
Private Sub Workbook_Open()
     Sheets("Лист1").EnableOutlining = True
     Sheets("Лист1").Protect Password:="ХХХ", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
     Sheets("Лист2").EnableOutlining = True
     Sheets("Лист2").Protect Password:="YYY", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub
[/vba]

Это поставит защиту листа при открытии книги.
Автор - SLAVICK
Дата добавления - 03.02.2015 в 12:13
Stork4ever Дата: Вторник, 03.02.2015, 13:24 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
У меня была задача защитить листы при сохранении файла, но с сохранением работоспособности группировки. Дальше файл будет отправляться на удаленный компьютер и там возможно макросы будут отключены. Я полагал, что при сохранении условия записываются в файл со всеми правами. Оказалось, что нет. :(

Есть возможность решить данную проблему не используя макросы при открытии файла?
 
Ответить
СообщениеУ меня была задача защитить листы при сохранении файла, но с сохранением работоспособности группировки. Дальше файл будет отправляться на удаленный компьютер и там возможно макросы будут отключены. Я полагал, что при сохранении условия записываются в файл со всеми правами. Оказалось, что нет. :(

Есть возможность решить данную проблему не используя макросы при открытии файла?
Автор - Stork4ever
Дата добавления - 03.02.2015 в 13:24
SLAVICK Дата: Вторник, 03.02.2015, 14:10 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата Stork4ever, 03.02.2015 в 13:24, в сообщении № 3
Есть возможность решить данную проблему не используя макросы при открытии файла?

1.Поставить макрос на изменение листа
2.Поставить макрос на изменение выделения листа
3.Поставить макрос на Активацию листа
4.Поставить макрос на Кнопку
Но все варианты только для включенных макросов :o

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата Stork4ever, 03.02.2015 в 13:24, в сообщении № 3
Есть возможность решить данную проблему не используя макросы при открытии файла?

1.Поставить макрос на изменение листа
2.Поставить макрос на изменение выделения листа
3.Поставить макрос на Активацию листа
4.Поставить макрос на Кнопку
Но все варианты только для включенных макросов :o
Автор - SLAVICK
Дата добавления - 03.02.2015 в 14:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Группировка на защищенных листах (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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