Если вы создаете книги для использования другими, вам может быть интересно отключить параметры печати (меню и панель инструментов) всякий раз, когда открыта конкретная книга. Самый простой способ сделать это — использовать макрос Auto_Open (который запускается сразу после открытия книги, содержащей его), чтобы сделать команды печати меню и панели инструментов более недоступными. Следующее поможет вам в этом:

Sub Auto_Open()

'Prevent Printing via menu     MenuBars(xlWorksheet).Menus("File").MenuItems("Print...").Delete

'Turn off Print icon wherever it may be in the toolbars     For J = 1 To Toolbars.Count         For K = 1 To Toolbars(J).ToolbarButtons.Count             If Toolbars(J).ToolbarButtons(K).Id = 2 Then                 Toolbars(J).ToolbarButtons(K).Enabled = False             End If             If Toolbars(J).ToolbarButtons(K).Id = 3 Then                 Toolbars(J).ToolbarButtons(K).Enabled = False             End If         Next K     Next J End Sub

Вы также можете создать специальный макрос Auto_Close, который восстанавливает меню и панели инструментов при закрытии книги:

Sub Auto_Close()

'Reset the menu items     For Each mb In MenuBars         mb.Reset     Next mb

'Reset the buttons     For J = 1 To Toolbars.Count         For K = 1 To Toolbars(J).ToolbarButtons.Count             If Toolbars(J).ToolbarButtons(K).Id = 2 Then                 Toolbars(J).ToolbarButtons(K).Enabled = True             End If             If Toolbars(J).ToolbarButtons(K).Id = 3 Then                 Toolbars(J).ToolbarButtons(K).Enabled = True             End If         Next K     Next J End Sub

Обратите внимание, что эти макросы запускаются только при открытии и закрытии конкретной книги. Это означает, что ваши возможности печати будут недоступны, пока рабочая книга открыта — даже для любых других открытых книг, которые у вас могут быть.

Другой подход — отменить любую печать до ее начала. Следующий макрос можно разместить в модуле книги:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = True End Sub

Всякий раз, когда кто-то пытается распечатать книгу, процесс автоматически отменяется. В противном случае пункты меню и кнопки панели инструментов остаются видимыми. (Вы также можете изменить макрос, чтобы не только отменить, но и отобразить окно сообщения, указывающее, что пользователям не разрешено печатать.)

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2556) применим к Microsoft Excel 97, 2000, 2002 и 2003.