Jump to content

Macro tarda en cargarse


Recommended Posts

Buenas a todos. 

Tengo un archivo excel que nada mas abrirlo se abre un formulario de inicio de sesión. Mientras este formulario está abierto no se puede ver el archivo de excel, y una vez que se inicia sesión ya se puede acceder al libro. No obstante, la macro me genera dos problemas:

1.El primero de ellos es que cuando abro el libro, es decir, cuando doy dos clicks al archivo de excel, el excel se abre rápidamente, se cierra y ahí me muestra el formulario de inicio de sesión. Pero yo no quiero que funcione así. Yo quiero que al dar dos clicks al archivo de excel directamente se me abra el formulario sin que se abra el excel.

2. Si abro el archivo de excel me pide que inicie sesión, bien. Pero si cierro el inicio de sesión y rápidamente vuelvo a abrir el archivo, en lugar de que me aparezca el formulario para iniciar sesión directamente me entra en el excel.

Adjunto un gif del problema y también la macro. 

Nota: Cuando se ve el bloque azul significa que el excel está abierto. Solo que he colocado un bloque azul porque contiene datos privados.

¿Alguna idea de por qué este error?

Gracias de antemano.

Saludos.

 

Macro:

Private Sub Workbook_Open()
Application.Visible = False
InicioSesion.Show
End Sub

InicioSesion es el nombre del formulario. 

El formulario es sencillo. Simplemente tiene puesto que si el nombre de usuario y contraseña son correctos entonces: Application.Visible = True :

'If nombreusuario = Sheets("Usuario").Range("B3") And passusuario = Sheets("Usuario").Range("C3") Or _
'nombreusuario = Sheets("Usuarios").Range("B4") And passusuario = Sheets("Usuarios").Range("C4") Then
'Application.Visible = True
'Unload Me
'Else
'    MsgBox ("Nombre de usuario o contraseña incorrectos")
'End If

nombreusuario es la caja de texto donde el usuario ingresa su nombre de usuario

passusuario es la caja de texto donde el usuario ingresa su contraseña

GIF:

1367659490_2021-10-0600-50-52(online-video-cutter.com).thumb.gif.5d68e8f41a94f1cf3fc6f8df51ca6dad.gif

Como se puede ver la primera vez que abro el archivo se abre rápidamente el excel, se cierra y me muestra el formulario. La segunda vez que lo abro se abre el excel directamente y no me pide iniciar sesión.

Link to comment
Share on other sites

Adjunto un archivo de ejemplo.

Para ver todas las hojas el usuario es admin y contraseña 0, pues dependiendo del usuario ingresado cambia el numero de hojas a mostrar.

No obstante, como comenté anteriormente, si abre el excel por segunda vez en un corto periodo de tiempo no le pedirá inicio de sesión y entrará automáticamente.

 

Ejemplo.xlsm

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 30.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      143
    • Comments
      87
    • Reviews
      25

    Latest File
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Buenas noches. He intentado subir un fichero pero pesa más de lo permitido. Realmente intentaré explicarme. He construido dashboard con gráficos e información de una tabla dinámica con listado de árbitros donde aparecen: nombre, fecha de nacimiento, localidad, categoría arbitral, etc... distintos campos en distintas columnas. Digamos que quiero que aparezca en el dashboard un campo que sirva de buscador. O sea, incluyo tres letras en el nombre y me salen los árbitros en cuyo nombre aparecen dichas letras.  Aparte me sale la información que yo determine en campos diferentes (por ejemplo edad y categoría arbitral). Siento quizás no poder explicarme mejor. Aún así muchas gracias.  
    • Hola Tu pregunta, aunque no lo creas, es demasiado genérica y hace falta imaginarse demasiado tu situación. Trata o de adjuntar tu archivo o de especificar mejor las cosas. No olvides que no necesariamente escribir más es especificar mejor. Saludos.
    • Hola a todos, Intento extraer en una sola función, una fecha que esta dentro de una cadena de texto y esta función extraiga únicamente la fecha. Adjunto un archivo como ejemplo, seria hacer en una sola celda los 4 pasos del archivo  Gracias de antemano Libro1.xlsx
    • Buenas noches. Quería preguntar si es posible incluir un buscador dentro de un dashboard teniendo en cuenta que solo quiero incluir algunos parámetros (nombre, DNI, Categoría y otro más, hasta un total de 4) de todos los que tiene la tabla dinámica situada en otra hoja. ¿Tengo que exportar todos los datos al propio dashboard? Mi idea es que todo los datos se mantengan en la una hoja y que en el dashboard (otra hoja) tan solo aparezcan los que cumplan con los requisitos que se incluyen en el propio buscador.......Es la primera pregunta que lanzo y quiero pedir disculpas porque he visto que hay que adjuntar archivo, pero tiene datos personales y por la protección de datos es imposible. Agradecería que me informaran si es posible hacer lo que pido y alguna referencia para poder estudiarla porque entiendo que será trabajoso pero me gusta aprender. Muchas gracias.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy