Disable Print from File Menu and Toolbar

[Stelios Panayides]

I am using the following two macors to disable Print from File Menu and Toolbar:

Sub DisableMenuItems() <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
With CommandBars("File") <o></o>
.Controls(12).Enabled = False <o></o>
End With <o></o>
End Sub<o></o>
<o></o>
<o></o>
Sub DisableCommandBarControl() <o></o>
Dim cb As CommandBar<o></o>
Dim bc As CommandBarControl <o></o>
For Each cb In CommandBars<o></o>
For Each bc In cb.Controls<o></o>
If Left(bc.Caption, 5) = "Print" Then _<o></o>
bc.Enabled = False<o></o>
Next<o></o>
Next <o></o>
End Sub

The macros work fine but the problem is that the macors apply to all Excel files on my pc and that they do not work when I open the file for manother pc (after adjusted the security setting and enabling the macros)!!!

ANY HELP WOULD BE HIGHLY APPRECIATED.

THANK YOU

 

[Derek Brown]

Try:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveWorkbook.Name = ThisWorkbook.Name Then
MsgBox "Printing disabled"
Cancel = True
End If
End Sub

in 'ThisWorkbook".
However, if the workbook is opened with macros disabled then this will not work. To overcome this you need to have all worksheets (except for a 'dummy' worksheet) set as 'very hidden' and then unhide them in the Workbook_Open event.

 

[Stelios Panayides]

Thanks for the response but with this macro I cannot print at all using the macro.

The problem is that the two macros that disable printing from File menu and Toolbar (which allow to print when using a special macro for printing) apply to all Excel files on my pc and that they do not work when I open the file from another pc (after adjusted the security setting and enabling the macros)!!!

 

[Derek Brown]

The intention was that the code that I gave should replace your two macros. You could then modify the code as required.

You did not say where the macros are stored. Are they in your personal workbook? Or in your default workbook template? Do they work if one of your workbooks is also open when you open the received workbook? If they do not exist in the workbook that you are receiving from another PC, they need to be 'publically' available for use in any workbook that you open.