Печать листа

[and150382]

Вот код

Private Sub CommandButton4_Click()
 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Закрываются все группировки и печатается лист "База".

На листе "Рабочее время " указывается время в ячейках B2:B30 в формате 11 и 0.
Нужно запретить печать по горячим клавишам и Файл-печать. Чтобы печать происходила только по нажатию на кнопку CommandButton4.
И если не ввели цифры на листе "Рабочее время" в диапазоне B2:B30 , то чтобы выводилось сообщение " Вы не ввели время" и печать не происходила пока не будет заполнен диапазон.