Cómo crear protección con contraseña usando una macro
¿Le gustaría asegurarse de que todas las hojas de trabajo de una carpeta de su elección estén protegidas con contraseña mediante una macro? Esto puede ser útil si tiene demasiados problemas para proteger las hojas de trabajo individualmente o si desea proteger todos los libros de un directorio automáticamente. Utilice la siguiente macro para asignar la contraseña "proteger" a todas las hojas de trabajo en la carpeta activa:
Sub AllSchuetzen ()
Atenuar hoja como hoja de trabajo
Para cada hoja de ActiveWorkbook.
Blatt.Protect ("protección")
Siguiente hoja
End Sub
En lugar del texto "Schutz", utilice la contraseña de su elección. Por supuesto, este código de programa solo tiene sentido si lo ingresa fuera del libro de trabajo en el que está creando la protección. De lo contrario, todos los usuarios pueden leer la contraseña en el texto fuente de VBA.
Para poder cambiar algo en las hojas de trabajo protegidas, debe eliminar la protección. Puede hacerlo manualmente con el comando EXTRAS - PROTECCIÓN - CANCELAR PROTECCIÓN HOJA. Este comando solo está disponible si la hoja de trabajo actual está realmente protegida.
Si desea liberar todas las hojas de trabajo protegidas nuevamente usando una macro, use el siguiente código de programa:
Sub AllExposure ()
Atenuar hoja como hoja de trabajo
Para cada hoja de ActiveWorkbook.
Blatt.Unprotect ("protección")
Siguiente hoja
End Sub
