Ayuda con macro para proteger libro y hojas con contraseña

[jesusmart1nez]

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

[jesusmart1nez]

Buenas de nuevo. Entiendo que pueda llevar tiempo una respuesta pero al menos agradecería que me dijerais si es posible hacer todo lo que solicito para aunque sea buscar yo por internet el código. Muchas gracias de antemano. ;-)