Protección con contraseña de una hoja de cálculo de Excel con una macro

El editor de Visual Basic proporcionado con Microsoft Excel da más usuarios avanzados las herramientas necesarias para crear macros casi ilimitadas para personalizar la forma en que funciona Excel. Una macro simple puede proteger con contraseña una hoja de cálculo de Excel con sólo unas pocas líneas de código. Trabajar con macros en Visual Basic requiere algo de práctica, pero los beneficios de aprender lo básico es la pena el esfuerzo.

Instrucciones

1 Abra la hoja de cálculo de Microsoft Excel que desea proteger.

2 Pulse la tecla "ALT + F11" para abrir Visual Basic.

3 Haga clic en el menú "Insertar" y seleccione "formulario de usuario."

4 Haga clic en la herramienta "Cuadro de texto" y arrastrarlo a la zona de trabajo "formulario de usuario". Ajustar el tamaño del cuadro de texto si lo deseas.

5 Pulse la tecla "F4" con el "Cuadro de texto" aún seleccionado para entrar en el panel "Propiedades" y vaya a "PasswordChar." Introduzca un asterisco (*) en la columna de valor.

6 Haga clic en el "formulario de usuario" para traer de vuelta la caja de herramientas y arrastre un "CommandButton" en el "formulario de usuario." Por razones estéticas, coloque el botón situado a la derecha del "Cuadro de texto".

7 Pulse la tecla "F4" con la "CommandButton" aún seleccionado y cambiar el título a "OK".

8 Haga clic en el "formulario de usuario", pulse "F4" y cambie su título a "Proteger / Desproteger todas las hojas."

9 Pulse la tecla "F7" y pegue el siguiente código tal como aparece a continuación:

Private Sub CommandButton1_Click ()

Dim WSheet como hoja de trabajo

For Each WSheet In Worksheets

Si WSheet.ProtectContents = entonces verdad

WSheet.Unprotect Contraseña: = TextBox1.Text

Más

WSheet.Protect Contraseña: = TextBox1.Text

Terminara si

Siguiente WSheet

a descargar

End Sub

10 Seleccione "Módulo" en el menú "Insertar" y pegue el siguiente:

ShowPass sub ()

UserForm1.Show

End Sub

11 Pulse la tecla "ALT + Q" para volver a Excel.

12 Pulse la tecla "ALT + F8", a continuación, pulse "Opciones" después de seleccionar "ShowPass" de la lista.

13 Asignar una tecla de acceso directo a la macro y pulse "OK".

14 Presione la combinación de teclas de acceso directo para iniciar la macro, introduzca una contraseña, a continuación, pulse el botón "OK" para proteger con contraseña las hojas del libro.

Consejos y advertencias

• Guardar la macro en el libro "personal.xls" para que esté disponible para todos los libros futuros.