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

Вход

Регистрация

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

 

= Мир MS Excel/Защита структуры книги при открытии - Мир MS Excel

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

Здравствуйте. Вопрос общего характера. Необходимо, чтобы при открытии файла, ставилась защита на структуру книги с паролем и листов с паролем. Проблема в защите структуры книги - дает снять защиту книги без ввода пароля. В разделе "ЭтаКнига"
[vba]
Код
Sub Book()
Const MyPassword = "123"

With ThisWorkbook
.Protect Structure:=True, Windows:=False
.Protect Password:=MyPassword
End With
End Sub


Private Sub Workbook_Open()
Const MyPassword = "123" ' Указываем пароль на листы
      
    With Sheets("U") 'Указываем наименование листа
.Unprotect Password:=MyPassword
.EnableOutlining = True
.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
    End With
    
     With Sheets("L") 'Указываем наименование листа
.Unprotect Password:=MyPassword
.EnableOutlining = True
.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
    End With

End Sub
[/vba]
К сообщению приложен файл: 9811716.xlsm(15.8 Kb)


Сообщение отредактировал kadig - Среда, 07.07.2021, 09:27
 
Ответить
СообщениеЗдравствуйте. Вопрос общего характера. Необходимо, чтобы при открытии файла, ставилась защита на структуру книги с паролем и листов с паролем. Проблема в защите структуры книги - дает снять защиту книги без ввода пароля. В разделе "ЭтаКнига"
[vba]
Код
Sub Book()
Const MyPassword = "123"

With ThisWorkbook
.Protect Structure:=True, Windows:=False
.Protect Password:=MyPassword
End With
End Sub


Private Sub Workbook_Open()
Const MyPassword = "123" ' Указываем пароль на листы
      
    With Sheets("U") 'Указываем наименование листа
.Unprotect Password:=MyPassword
.EnableOutlining = True
.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
    End With
    
     With Sheets("L") 'Указываем наименование листа
.Unprotect Password:=MyPassword
.EnableOutlining = True
.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
    End With

End Sub
[/vba]

Автор - kadig
Дата добавления - 07.07.2021 в 02:57
китин Дата: Среда, 07.07.2021, 07:40 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6495
Репутация: 992 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
kadig, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеkadig, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 07.07.2021 в 07:40
Pelena Дата: Среда, 07.07.2021, 10:36 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
kadig,
чтобы при открытии файла, ставилась защита на структуру книги с паролем
надо эту защиту тоже прописать в макросе Workbook_Open
[vba]
Код
Private Sub Workbook_Open()
Const MyPassword = "123" ' Указываем пароль на листы
ThisWorkbook.Protect Password:=MyPassword, Structure:=True, Windows:=False
[/vba]и дальше по тексту


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеkadig,
чтобы при открытии файла, ставилась защита на структуру книги с паролем
надо эту защиту тоже прописать в макросе Workbook_Open
[vba]
Код
Private Sub Workbook_Open()
Const MyPassword = "123" ' Указываем пароль на листы
ThisWorkbook.Protect Password:=MyPassword, Structure:=True, Windows:=False
[/vba]и дальше по тексту

Автор - Pelena
Дата добавления - 07.07.2021 в 10:36
kadig Дата: Среда, 07.07.2021, 10:49 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Спасибо большое.
 
Ответить
СообщениеPelena, Спасибо большое.

Автор - kadig
Дата добавления - 07.07.2021 в 10:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита структуры книги при открытии (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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