¿Cómo utilizar la programación VBA para proteger archivos de Word y Excel?

Proteger libro de trabajo (método de protección)

Sub ProtectWorkbook()

MsgBox "Proteger estructura del libro de trabajo, la contraseña es 123"

ActiveWorkbook. Proteger contraseña: = "123", Estructura: = True

MsgBox "Proteger la ventana del libro, la contraseña es 123"

ActiveWorkbook.Protect Contraseña: = "123", Windows : =Verdadero

MsgBox "Proteger la estructura del libro y las ventanas, la contraseña es 123"

ActiveWorkbook.Protect Contraseña:="123", Estructura:=Verdadero, Windows:=Verdadero

End Sub

Descripción de ejemplo: use el método Proteger para proteger el libro, con tres parámetros opcionales. El parámetro Contraseña especifica la contraseña para proteger el libro. Esta contraseña debe ingresarse para desproteger el libro. ; Establecer el parámetro Estructura en Verdadero protege la estructura del libro de trabajo. En este momento, las hojas de trabajo del libro de trabajo no se pueden insertar, copiar, eliminar, etc.; establecer el parámetro Windows en Verdadero protege la ventana del libro de trabajo. La ventana está protegida. Los botones minimizar, maximizar y cerrar desaparecen.

Desproteger libro (método UnProtect)

Sub UnprotectWorkbook()

MsgBox "Desproteger libro"

ActiveWorkbook.Unprotect "123"

End Sub

La palabra debe ser la misma