Ayuda con macro para proteger libro y hojas con contraseña
publicado
Hola a todos.
Me gustaría saber si es posible que me ayudéis con una macro y me dijeráis si puede hacerse y como. Serían en realidad dos macros y esta es la idea:
Tengo un libro con varias hojas en las que yo voy a ser el "administrador". De esas hojas hay 3 en las que quiero que la gente grabe datos y que solo se muestren esas tres hojas. Quisiera también que los usuarios no puedan grabar nada más que en las celdas que yo habilite y que no puedan mostrar hojas ni manipular fórmulas, pero si poder aplicar filtros.
La idea es proteger todas las hojas con la misma contraseña y ocultar las que no quiero que vean y además proteger el libro para que no puedan ver dichas hojas de ninguna manera. Además cada hoja iría protegida de una manera diferente, alguna con la opción de autofiltro y seleccionar solo las celdas desprotegidas, otras con insertar hipervínculos y otras con modificar objetos.
Tengo el código de una macro en la que te pide introducir una contraseña para proteger todas las hojas a la vez, que me podría servir lo único es que no sé como hacer que la protección de cada hoja sea diferente y que se oculten las que no quiero que se vean. Además con este código suponiendo que se modificara para hacer esto, seguiría existiendo la posibilidad de poder mostrar las hojas que se han ocultado, con lo que además habría que proteger el libro completo.
Por tanto la macro, salvo que a alguien se le ocurra una idea más práctica, sería, proteger con la misma contraseña cada hoja pero permitiendo diferentes manipulaciones en la protección, ocultar luego las que no quiero que se vean y por último proteger el libro con otra contraseña diferente y todo esto que te lo pida la macro.
Luego habría que hacer otra macro a la inversa, es decir, que nos pida la contraseña para desproteger el libro, que una vez introducida correctamente nos muestre todas las hojas y que nos pida contraseña para desproteger todas las hojas a la vez.
Adjunto el libro Excel con un par de macros, que también podrían valer pero les falta el tema de que te pida una contraseña para proteger y desproteger hojas y el tema de que te pida una contraseña para proteger y desproteger el libro.
Hola a todos.
Me gustaría saber si es posible que me ayudéis con una macro y me dijeráis si puede hacerse y como. Serían en realidad dos macros y esta es la idea:
Tengo un libro con varias hojas en las que yo voy a ser el "administrador". De esas hojas hay 3 en las que quiero que la gente grabe datos y que solo se muestren esas tres hojas. Quisiera también que los usuarios no puedan grabar nada más que en las celdas que yo habilite y que no puedan mostrar hojas ni manipular fórmulas, pero si poder aplicar filtros.
La idea es proteger todas las hojas con la misma contraseña y ocultar las que no quiero que vean y además proteger el libro para que no puedan ver dichas hojas de ninguna manera. Además cada hoja iría protegida de una manera diferente, alguna con la opción de autofiltro y seleccionar solo las celdas desprotegidas, otras con insertar hipervínculos y otras con modificar objetos.
Tengo el código de una macro en la que te pide introducir una contraseña para proteger todas las hojas a la vez, que me podría servir lo único es que no sé como hacer que la protección de cada hoja sea diferente y que se oculten las que no quiero que se vean. Además con este código suponiendo que se modificara para hacer esto, seguiría existiendo la posibilidad de poder mostrar las hojas que se han ocultado, con lo que además habría que proteger el libro completo.
Este es el código:
__________________________________________________________________
Sub Password_Macro_Proteger()
Entrada = InputBox("Ingrese contraseña para continuar", "PROCESO PROTEGIDO")
If Entrada = "contraseña" Then
ThisWorkbook.Protect "contraseña"
Dim Sheet As Worksheet
For Each Sheet In Worksheets
Sheet.Protect "contraseña"
Next
For Each Sheet In Worksheets
Sheet.EnableSelection = xlUnlockedCells
Next
Else
MsgBox "Acceso Denegado", vbExclamation, "ERROR"
End If
End Sub
______________________________________________________________________
Sub Password_Macro_Desproteger()
Entrada = InputBox("Ingrese contraseña para continuar", "PROCESO PROTEGIDO")
If Entrada = "contraseña" Then
ThisWorkbook.Unprotect "contraseña"
Dim Sheet As Worksheet
For Each Sheet In Worksheets
Sheet.Unprotect "contraseña"
Next
For Each Sheet In Worksheets
Sheet.EnableSelection = xlNoRestrictions
Next
Else
MsgBox "Acceso Denegado", vbExclamation, "ERROR"
End If
End Sub
__________________________________________________________________
Por tanto la macro, salvo que a alguien se le ocurra una idea más práctica, sería, proteger con la misma contraseña cada hoja pero permitiendo diferentes manipulaciones en la protección, ocultar luego las que no quiero que se vean y por último proteger el libro con otra contraseña diferente y todo esto que te lo pida la macro.
Luego habría que hacer otra macro a la inversa, es decir, que nos pida la contraseña para desproteger el libro, que una vez introducida correctamente nos muestre todas las hojas y que nos pida contraseña para desproteger todas las hojas a la vez.
Adjunto el libro Excel con un par de macros, que también podrían valer pero les falta el tema de que te pida una contraseña para proteger y desproteger hojas y el tema de que te pida una contraseña para proteger y desproteger el libro.
Os agradezco mucho la ayuda de antemano.
Saludos.
archivo.rar