Public Locking VBA

[chuckiesbarbie]

So I want to create a public sub that locks the toolbar and shortcut menu based on the useraccess. How do i write this as a public sub? I want it to be on the form load of every form opened.

Here is the private version:

Private Sub Form_Load()
 
    If Globals.UserAccess("Toolbar") = True Then
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    Me.ShortcutMenu = True
    Else: DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Me.ShortcutMenu = False
End Sub

And the global user access pulls from the login screen of credentials. Thank you!

[NeoPa]

You ask about locking a toolbar yet your code seems to show and/or hide the toolbar.

Also, your code isn't working code as it has no End If so couldn't possibly run. Please don't ever post code for people to work with that doesn't even compile. There are threads that explain some of these basics in the forum at the top and left permanently visible.

We can probably help if the question's clear and unambiguous, but we do expect some effort on your part to avoid wasting time unnecessarily.

[jforbes]

To convert a Private Function to Public Function:

• Create a Module to store the Public Function, make sure the name of the Module is unique and not the same as the Public Function or it wont compile
• Make sure to put "Option Explicit" at the Top of the Module
• Paste the Private Function into the Module, and replace the Private Declaration with the Public One.