Disable the Ability to access any and all menu's and tool bars

[srivet]

Hello, I'm looking for a code or macro to Disable the Ability to access any and all menu's and tool bars in protected mode. I don't want the user to be able to hit esc to view or gain access to the toolbars or menus when they load the workbook, the workbook needs to automatically open to full screen view, when in full screen mode, have no ability to leave full screen mode. save can be there only function other then what's not locked in each sheet. I haven't been able to figure this one out. I'm new to Macros and need serious help as the user always seem to find a way to destroy the workbooks..

 

[JLGWhiz]

Don't know how much of this you want to use, but it basically hides everything. I suggest you try this on a blank workbook before trying it on one that contains data. Note that the restore macro Clears the cells, which means that if you want to save any data, you need to comment that line out or delete it.

Sub clrScrn() 
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    With Application
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
    End With
    With ActiveWindow
        .DisplayHorizontalScrollBar = False     'Make space and clear screen
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .DisplayGridlines = False
    End With
End Sub

Then this would restore it.

Sub RestoreToNorm()
    With ActiveSheet        
        .Cells.Clear
        .Columns.UseStandardWidth = True
        .Rows.UseStandardHeight = True
    End With
    With Application
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
    End With
    With ActiveWindow       'This with statement sets everything to normal
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .DisplayGridlines = True
    End With
    ThisWorkbook.Save
End Sub

It still might not be what you are looking for, because a knowledgable person could easily get around the lack of menus using function keys, etc.

 

[srivet]

Do I add this to the "ThisWorkbook" VBA or "Module1"? I have added to both with failure. the workbook still opens with the tools menu showing.

 

[JLGWhiz]

Not sure where your file resides. There are no menus visible in the Excel application after the macro runs to hide them. If you are using a web address for your files, then this code would not necessarily hide all menus.