Results 1 to 2 of 2
  1. #1
    slimjen is offline Expert
    Windows XP Access 2007
    Join Date
    Mar 2010
    Posts
    727

    privacy options

    Hi all,
    I have a multi version access environment. I deployed an mde with bypass and navigation options disabled. But I noticed my users with 2010 still have the option to see the database objects if they use the privacy options to reenable the navigation pane. How can I disable the privacy options in 2010?


    Thanks

  2. #2
    burrina's Avatar
    burrina is offline VIP
    Windows 7 64bit Access 2010 64bit
    Join Date
    Oct 2012
    Location
    Freeport,Texas
    Posts
    1,383
    Here is one option:

    Create a Module with the following Code:

    Function LoadRibbon()
    Dim sXML
    sXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
    "<ribbon startFromScratch=""false"">" & _
    "</ribbon>" & _
    "<backstage>" & _
    "<button idMso=""FileSave"" visible=""false""/>" & _
    "<button idMso=""SaveObjectAs"" visible=""false""/>" & _
    "<button idMso=""FileSaveAsCurrentFileFormat"" visible=""false""/>" & _
    "<button idMso=""FileOpen"" visible=""false""/>" & _
    "<button idMso=""FileCloseDatabase"" visible=""false""/>" & _
    "<tab idMso =""TabInfo"" visible=""false""/>" & _
    "<tab idMso =""TabRecent"" visible=""false""/>" & _
    "<tab idMso =""TabNew"" visible=""false""/>" & _
    "<tab idMso =""TabPrint"" visible=""false""/>" & _
    "<tab idMso =""TabShare"" visible=""false""/>" & _
    "<tab idMso =""TabHelp"" visible=""false""/>" & _
    "<button idMso=""ApplicationOptionsDialog"" visible=""false""/>" & _
    "<button idMso=""FileExit"" visible=""true""/>" & _
    "</backstage>" & _ "</customUI>"
    MsgBox "Hallo"
    Application.LoadCustomUI "SimpleFile", sXML
    End Function

    If you uncheck the options as you did, you can reduce this to:

    Function LoadRibbon2()
    Dim sXML
    sXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
    "<ribbon startFromScratch=""false"">" & _
    "</ribbon>" & _
    "<backstage>" & _
    "<button idMso=""ApplicationOptionsDialog"" visible=""false""/>" & _
    "</backstage>" & _
    "</customUI>"
    Application.LoadCustomUI "SimpleFile2", sXML
    End Function

    Create a new Macro named AutoExec that calls this function.
    Open File|Options|Current Database and select the Ribbon "SimpleFile" from the drop down list. If the list is empty, run AutoExec manually first.
    Last edited by June7; 03-22-2013 at 12:37 PM. Reason: make code more readable

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Options view
    By Mark@CHP in forum Database Design
    Replies: 1
    Last Post: 06-15-2012, 05:37 PM
  2. Access Options
    By arunsule in forum Programming
    Replies: 2
    Last Post: 08-02-2011, 12:41 PM
  3. Sub parameters with options
    By dssrun in forum Programming
    Replies: 2
    Last Post: 07-27-2011, 08:59 AM
  4. Networking Options
    By Robertag in forum Access
    Replies: 1
    Last Post: 03-13-2011, 01:16 PM
  5. help please. i need basic access privacy/protection ideas
    By helpporfavorplz in forum Security
    Replies: 1
    Last Post: 02-20-2010, 05:32 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums - Senior Forums