Защита всех листов книги макросом

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Защита всех листов книги макросом (Макросы/Sub)

Van

Дата: Вторник, 29.11.2022, 20:49 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

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

К сообщению приложен файл: __.xlsm (65.8 Kb)

Ответить

Pelena Дата: Вторник, 29.11.2022, 21:18 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.

Цитата Van, 29.11.2022 в 20:49, в сообщении № 1 (

писал(а)):

как их победить

попробуйте так

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