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

Старая форма входа

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

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

Van

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

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

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

Сообщений: 5

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

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

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

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

Ответить

Pelena

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

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

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

Сообщений: 19403

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

Замечаний: ±

Excel 365 & Mac Excel

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

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

)

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

попробуйте так
[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]

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

)

при открытии файла выполнялся макрос на защиту всех листов

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