Запрет печати нескольких листов

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

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

Запрет печати нескольких листов (Макросы/Sub)

DrMini

Дата: Среда, 05.04.2023, 09:12 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1870

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

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

Excel LTSC 2024 RUS

Здравствуйте форумчане и гости форума.
Нашёл в Internet`e пример, как при помощи VBA запретить отправку на печать определённого листа с сообщением.

Подскажите пожалуйста, как подправить код, что бы можно было запретить вывод на печать не один лист, а (в моём случае) четырёх листов идущих не подряд.

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

Сообщение отредактировал DrMini - Среда, 05.04.2023, 09:14

Ответить

_Boroda_

Дата: Среда, 05.04.2023, 09:24 | Сообщение № 2

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

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

Сообщений: 16714

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Файл скачать не могу, блокировка макросов. Так нарисовал
[vba]

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Set slov = CreateObject("Scripting.Dictionary") 'объявляем словарь
    With slov 'Для него
        For Each NoPr In Array("Лист1", "Лист3", "Лист5") 'бегаем по массиву
            aaa = .Item(NoPr) 'заполняем словарь ключами
        Next NoPr
        For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
            If .exists(xWs.Name) Then ' если есть в словаре
                MsgBox "Лист " & xWs.Name & " печатать нельзя"
                Cancel = True
            End If
        Next
    End With
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995