UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Contraseña por Hoja el 24/07/13, 02:51 pm

Br1Style


Buenas tardes,

Existe algún código para que en un libro de Excel si yo quiero ingresar a una hoja me pida contraseña para pasar a esa hoja a ver la información que allí se encuentra contenida???

Es que es un archivo que se comparte con 4 personas pero lo ideal seria que cada persona ingresara a la hoja solo con un password asignado.

De ser posible me podrían por favor colaborar con el código... es que visual no es mi fuerte realmente.

2 Re: Contraseña por Hoja el 24/07/13, 10:16 pm

tyno


Hola Br1Style.
¿Como seria el asunto? ¿estas 4 personas tienen que tener permiso para ingresar a una sola Hoja Excel o a 4 Hojas Excel distintas?
Si estas personas tienen que tener permiso para ingresar a una misma Hoja entonces con una sola contraseña bastaria, ahora si se trata de 4 Hojas distintas para cada una de las personas entonces si podemos hablar de 4 contraseñas distintas. Seria mejor que expliques esto. Saludos.

3 Re: Contraseña por Hoja el 25/07/13, 12:56 am

Br1Style


Efectivamente va a haber una hoja en la que se encuentran los datos consolidados pero van a haber 4 hojas donde se van a resumir los datos por campañas. 4 personas van a ver la información general pero cuando den click en un botón les solicite contraseña para ingresar. esto teniendo en cuenta que de las cuatro personas que miraran el archivo cada una debe tener acceso al con solidado y a su respectiva campaña es decir a su respectiva hoja.

4 Re: Contraseña por Hoja el 25/07/13, 03:58 pm

tyno


Hola Br1Style.

Te paso un archivo como ejemplo de lo que has pedido. Este archivo tiene 5 Hojas donde las Hojas 2,3,4,5 estarian bloqueadas y ocultos sus datos.
Una persona al seleccionar una Hoja debe ingresar un contraseña para desbloquear y mostrar el contenido de dicha Hoja.
De momento estas 4 Hojas tienen el mismo pass, que es  123, tu deberias cambiarlo despues desde el editor de macro de cada Hoja.

En cada una de estas Hojas vas a encontrar el siguiente codigo:

Private Sub Worksheet_Activate()
On Error Resume Next
Columns("A:XFD").EntireColumn.Hidden = True
ActiveSheet.Protect "123" '<<<<<<<establecer contraseña

a = InputBox("Password:", "Ingresar")
If a = "" Then Sheets(1).Select

If a = "123" Then
ActiveSheet.Unprotect "123" '<<<<<<<establecer contraseña
Columns("A:XFD").EntireColumn.Hidden = False
    Range("a1").Select
Else
Sheets(1).Select
End If
End Sub

donde te he indicado en que parte se ingresaria el pass que corresponda.

A su vez el editor de macros esta protegido con contraseña que seria tu nombre de usuario de este foro "Br1Style" (sin comillas). esto para que nadie acceda al editor de macros y vea las contraseñas de cada Hoja.
O sea que para ingresar al editor de macro para cambiar las contraseña vas a tener que ingresar primero esta otra contraseña.

De momento seria esto cualquier cosa por aqui estaremos. Saludos
Archivos
hojas con pass.zip
No tienes los permisos para descargar los archivos.
(18 KB)

5 Re: Contraseña por Hoja el 25/07/13, 06:10 pm

Br1Style


Tyno Muuuchas gracias es exactamente lo que estaba necesitando te agradezco mucho por tu colaboración. Te la debo...

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.