Objeto UserPermission (Office)

Asocia un conjunto de permisos en el documento activo a un usuario único y una fecha de caducidad opcional. Representa a un miembro de la colección Permission del documento activo.

Observaciones

Utilice el método Add del objeto Permission para conceder permisos específicos en el documento activo a un nuevo usuario, con una fecha de caducidad opcional. Utilice el método Remove del objeto UserPermission para quitar un usuario y los permisos del usuario.

Aunque algunos permisos concedidos mediante la interfaz de usuario (como msoPermissionPrint) se aplican a todos los usuarios, puede utilizar el objeto UserPermission para asignar a cada usuario permisos con fechas de vencimiento específicas.

Ejemplo

En el ejemplo siguiente se determina si el documento activo tiene permisos restringidos y, a continuación, enumera los usuarios y sus permisos asignados devolviendo las propiedades UserId, Permission y ExpirationDate de cada UserPermission en la colección Permission del documento.

 Dim irmPermission As Office.Permission 
 Dim irmUserPerm As Office.UserPermission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 For Each irmUserPerm In irmPermission 
 strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _ 
 " - Permissions: " & irmUserPerm.Permission & vbCrLf & _ 
 " - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf 
 Next 
 MsgBox strIRMInfo, _ 
 vbInformation + vbOKOnly, "IRM Information" 
 Else 
 MsgBox "This document is not restricted.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 End If 
 Set irmUserPerm = Nothing 
 Set irmPermission = Nothing 

Vea también

• Miembros del objeto UserPermission
• Referencia del modelo de objeto

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.