Поставить запрет на печать

[sasha_prof]

Как поставить запрет на печать. Чтоб была возможность печати только при помощи кнопки и макроса)

[doober]

Код модуля

Public MOGNO As Boolean

Sub YES_Print()
MOGNO = False
End Sub

Sub NO_Print()
MOGNO = True
End Sub

Код в модуле книги

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = MOGNO

End Sub

Private Sub Workbook_Open()
MOGNO = True
End Sub

[sasha_prof]

Сообщение от doober

Код модуля

Public MOGNO As Boolean

Sub YES_Print()
MOGNO = False
End Sub

Sub NO_Print()
MOGNO = True
End Sub

Код в модуле книги

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = MOGNO

End Sub

Private Sub Workbook_Open()
MOGNO = True
End Sub

Чтото не работает

[doober]

Решил без вложения,но не получилось.Смотрите вложение