Creates a set of permissions on the active document for the specified user. Returns a UserPermission object.
expression. Add( ** UserID, ** Permission, ** ExpirationDate** )
expression Required. A variable that represents a Permission object.
| Name | Required/Optional | Data Type | Description |
|---|---|---|---|
| UserID | Required | String | The e-mail address (in the format [email protected]) of the user to whom permissions on the active document are being granted. |
| Permission | Optional | msoPermission | The permissions on the active document that are being granted to the specified user. |
| ExpirationDate | Optional | Date | The expiration date for the permissions that are being granted. |
The following example assigns a combination of read and edit permissions on the current document to a user and specifies an expiration date for these document permissions.
Dim objUserPerm As Office.UserPermission
Set objUserPerm = ActiveWorkbook.Permission.Add( _
"[email protected]", _
msoPermissionRead + msoPermissionEdit, #12/31/2005#)
MsgBox "Permissions added for " & _
objUserPerm.UserId, _
vbInformation + vbOKOnly, _
"Permissions Added"
Set objUserPerm = Nothing