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

Вход

Регистрация

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

 

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

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

Доброго дня, форумчане! Помогите разобраться что за ошибки всплывают при открытии файла и как их победить. Макросы брал из сети.
А второе и главное это как сделать чтобы при закрытии или открытии файла (не важно) выполнялся макрос на защиту всех листов по правилам, которые прописаны в имеющемся макросе защиты листов.
К сообщению приложен файл: __.xlsm (65.8 Kb)
 
Ответить
СообщениеДоброго дня, форумчане! Помогите разобраться что за ошибки всплывают при открытии файла и как их победить. Макросы брал из сети.
А второе и главное это как сделать чтобы при закрытии или открытии файла (не важно) выполнялся макрос на защиту всех листов по правилам, которые прописаны в имеющемся макросе защиты листов.

Автор - Van
Дата добавления - 29.11.2022 в 20:49
Pelena Дата: Вторник, 29.11.2022, 21:18 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18721
Репутация: 4265 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
как их победить

попробуйте так
[vba]
Код
Sub Макрос3()
    
    Dim sH As Worksheet
    Application.ScreenUpdating = False
    For Each sH In ThisWorkbook.Worksheets
        sH.EnableOutlining = True
        sH.EnableSelection = xlUnlockedCells
        sH.Protect DrawingObjects:=True, Contents:=True, _
                   Scenarios:=True, AllowSorting:=True, AllowFiltering:=True, _
                   UserInterfaceOnly:=True
    Next sH
    Application.ScreenUpdating = True

End Sub
[/vba]
при открытии файла выполнялся макрос на защиту всех листов

это вроде у вас сделано


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
как их победить

попробуйте так
[vba]
Код
Sub Макрос3()
    
    Dim sH As Worksheet
    Application.ScreenUpdating = False
    For Each sH In ThisWorkbook.Worksheets
        sH.EnableOutlining = True
        sH.EnableSelection = xlUnlockedCells
        sH.Protect DrawingObjects:=True, Contents:=True, _
                   Scenarios:=True, AllowSorting:=True, AllowFiltering:=True, _
                   UserInterfaceOnly:=True
    Next sH
    Application.ScreenUpdating = True

End Sub
[/vba]
при открытии файла выполнялся макрос на защиту всех листов

это вроде у вас сделано

Автор - Pelena
Дата добавления - 29.11.2022 в 21:18
Van Дата: Среда, 30.11.2022, 03:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Pelena, спасибо Вам большое за исправление ошибок! Из за этих ошибок защита работала некорректно или вообще не включалась
 
Ответить
СообщениеPelena, спасибо Вам большое за исправление ошибок! Из за этих ошибок защита работала некорректно или вообще не включалась

Автор - Van
Дата добавления - 30.11.2022 в 03:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита всех листов книги макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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