En algunas ocasiones en los trabajos universitarios o en la vida laboral se requiere proteger algunas hojas para que no se realicen modificaciones por accidente.
Sin embargo, en caso se requiera volver a usar y se tenga muchas hojas resultará muy tedioso tener que ir a la barra de herramientas y desprotegerla para hacer los cambios, y luego volver a protegerla.
Para solucionar esto se puede contar con una macro que proteja y desproteja automáticamente, facilitando el trabajo y reduciendo el tiempo en esta actividad.
La macro para realizar estas actividades se presenta con el siguiente ejemplo, en el que se cuenta con 2 botones (proteger y desproteger), el archivo colgado es un reporte de producción de una pequeña línea productiva donde se muestran los indicadores más importantes:
(Para mayor visualización de la imagen, hacer click en la misma)
Este archivo es compartido en una carpeta compartida de la empresa, donde varias áreas y personas revisan los resultados diarios, por lo cual resulta necesario tener protegido el archivo de manera que nadie más sea capaz de modificarlo.
PROTEGER HOJAS
Private Sub CommandButton1_Click()
'Declarar la variable
Dim hojas As Worksheet
'Ingresar contraseña
contra = InputBox("Ingrese Contraseña", "Contraseña de Desbloqueo")
'Verificar la contraseña
If contra <> "Planta" Then
MsgBox "Error, introduzca contraseña"
Else
'Determinar el número de hojas activas en el documento
For Each hojas In ActiveWorkbook.Worksheets
'Proteger las hojas
hojas.Protect Password:=contra
Next
End If
End Sub
DESPROTEGER HOJAS
Private Sub CommandButton2_Click()
'Declarar la variable
Dim hojas As Worksheet
'Ingresar contraseña
contra = InputBox("Ingrese Contraseña", "Contraseña de Desbloqueo")
'Verificar la contraseña
If contra <> "Planta" Then
MsgBox "Error, introduzca contraseña"
Else
'Determinar el número de hojas activas en el documento
For Each hojas In ActiveWorkbook.Worksheets
'Proteger las hojas
hojas.Unprotect Password:=contra
Next
End If
End Sub
Se adjunta el archivo Reporte produccion
08/02/2016 a las 5:35 pm
me fue de gran ayuda, me gustaria que sigan posteando mas cosas interesantes, como por ejemplo macros avanzado con mas ejemplos
20/05/2018 a las 5:44 pm
excelente muchas gracias lo que mas me gusto es que fuera de la hoja 2 solo es llamar la macro y listo muchas gracias
25/10/2018 a las 8:15 pm
cómo le hiciste para que te funcione? podrías pegar tu código? a mi no me funcionó
14/11/2018 a las 7:31 am
Puede que tengas que cambiar los “ por " y los ‘ por '. Hasta que no tengas ninguna línea de código roja.
08/09/2019 a las 9:10 am
No se donde puedo localizar hojas de calculo,no me aparece el trabajo de varios días. Ayer al guardar una hoja salio guardar como le di un clip y me desapareció la hoja no he sido capaz de localizarla.
Estaría muy agradecida con su ayuda.
29/03/2020 a las 6:44 am
Genial. funciona perfectamente.
Si puedes, añade la opción de proteger sin contraseña.
Gracias