ACC2: No Permission for Utility.mda When Starting Microsoft Access

RESOLUTION

1. Start Microsoft Access and open any database.
2. On the Security menu, click Change Password. Assign a password to the Admin user account. The following procedure assumes that you have changed the Admin user's password to "password" (without the quotation marks).
3. Create a new module and type the following procedure:
   

         Sub sectest ()
   
            Dim ws As WorkSpace
            Dim usr As User
            Dim grp As Group
            On Error GoTo Errorhandler
            Set ws = dbengine.CreateWorkspace("", "admin", "password")
            ' Create user NewAdmin and add to Admins group.
            Set usr = ws.CreateUser("NewAdmin", "xxx555", "identify")
            ws.users.Append usr
            usr.groups.Append ws.CreateGroup("admins")
   
            ' Remove Admin from Admins, Users group.
            ws.groups("users").users.Delete "admin"
            ws.groups("admins").users.Delete "admin"
   
            ' Log on again and add NewAdmin to Users group.
            ws.Close
            Set ws = dbengine.CreateWorkspace("", "NewAdmin", "identify")
            Set usr = ws.users("NewAdmin")
            usr.groups.Append ws.CreateGroup("users")
   
         Exit_sectest:
            Exit sub
   
         Errorhandler:
            Msgbox CStr(Err) & " " & Error(Err)
            Resume Exit_sectest
   
         End Sub
   						

4. Run this procedure and quit Microsoft Access.
5. Restart Microsoft Access; enter "NewAdmin" as the log on name and "identify" as the log on password.