Файл скачать не могу, блокировка макросов. Так нарисовал
[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]