Login con password cambiar visibilidad hojas

Buenos días,
Necesito hacer un sistema de login para un libro excel, de manera que dependiendo de el usuario que loguée se muestren unas hojas u otras y el resto permanezcan muy ocultas (para quien no lo sepa, Excel tiene tres estados de visibilidad para las hojas de un libro, visible, oculto y muy oculto, la diferencia enrtre oculto y muy oculto es que en oculto las hojas aparecen en un listado de alguna parte y en muy oculto no)
Al hacer esto, me surgen tres problemas:
El primero es que soy novato en VBA (lo mio es el T-SQL) y no sé decirle que cuando se clickee la 'autoforma1' (botón de aceptar) lalala (donde lalala es comprobar el login y cambiar la visibilidad de las hojas que correspondan)
El segundo, aunque me preocupa menos porque está destinado a usuarios con un nivel MUY básico, los nombre de usuario y contraseñas habría que codificarlos 'a capón' con lo cual cualquiera sepa entrar en el modo de macro, podría ver todo los accesos. He pensado en crear una hoja muy oculta donde se la el listado de validación, para que no esté escrito en el código contraseña "Margaritaspower" y complicarlo un poco más, pero si entiende un poco de filosofía de programación podría saber donde mirar. ¿Tenéis alguna idea de como ocultar definitivamente las contraseñas?
El tercero es que debo detectar el evento cerrar libro para interrumpirlo y que antes de cerrar oculte la visibilidad y guarde los cambios.
En resumen, tengo que hacer una macro en Excel que de primeras me parecía una tontería, pero que una vez metidos en faena, no sé hacer.
¿Podríais ayudarme?
Muchas gracias por adelantado y Saludos.
{"lat":43.4210088299473,"lng":-3.8671875}

1 Respuesta

Respuesta
1
Como podréis deducir, soy el mismo que hizo la pregunta, que ya la he resuelto y quiero responder.
Mi planteamiento inicial estaba equivocado, porque desconocía que se pudieran crear formularios. Para crear un formulario, debemos presionar Alt+F11 (para abrir el modo diseño de VBA) y en el menú Insertar seleccionar un Userform. Se abrirá el cuadro de edición y crearemos los siguientes elementos:
2 Labels:
Label1 -> "Nombre de usuario"
Label2 -> "Password"
2 Text Box:
TextBox1 -> para el usuario
Textbox2 -> para el pass
2 CommandButton:
CommandButton1 -> Aceptar
CommandButton2 -> Cancelar
Este es el código que debemos insertar:
Private Sub CommandButton1_Click()
'Definimos el contador i
Dim i As Integer
'comprobamos que el nombre de usuario no esté vacío
If Me.TextBox1 = "" Then
MsgBox "Debe Escribir el usuario", vbExclamation
Exit Sub
End If
'si no está vacío comprobamos si aparece en el listado.
'Si no aparece mostramos un mensaje de erro y solicitamos que lo intente de nuevo
For i = 1 To 10
If Me.TextBox1 = CStr(Hoja1.Cells(i, 1)) And Me.TextBox2 = CStr(Hoja1.Cells(i, 2)) Then
MsgBox "Welcome", vbInformation
Unload Me
'Comprobamos en que posición del listado está, para asignarle las hojas que puede ver.
    If i = 1 Then
    'cambiamos la visibilidad de las hojas correspondientes:
    Worksheets("Hoja5").Visible = -1
    Worksheets("Hoja2").Visible = -1
    Else
        If i = 2 Then
        Worksheets("Hoja5").Visible = -1
        Worksheets("Hoja3").Visible = -1
        Else
            If i = 3 Then
            Worksheets("Hoja1").Visible = -1
            Worksheets("Hoja4").Visible = -1
            Else
                If i = 4 Then
                Worksheets("Hoja1").Visible = -1
                Worksheets("Hoja2").Visible = -1
                Worksheets("Hoja3").Visible = -1
                Worksheets("Hoja4").Visible = -1
                Worksheets("Hoja5").Visible = -1
                End If
            End If
        End If
    End If
Exit For
Else
If i >= 10 Then
MsgBox "Error, Compruebe el Nombre de Usuario y el Password", vbCritical
End If
End If
Next
End Sub
Private Sub CommandButton2_Click()
End
End Sub
NOTA:El código en cursiva, aparecerá automáticamente al hacer doble click en el objeto.
Parte 2, Debemos seleccionar en el visor de proyecto ThisWorkbook e introducir el siguiente código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Login").Visible = 2
Worksheets("Hoja2").Visible = 2
Worksheets("Hoja3").Visible = 2
Worksheets("Hoja4").Visible = 2
Worksheets("Hoja5").Visible = 2
End Sub
NOTA: Al hacer click nos aparecerá por defecto otro evento que no sea BeforeClose, debemos cambiarlo. Lo que no sé, es si el "Cancel as boolean" es necesario porque es código copiado fusilado y modificado. Supongo que no lo sea.
NOTA: En mi código la hoja1 está renombrada com login y es u listado de los usuarios. Y según en que posición de la lista esté se verán unas hojas u otras.
Fuente: yahoo respuestas -> http://es.answers.yahoo.com/question/index?qid=20091214144912AAVDnIx

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para Stock

Necesito ayuda para calcular el stock real de un producto. Tengo un libro con 4 hojas. Altas - ingresos - salidas - stock Necesito una macro que me calcule para iguales Materiales, el Stock final luego de dar ALTA al mismo, y posteriores Ingresos y...
1 respuesta

Ocultar o mostrar hojas según valor en celda

Tengo una hoja (Hoja1) en la cual puedo introducir valores en la celda a1 y a2. Lo que quiero es que cuando introduzca en la celda a1 verdadero (viene esto de una casilla de verificación asociada a la celda A1), se oculte la Hoja2, y que cuando ponga...
1 respuesta

Ver solo una hoja de un libro

Tengo un libro de varias hojas. La primera de ellas es un indice con hipervincuulos a otras hojas Lo que quiero preguntarte es como hacer que la primera de ellas esté siempre visible y las demás solo aquella a la que apunte el hiervinculo. Un ejemplo...
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Control de PC para abrir archivos Excel

Quisiera saber como impedir que un archivo .xls sea abierto en un PC no autorizado. Trato de evitar que alguien se lleve copia de ficheros en diskette y puedan ser abiertos en otros ordenadores. He pensado en crear un fichero oculto instalado en los...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta