تعیین حدود دسترسی کاربران

 Option Explicit
 Public AddNew As Boolean
 Public Delete As Boolean
 Public Edit As Boolean
 Public GroupTypeName As String
 Public Sub GroupType()
   'Access Type
  If GroupTypeName = "Admin" Then
   AddNew = True
   Delete = True
   Edit = True
  End If
  If GroupTypeName = "Assistant" Then
   AddNew = True
   Edit = True
   Delete = False
  End If
  If GroupTypeName = "BookKeeper" Then
   AddNew = False
   Edit = True
   Delete = False
  End If
End Sub