Assigning Security permission

[Emmanuel Ayivi]

I copied the code below from online and would like to incorporate in my access database security feature
but seems not not work. please help me

Public Function SetPermission2Grp(ByVal DatabaseName As String, ByVal groupname As String) As Boolean
'-------------------------------------------------------------------------
'Author : a.p.r. pillai
'Date   : March-2010
'Purpose: To Assign Security Permissions to Objects
'       : for a particular Security Group Account
'       : in an external Database.
'Note   : The Security Group Account must be present
'       : in the active Workgroup Information File
'       :'Remarks: All Rights Reserved by www.msaccesstips.com
'-------------------------------------------------------------------------
Dim wsp As Workspace, db As Database, ctr As Container, doc As Document
Dim ctrName As String, docName As String
Dim L4 As String
Const OBJSFULL = &HD01FE
Const dbOpenRun = 2
Const FrmRptOpenRun = 256
Const MacOpenRun = 8
Const TblQryExcludingModifyAdmin = 244 'All permissions Exluding Modify & Administr
'Assign Permissions to Group Account
On Error GoTo SetPermission2Grp_Err
Set wsp = DBEngine.Workspaces(0)
Set db = wsp.OpenDatabase("SchoolMaster-Finance.accdb", _
      True)
 
wsp.Groups.Refresh
For Each ctr In db.Containers
ctrName = ctr.Name
ctr.UserName = groupname
Select Case ctrName
Case "Databases"
For Each doc In ctr.Documents
         docName = doc.Name
         doc.UserName = groupname
         Select Case docName
           Case "MSysDb"
             'Set Open/Run Permissions to Database Object
              doc.Permissions = doc.Permissions Or dbOpenRun
         End Select
      Next doc
   Case "Forms"
    'Set Open/Run Permissions to Forms Container
      ctr.Permissions = ctr.Permissions Or FrmRptOpenRun
      ctr.Inherit = True
      For Each doc In ctr.Documents
         docName = doc.Name
         doc.UserName = groupname
         'Set Open/Run Permissions to Each Form
        doc.Permissions = doc.Permissions Or FrmRptOpenRun
      Next doc
   Case "Reports"
    'Set Open/Run Permissions to Reports Container
      ctr.Permissions = ctr.Permissions Or FrmRptOpenRun
      ctr.Inherit = True
      For Each doc In ctr.Documents
         docName = doc.Name
         doc.UserName = groupname
         'Set Open/Run Permissions to Each Report
         doc.Permissions = doc.Permissions Or FrmRptOpenRun
      Next doc
   Case "Scripts"
     'Set Open/Run Permissions to Macros Container
      ctr.Permissions = ctr.Permissions Or MacOpenRun
      ctr.Inherit = True
      For Each doc In ctr.Documents
         docName = doc.Name
        doc.UserName = groupname
         'Set Open/Run Permissions to Each Macro
         doc.Permissions = doc.Permissions Or MacOpenRun
      Next doc
   Case "Tables"
      '1. Assigns Full Permissions to Tables & Queries
      ctr.Permissions = ctr.Permissions Or OBJSFULL
      ctr.Inherit = True
      For Each doc In ctr.Documents
        docName = doc.Name
        doc.UserName = groupname
         L4 = Left$(docName, 4)
       'Exclude System Objects
        If L4 = "MSys" Or L4 = "~sq_" Then
          GoTo nextloop
        End If
        '2. Remove Modify and Administrator permissions
        doc.Permissions = doc.Permissions Or TblQryExcludingModifyAdmin
nextloop:
      Next doc
  End Select
Next
 ctrSetPermission2Grp = False
SetPermission2Grp_Exit:
Set db = Nothing
Set wsp = Nothing
Exit Function
SetPermission2Grp_Err:
MsgBox Err & ": " & Err.Description, , "SetPermission2Grp"
SetPermission2Grp = True
Resume SetPermission2Grp_Exit
End Function
Public Function SetPer()
Call SetPermission2Grp
 
End Function

[zmbd]

Emmanuel Ayivi:
Not enough detail to begin to answer question. Please read the FAQ, posting guidlines, and the stickies for the forum...

Normally, I would have deleted the thread; however, you did take the time to show what you're working with and it will take such a little amount of effort on your to have a good question!

At the minimum:
- What errors are you receiving, the EXACT number and text?
- Have you set the Option explicit and compare database?
- Have you compiled the code?
- Which version of access are you attempting to use this code with?

[zmbd]

Found the original document.

This code will not work with "accdb" (native v2007/2010) databases as the user level security has been deprecated starting with v2007.

This is clearly stated in the associated articles to this code that Mr. Pillai has written in support.

This demonstrates the dangers of taking code, or other information, out of context without a clear understanding of the underlying structure/theory.

[NeoPa]

This question is asked so poorly I wondered why it wasn't simply deleted. However, what we have now could well prove a very useful resource for those looking for similar help. Good work Z.

[zmbd]

Part of the reason this wasn't out right deleted as I've been looking for a workaround myself for the user level security.

If one will run one of the database analysis tools (including the one in database-tools v2010) You can see that there is an owner "admin" and groups etc... assigned - > WITHIN <- an ACCDB file. I had hoped that someone had found a workaround wihtin Access to use these table properties! Reading OP's code, I didn't catch that the database reference had been modififed from the article code - leading me closer to the door with the lion, and I just had to take a peek at the lion. Pretty Kitty.
So, off to find OP's resource

and

a

deep

sigh.

No workaround. Instead an article dealing with mdb files from V2007. ARRRRRGGGGGGhhhhhhhhh -- where's me egg-nogg!

[NeoPa]

As I said, it has proved a useful thread anyway (IMHO).

BTW. I'm not sure about that mess down your front Z, but it might explain the missing egg-nogg ;-)