Disable Print Facility

Maybe this would work?

http://www.mrexcel.com/board2/viewtopic.php?t=17216

That works great Kristy, but it disables the File/Print facility in ALL spreadsheets on my system. Is it possible to modify it so that it only effects the Sheet that it's written into?

Thanks in advance ray:

Can I resurrect this old post?

As I last stated, the solution in the link works perfectly, but it effects EVERY workbook I have. Is it possible to have it just effect the workbook that it's copied into?

Then, how can I disable the Right Click?

Based on the link, place this in your workbook module and see if it accomplishes what you are after. To easily access your workbook module, find the little Excel workbook icon near the upper left corner of your workbook window, usually just to the left of the File menu option. Right click on that icon, left click on View Code, and paste the following procedure into the large white area that is the workbook module. Press Alt+Q to return to the worksheet.



Private Sub Workbook_Open()
Run "DisableFileChoices"
End Sub


Private Sub Workbook_Activate()
Run "DisableFileChoices"
End Sub


Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Run "DisableFileChoices"
End Sub




Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "EnableFileChoices"
End Sub


Private Sub Workbook_Deactivate()
Run "EnableFileChoices"
End Sub


Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Run "EnableFileChoices"
End Sub





'This will disable the right click pop-up menu:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Thanks for the quick response Tom, but it keeps "erroring" on the last subroutine. With my basic knowledge of VBA I can't understand why.

Any suggestions please?

Are you sure you have that in the workbook module? It worked for me.

It's in "This Workbook (Code)" along with the full code from the link and your 6 subroutines. Is this correct?

Just a thought:

isn't this enough ?
no need for changing menus, disable rightclick, etcetera ...
(perhaps I'm missing something)
kind regards,
Erik

atmospheric said:

It's in "This Workbook (Code)" along with the full code from the link and your 6 subroutines. Is this correct?

Click to expand...

The code I posted, and only the code I posted, would in fact go into the "ThisWorkbook" module. The code belonging to the link you posted would go into a standard module. If that's how you placed it all, it should work for you; it does for me.