ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Lost Menus & Toolbars with Right Click macro - HELP? (https://www.excelbanter.com/excel-discussion-misc-queries/169314-lost-menus-toolbars-right-click-macro-help.html)

Silena K-K

Lost Menus & Toolbars with Right Click macro - HELP?
 
Hi

I want to 'disable right clicking' of the mouse in Excel and found the code
below on the internet.

I copied it into my workbook but now when I open Excel - any workbook (new
or existing) I have no menu bar or toolbars (or right clicking which is what
I wanted) only the formula bar.

Please help??

Thanks and Merry Christmas. Silena

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Cell").Enabled = False
Application.CommandBars("Sheet").Enabled = False
Application.CommandBars("Ply").Enabled = False
Application.CommandBars("Row").Enabled = False
Application.CommandBars("Column").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Sheet").Enabled = True
Application.CommandBars("Ply").Enabled = True
Application.CommandBars("Row").Enabled = True
Application.CommandBars("Column").Enabled = True
End Sub



All times are GMT +1. The time now is 07:25 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com