jueves, 12 de enero de 2017

Proteger y desproteger por medio de macros | ActiveSheet.Protect VBA en Excel



ActiveSheet.Protect Macro para proteger o desproteger una hoja Microsoft Excel, la subrutina VBA para proteger la hoja con contraseña y otra subrutina para desprotegerla. Es necesario ingresar al Editor de Visual Basic donde pegaremos el código que encontramos mas abajo

Cuando trabajamos nuestros archivos con macros, a veces se hace necesario este procedimiento que por medio de código se ingrese la contraseña para desproteger la y Protegerla. La contraseña debe de ir entre comillas, tal y como aparece en las líneas de código.

Activesheet.Unprotect, Proteger una hoja de cálculo - Excel

Una hoja de cálculo puede ser protegido de tal manera que sólo las celdas que se necesitan se puedan modificar. La protección de una hoja de cálculo consiste en dos configuraciones diferentes: o atributos de protección de hoja de cálculo y fijación de celda. Cuando se protege una hoja de cálculo, todas las celdas que están bloqueados se convierten en no editable y aquellas celdas que no están bloqueados siguen siendo editables.

En esta publicación vamos a ver como hacerlo.

Protegemos la hoja activa

Código
ActiveSheet.Protect "Contraseña_que_quieres_poner"


Desproteger una hoja de cálculo
Código
ActiveSheet.Unprotect "Contraseña_que_quieres_quitar"

Si deseamos proteger un libro de excel
Código
ThisWorkbook.Protect "Contraseña_que_quieres_poner"

Si deseamos desproteger un libro de excel
Código
ThisWorkbook.Unprotect "Contraseña_que_quieres_quitar"

Ejemplo de como debe de ir el codigo

Sub PROTECCION()

Sheets("Hoja1").Select

ActiveSheet.Protect ("#Excel #VBA")

End Sub


Sub DESPROTEGER()

Sheets("Hoja1").Select

ActiveSheet.Unprotect ("#Excel #VBA")

End Sub

Espero que le encuentren utilidad.

Enlaces patrocinados