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

Вход

Регистрация

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

 

= Мир MS Excel/Защита книги при копировании листа макросом - Мир MS Excel

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

Excel 2007
Добрый день!
В моем файле стоит защита структуры и окон книги через пароль. В файле 2 листа: 1 скрытый (шаблон) и 1 видимый. На видимом листе есть кнопка вызова макроса, который должен создавать копию листа на основе шаблона, делая его видимым. Вот такой макрос:
[vba]
Код
Sub Insert_List()
Worksheets("0").Copy after:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = "Проект " & (Worksheets.Count - 2)
Sheets(Worksheets.Count).Visible = True
End Sub
[/vba]
Но поскольку стоит защита книги от изменения структуры и окон, при нажатии на кнопку макроса выходит сообщение "Х 400 "
Как создавать копии листов по шаблону, не давая простым смертным прав ковыряться в скрытом листе?
 
Ответить
СообщениеДобрый день!
В моем файле стоит защита структуры и окон книги через пароль. В файле 2 листа: 1 скрытый (шаблон) и 1 видимый. На видимом листе есть кнопка вызова макроса, который должен создавать копию листа на основе шаблона, делая его видимым. Вот такой макрос:
[vba]
Код
Sub Insert_List()
Worksheets("0").Copy after:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = "Проект " & (Worksheets.Count - 2)
Sheets(Worksheets.Count).Visible = True
End Sub
[/vba]
Но поскольку стоит защита книги от изменения структуры и окон, при нажатии на кнопку макроса выходит сообщение "Х 400 "
Как создавать копии листов по шаблону, не давая простым смертным прав ковыряться в скрытом листе?
Автор - Мурад
Дата добавления - 05.10.2018 в 13:39
K-SerJC Дата: Пятница, 05.10.2018, 14:48 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
можно макросом перед копированием снимать защиту, а после копирования ставить
[vba]
Код
            ActiveSheet.Unprotect Password:="1234"
             ActiveSheet.Protect Password:="1234"
[/vba]

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Пятница, 05.10.2018, 14:48
 
Ответить
Сообщениеможно макросом перед копированием снимать защиту, а после копирования ставить
[vba]
Код
            ActiveSheet.Unprotect Password:="1234"
             ActiveSheet.Protect Password:="1234"
[/vba]
Автор - K-SerJC
Дата добавления - 05.10.2018 в 14:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита книги при копировании листа макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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