Método Workbook.ProtectSharing (Excel)

Guarda el libro y establece una contraseña que impide que sea compartido.

Sintaxis

expresión. ProtectSharing (FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat)

Expresión Variable que representa un objeto Workbook .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Opcional	Variant	Cadena que especifica el nombre del archivo guardado. Se puede especificar la ruta completa del archivo; en caso contrario, Microsoft Excel guarda el archivo en la carpeta actual.
Password	Opcional	Variant	Cadena que indica la contraseña de protección que se va a dar al archivo (se distingue entre mayúsculas y minúsculas). No debe exceder de 15 caracteres.
WriteResPassword	Opcional	Variant	Cadena que indica la contraseña contra escritura del archivo. Si un archivo se guarda con la contraseña y la contraseña no se proporciona cuando se abre el archivo, el archivo se abre de solo lectura.
ReadOnlyRecommended	Opcional	Variant	True para que se muestre un mensaje que recomienda abrir el archivo en modo de sólo lectura.
CreateBackup	Opcional	Variant	True para crear un archivo de copia de seguridad.
SharingPassword	Opcional	Variant	Cadena que indica la contraseña que impedirá que el archivo sea compartido.
FileFormat	Opcional	Variant	Cadena que indica el formato de archivo.

Comentarios

Use contraseñas seguras que combinen letras mayúsculas y minúsculas, números y símbolos. En las contraseñas no seguras estos elementos no se combinan.

• Contraseña segura: Y6dh!et5
• Contraseña débil: House27

Las contraseñas deben tener al menos 8 caracteres. Una frase de paso que tenga un mínimo de 14 caracteres es una opción mejor. Es fundamental que recuerde la contraseña. Si la olvida, Microsoft no podrá recuperarla. Almacene las contraseñas anotadas en un lugar seguro y alejadas de la información que se desea proteger con estas contraseñas.

Ejemplo:

En este ejemplo se guarda el libro uno y se impide que se comparta.

 
Sub ProtectWorkbook() 
 
    Dim wbAWB As Workbook 
    Dim strPwd As String 
    Dim strSharePwd As String 
 
    Set wbAWB = Application.ActiveWorkbook 
 
    strPwd = InputBox("Enter password for the file") 
    strSharePwd = InputBox("Enter password for sharing") 
 
    wbAWB.ProtectSharing Password:=strPwd, _ 
        SharingPassword:=strSharePwd 
 
End Sub

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.