Cómo proteger y desproteger en Excel VBA

La función de protección de Excel 2010 le permite proteger una hoja de cálculo para cualquier persona que no conoce la contraseña no puede modificar la hoja. Hay un botón en la cinta que protegerá la hoja de cálculo, pero también se puede proteger a la hoja utilizando Visual Basic para Aplicaciones (VBA), que se suministra con el software de cálculo de Excel. Es más común tener el código VBA desproteger una hoja de cálculo protegida, ejecutar comandos en la hoja de trabajo sin protección, y luego poner la protección en su lugar.

Instrucciones

1 Abra el libro de Excel que desea trabajar. Hold "Alt" y pulse "F11" para iniciar la consola de VBA.

2 Seleccione el módulo en el que desea añadir el código de la lista en el lado izquierdo de la consola de VBA. Haga doble clic en el módulo para que aparezca su código en el lado derecho de la pantalla. Si no hay ningún módulo está presente, haga clic en cualquiera de las hojas de trabajo que figuran en el lado izquierdo de la pantalla, mueva el puntero del ratón sobre "Insertar" y elegir la opción "Módulo". Haga doble clic en el módulo que aparece al abrir una hoja en blanco en el lado derecho de la consola de VBA.

3 Haga clic en el lado derecho de la pantalla para colocar el cursor en el cuadro blanco. Si la casilla está en blanco, escriba "nombre de Sub ()", donde "nombre" es lo que desea el nombre de su macro. Pulse Intro para continuar, y Excel VBA entrará automáticamente en la línea "End Sub".

4 Tipo de "WS dévil como hoja de trabajo" directamente debajo de su línea "Sub". Si está trabajando con el código existente, entrar en esta línea donde se declaran sus otras variables y asegurarse de que no hay ya otra variable denominada "ws". Si lo hay, cambiar todas las instancias de "WS" en este código para cualquier combinación disponible de dos letras.

5 Coloque el cursor en la línea siguiente, o si se está trabajando con el código existente, ponerlo donde desea desproteger la hoja de cálculo. Introducir en el código siguiente:

Para Cada WS ActiveWorkbook.Worksheets

ws.Unprotect Contraseña: = "ZZZ"

Siguiente ws

Cambiar "zzz" en el código para que sea su contraseña hoja de trabajo es. Cuando se desea proteger la hoja de trabajo de nuevo, basta con introducir estos mismos tres líneas de código, excepto el cambio "desproteger" para "proteger".