MS Access Navigation Pane Hide/Show VB code

[RockKandee]

I am using Access 2013 in Windows 8.

The security features are gone (grumble, grumble). While I understand that those feature were not really security, they did have value. My goal is simply to avoid accidental changes not malicious ones. I want the user to be aware that they are in "can mess things up" mode.

I would like to have a command button on a form that will un-hide the navigation pane and menus and a button to re-hide them. Is this possible?

I am assuming that the "Office" button that is discussed is the same as my file tab.
"File" >>> "Options" >>> "Current Database"
Is there VB code that can be used to control changes in the Access Options current database?

It would be much easier to have a button to allow full use of the navigation pane than to make a form to open each object in design.

Thanks for your time.

[zmbd]

You can hide the pane:
I borrowed this code way back in the ages and it still works.

Make a form with two simple buttons (I used the default here):

Private Sub Command1_Click()
 
DoCmd.SelectObject acTable, , True 
DoCmd.RunCommand acCmdWindowHide
 
End Sub
 
‘unhide
 
Private Sub Command2_Click()
 
DoCmd.SelectObject acTable, , True 
 
End Sub

This worked as of ACC2010

If you need to hide the ribbon that's a slightly different barrel of monkies:

If Not CommandBars.GetPressedMso("MinimizeRibbon") 
Then
CommandBars.ExecuteMso "MinimizeRibbon" '<this will toggle state, hence the check first.
End If 

THen there's

DoCmd.ShowToolbar "Ribbon", acToolbarYes

DoCmd.ShowToolbar "Ribbon", acToolbarNo

And then you should search on "MS ACCESS 2010 custom ribbons" using your favorite engine. It's a dozy!

Oh, BTW, I can bypass everyone of these actions quite easily; thus, the more savy users will figure it out.

[RockKandee]

You ROCK!!!

Thank you - *kisses*

Ya - I know it doesn't take much to bypass. Super easy, even I figured that one out earlier today without asking - LOL.