Excel VBA and Macros Productivity and Automation

VBA Code to Hide Menu Ribbon in MS Access

VBA CODE TO HIDE MENU RIBBON IN MS ACCESS

In MS Access, there are multiple ways to protect your code or tool from un-authorized access and edits. Some developers prefers to hide MS Access ribbons from the users to prevent changes by users. Here is one of the ways you can hide MS Access Ribbons, Lock the Navigation Pane and hide hidden objects using VBA code
Note: The code is tested on MS Access 2007 and 2013

Private Sub Form_Load()
    'Hide the hidden objects in the navigation pane
    Application.SetOption "Show Hidden Objects", False
    'Lock navigation pane
    DoCmd.LockNavigationPane True
    'Disable right clicks and menus
    CurrentDb.Properties("AllowFullMenus") = False
    CurrentDb.Properties("AllowShortcutMenus") = False
    CurrentDb.Properties("AllowBuiltinToolbars") = False
End Sub

To Use VBA Code to Hide Menu Ribbon in MS access, follow these below steps:

1. Open an MS Access file
2. Add a new form in MS Access using Create>Form Design menu

3. Change the following properties of the form
Auto Center: Yes
Record Selectors: No
Navigation Buttons: No
Scroll Bars: Neither
Pop Up: Yes

4. Create an Event Procedure of Form’s On Load event

5. Click on ‘…’ to create the procedure in VBA screen

6. Add the following code in the Load event procedure

    'Hide the hidden objects in the navigation pane
    Application.SetOption "Show Hidden Objects", False
    'Lock navigation pane
    DoCmd.LockNavigationPane True
    'Disable right clicks and menus
    CurrentDb.Properties("AllowFullMenus") = False
    CurrentDb.Properties("AllowShortcutMenus") = False
    CurrentDb.Properties("AllowBuiltinToolbars") = False

7. Done, save your code and right click on the form then select Open

8. You will notice that ribbons are still visible, don’t worry it will be hidden when you re-open the MS Access file

Hope you liked this article !!

Subscribe our blog for new amazing excel tricks.

Download Practice File

You can also practice this through our practice files. Click on the below link to download the practice file.

Click below for some more interesting tricks and learning:

Excel VBA and Macros

VBA Code to Get Computer Name

Byexcelsirji

In this article we will learn about VBA code to get computer name. Excel VBA, or Visual Basic for Applications, is a programming language that can be used to automate tasks within the Microsoft Excel…

Productivity and Automation

Excel VBA Tool to Get File Properties

Byexcelsirji

Excel VBA Tool To Get File Properties Here is one more interesting VBA tool from the ExcelSirJi team. File Properties Tool is an Excel VBA tool that gets the following properties of the file. File…

Productivity and Automation

VBA Code to Check if File Exist in Folder

Byexcelsirji

To ensure that your VBA project works smoothly without any error, you need to put lot of error handlers and validations. Here is one of them, below code can be used to check if the given path is valid or not. You just need to provide the path of the file to the function and it will check if the file exist at the location. If it returns True that means the file is available at the path, if it returns False that means it is invalid path or the file does not exist at the location.

Excel VBA and Macros

VBA Code to Add Border to Excel Range

Byexcelsirji

Through formatting the cells, you can make your Excel data more beautiful and easier to understand. If you record a macro to add borders to Excel range, you will notice that it generates 30 plus lines of code for just a small work. Here we are sharing one line of code which does the same thing.

Excel VBA and Macros | Productivity and Automation

VBA Code to Delete All Shapes On A Excel Sheet

Byexcelsirji

VBA Code To Delete All Shapes On A Excel sheet Here is a VBA code which deletes all the shapes from an Excel sheet. Code is simple but you have to be bit careful while…

Excel VBA and Macros

VBA Code to Get Computer Name

Byexcelsirji

Productivity and Automation

Excel VBA Tool to Get File Properties

Byexcelsirji

Excel VBA Tool To Get File Properties Here is one more interesting VBA tool from the ExcelSirJi team. File Properties Tool is an Excel VBA tool that gets the following properties of the file. File…

Productivity and Automation

VBA Code to Check if File Exist in Folder

Byexcelsirji

Excel VBA and Macros

VBA Code to Add Border to Excel Range

Byexcelsirji

Excel VBA and Macros | Productivity and Automation

VBA Code to Delete All Shapes On A Excel Sheet

Byexcelsirji

VBA Code To Delete All Shapes On A Excel sheet Here is a VBA code which deletes all the shapes from an Excel sheet. Code is simple but you have to be bit careful while…

Excel VBA and Macros

VBA Code to Get Computer Name

Byexcelsirji

Productivity and Automation

Excel VBA Tool to Get File Properties

Byexcelsirji

Excel VBA Tool To Get File Properties Here is one more interesting VBA tool from the ExcelSirJi team. File Properties Tool is an Excel VBA tool that gets the following properties of the file. File…

Productivity and Automation

4 Comments

sanal says:

at

No use for this code since the user can click the more command menu and can select the navigation pane and others to return.

Reply
1. excelsirji says:
  
  at
  
  Thanks Sanal for your response. There are many other ways also you can bring the controls back like opening the Access file using Shift key. However the code placed in the Form load event should bring the controls back to hidden mode.
  
  Reply

i have tried it in access 2016, and it doesn’t work in access 2016.

Thanks for your query Ivar. You can try following code that works with MS Access 2016:

    Dim objProperty As Property
    
    'Hide the hidden objects in the navigation pane
    Application.SetOption "Show Hidden Objects", False
    'Lock navigation pane
    DoCmd.LockNavigationPane True
    
    On Error Resume Next
    'Disable right clicks and menus
    CurrentDb.Properties("AllowFullMenus") = False
    If Err.Number = 3270 Then
        Set objProperty = CurrentDb.CreateProperty("AllowFullMenus", dbBoolean, False)
        CurrentDb.Properties.Append objProperty
        Err.Clear
    End If
    CurrentDb.Properties("AllowShortcutMenus") = False
    If Err.Number = 3270 Then
        Set objProperty = CurrentDb.CreateProperty("AllowShortcutMenus", dbBoolean, False)
        CurrentDb.Properties.Append objProperty
        Err.Clear
    End If
    CurrentDb.Properties("AllowBuiltinToolbars") = False
    If Err.Number = 3270 Then
        Set objProperty = CurrentDb.CreateProperty("AllowBuiltinToolbars", dbBoolean, False)
        CurrentDb.Properties.Append objProperty
        Err.Clear
    End If
    On Error GoTo 0

VBA Code to Hide Menu Ribbon in MS Access

VBA CODE TO HIDE MENU RIBBON IN MS ACCESS

To Use VBA Code to Hide Menu Ribbon in MS access, follow these below steps:

Download Practice File

Click below for some more interesting tricks and learning:

VBA Code to Get Computer Name

Excel VBA Tool to Get File Properties

VBA Code to Find Last Column or Row of a Sheet

VBA Code to Check if File Exist in Folder

VBA Code to Add Border to Excel Range

VBA Code to Delete All Shapes On A Excel Sheet

VBA Code to Get Computer Name

Excel VBA Tool to Get File Properties

VBA Code to Find Last Column or Row of a Sheet

VBA Code to Check if File Exist in Folder

VBA Code to Add Border to Excel Range

VBA Code to Delete All Shapes On A Excel Sheet

VBA Code to Get Computer Name

Excel VBA Tool to Get File Properties

VBA Code to Find Last Column or Row of a Sheet

VBA Code to Check if File Exist in Folder

VBA Code to Add Border to Excel Range

VBA Code to Delete All Shapes On A Excel Sheet

4 Comments

Leave a Reply Cancel reply

VBA CODE TO HIDE MENU RIBBON IN MS ACCESS

To Use VBA Code to Hide Menu Ribbon in MS access, follow these below steps:

Download Practice File

Click below for some more interesting tricks and learning:

Similar Posts

4 Comments

Leave a Reply Cancel reply