Error de Compilación no encuentra el proyecto

Tengo el siguiente código

 Private Sub UserForm_Initialize()
 Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
 If Application.Version < 9 Then
 lngMyHandle = FindWindow("THUNDERXFRAME", Me.Caption)
 Else
 lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
 End If
 lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
 lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
 SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
 TextBox1 = Format(Now, "hh:mm")
 TextBox2 = Date
 End Sub

No tenia ningún problema con el, pero ahora cada vez que me abro mi formulario, me aparece error de compilación y me señala en Format

Como lo puedo corregir

1 Respuesta

Respuesta
1

Revisa lo siguiente:

1. Tienes esta instrucción : ¿Option Explicit en alguna parte de tus macros? Si es así, puedes quitarla.

2. Entra al menú de VBA, en Herramientas, Referencias y si te aparece alguna con la palabra "Falta", desmarca la casilla:

3. Cambia la palabra Now por Time

4. ¿En qué versión de excel estás?

Hola Dante, Gracias

Les quite Los Option Explicit que tenia y coloque Time, guarde y salí, al volver a entrar me dice "Error en cargar biblioteca DLL"

Tengo la versión 2007, y las referencias que me indicas no las veo

Gracias

Ya encontré las Referencias pero no tengo ninguna FALTA

Aquí esta la FALTA

Pero no me deja destildarla :(

¿Tienes password en las macros?

No

¿En las macro estás ocupando alguna instrucción para Word?

Al inicio de tu formulario tienes esto:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000 'variable para ocultar el botón x

Todo empezó porque pusiste el código para minimizar y maximizar el formulario?

Busca en la red esa referencia que te FALTA

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Despues de desanclar un formulario Userform como hacer para ver excel de nuevo al cerrarlo?

Después de ulitizar "Application.Visible = False" para desanclar el Userform de la ventana excel como hago para cuando cierro el userform se abra excel de nuevo. Por cierto, ¿Hay alguna forma de minimizar el Userform cuando esta descanclado de excel?
1 respuesta

Iniciar maximizado Form

Nuevamente lo cito para una nueva consulta. Tengo la intencion de iniciar un form creado en excel, pero que almomento en que se abra este, apareca maximizado o se configure solo para que ocupe la totalida de la pantalla. Consultando en la web y...
1 respuesta

Minimizar userform de excel sin oprimir botón minimizar

Encontré el código para colocar los botones de minimizar a un user form de excel Pero la pregunta es si existe la forma de ejecutar el botón de minimizar al ejecutar otro botón Es decir q al llamar otro formulario el primero se minimize El código es...
1 respuesta

Ocultar userform macro excel

Si tengo un userform abierto, tiene la propiedad showmodal false, pero si clickeo fuera del userform como hago para que el se oculte, ¿Y lo que clicklie para a estar frente a la pantalla?...
1 respuesta

Activar botón minimizar y deshabilitar botón cerrar

Me colaboran por favor con un código o programación para ACTIVAR en mis UserForm el botón de MINIMIZAR y MAXIMIZAR... Y DESACTIVAR en botón de CERRAR... En mis UserForm solo me muestra el botón de cerrar pero no el de minimizar ni maximizar.
2 respuestas

Userform de excel en la barra de tareas de windows

Hace un momento hice esta pregunta mas no se si ya se publico es la primera vez que hago una pregunta en este foro disculpen mi ignorancia bueno es la siguiente tengo un userform con los botones de minimizar maximizar con el siguiente codigo que...
1 respuesta

Boton Minimizar y Maximizar

Voy a comenzar un proyecto nuevo en excel con VB pero en el formulario no me aparecen ni el boton maximizar ni minimizar alguien me podria ayudar.
1 respuesta

Botón Minimizar y Maximizar

Resulta que yo ando en las mismas de carolina pero cuando pego el código de las declaración que van antes de _initialize me error de compilación diciendo que los comentarios deben ir antes de end sub etc y me señala la primera linea de las declaraciones.
1 respuesta

Error: se requiere un objeto... En userform

Tengo este código en un userform : Private Sub UserForm_Initialize() Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long 'Obtenemos el "Handle" del Userform lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption) 'Obtenemos el estilo...
1 respuesta

Error 13 en tiempo de ejecución no coinciden los tipos excel

Tengo un UF que me saca un error que realmente no he podido descifrar. No me deja cargar la userform y cuando ejecuto el botón1 me genera un error al poner los datos en la base de datos . Código Ption Explicit Private Declare Function FindWindow Lib...
1 respuesta