Código VBA para proteger con contraseña un archivo de Excel

La protección con contraseña de un archivo de Excel logra dos objetivos principales (1) evita el acceso no autorizado al archivo de Excel (2) evita la modificación no autorizada del archivo de Excel.

La protección a nivel de archivos no es lo mismo que la protección de hojas de trabajo o la protección de libros de trabajo . La protección de la hoja de trabajo controla lo que un usuario puede o no hacer en una hoja de trabajo, como insertar filas o escribir en celdas. La protección de libros evita que los usuarios agreguen, eliminen, muevan, oculten o muestren hojas de trabajo.

La protección a nivel de archivo permite dos contraseñas: (1) para abrir el archivo (2) para modificar el archivo.

Guardar un archivo de Excel con protección

'Guarde el archivo con la contraseña requerida para abrirThisWorkbook.SaveAs Password:="fileOpenPassword"'Guarde el archivo para permitir el acceso, pero requiere contraseña para modificarThisWorkbook.SaveAs writeResPassword:="modifyFilePassword"'Guarde el archivo con la contraseña requerida para abrir y modificar fileThisWorkbook.SaveAs Contraseña:="fileOpenPassword", _writeResPassword:="modifyFilePassword"

Si el archivo ya existe, se mostrará un mensaje de confirmación. Para que el código VBA funcione sin problemas, deberá desactivar las alertas de visualización antes de ejecutar el código y luego volver a activarlas después de guardar el archivo.

'Guarde el archivo y suprima guardar como mensaje de advertenciaApplication.DisplayAlerts = FalseThisWorkbook.SaveAs Password:="fileOpenPassword", _writeResPassword:="modifyFilePassword"Application.DisplayAlerts = True

Abrir un archivo Excel protegido con contraseña

Al abrir manualmente un archivo de Excel protegido con contraseña, se muestran las solicitudes de contraseña:

Contraseña de apertura de archivo

Archivo Modificar Contraseña

Usando VBA es posible abrir estos archivos y proporcionar la contraseña para que no aparezca el mensaje.

'Abrir archivos protegidos con contraseñaWorkbooks.Open Filename:="C:UsersmarksDocumentsPasswordProtectedFile.xlsm", _Password:="fileOpenPassword", writeResPassword:="fileModifyPassword"

Las declaraciones Contraseña y writeResPassword deben incluirse o excluirse según el archivo que se esté abriendo.

Si se proporciona una contraseña incorrecta, se mostrará el siguiente mensaje de error.

El siguiente código detectará el error y proporcionará un mensaje personalizado.

'Detectar una contraseña incorrecta en caso de error Reanudar NextWorkbooks.Open Filename:="C:UsersmarksDocumentsPasswordProtecedFile.xlsm", _Password:="fileOpenPassword", writeResPassword:="fileModifyPassword"If Err.Number 0 Then MsgBox "La contraseña proporcionada es incorrecta" Salir de SubEnd Si hay error Ir a 0

Otros fragmentos de código VBA relacionados

Los siguientes fragmentos de código VBA serán útiles para aplicar esta publicación en un contexto más amplio.

• Proteger y desproteger libros
• Proteger y desproteger hojas de trabajo

---