Como Proteger y Desproteger por medio de macros
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 abajoCuando 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.
#ExcelVBA #MacrosExcel #MicrosoftExcelVBA
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.
gracias fantástico
ResponderEliminarGracias!
ResponderEliminarBuen día amigo tengo una macros ya la tengo protegida ahora la cosa es que cada que se vuelve a proteger la onfiguraion de usar los filtros también se vuelve a proteger sabes como hacer o como va la sintaxis para que el filtro quedé útil para los usuarios gracias de antemano buen trabajo el que realizas
ResponderEliminar