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

El editor de Visual Basic proporciona con Microsoft Excel ofrece a los usuarios más avanzados de las herramientas necesarias para crear macros casi ilimitadas para personalizar la forma en que Excel funciona. Una macro simple puede proteger con contraseña una hoja de cálculo 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 vale la pena el esfuerzo. Instrucciones
1

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

Press "ALT + F11 " para abrir Visual Basic .

3

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

4 Haga clic en la herramienta " TextBox " y arrástrelo hasta el área de trabajo " formulario de usuario ." Ajuste el tamaño del cuadro de texto como desee.
5

Press "F4 " con el " cuadro de texto " aún seleccionada para entrar en el panel " Propiedades " y desplácese hacia abajo para " PasswordChar . " Inserte un asterisco (*) en la columna de valor .
6

Haga clic en el " formulario de usuario " para devolver la caja de herramientas y arrastre un " CommandButton " en el " formulario de usuario . " Por razones estéticas , la posición del botón situado a la derecha de la " TextBox ".
7

Press "F4 " con el " CommandButton " aún seleccionada 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

Press " F7 " y pega el siguiente código como parece a

Private Sub CommandButton1_Click ()

WSheet Dim como hoja de trabajo

For Each WSheet En Hojas

Si WSheet.ProtectContents = True Entonces

WSheet.Unprotect Contraseña: = TextBox1.Text

demás

WSheet.Protect Contraseña: = TextBox1.Text

End If

WSheet Siguiente

a descargar

End Sub
10

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

Sub ShowPass ()

UserForm1.Show

End Sub
11

Press "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 método abreviado a la macro y presiona " Aceptar".

14

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