form2

Hola, Erick !

... form ... no quiero que se vea el boton de cerrar ... como el form splash de VB 6
Ademas como hago para que no salga el mensaje de habilitar macros??

==> con respecto del mensaje de 'permitir' [o no] el uso de las macros, => es una opcion DE CADA USUARIO < [no tienes 'control' sobre ello] y es un 'mecanismo' de proteccion contra [posibles] 'macro-virus'
'tendrias que' comprar una firma 'certificada' -o- usar la utileria 'SelfCert' [e instalarla EN CADA PC] -o- [...]

==> para 'ocultar' el boton [X] de los formularios se requiere de 'llamadas' a las API's [p.e.]
en un modulo de codigo 'normal' ==Option Private Module
' Funciones 'auxiliares' -llamadas a las API's de Windows- _
para buscar, obtener y modificar el estilo de ventana del formulario '
Private Declare Function Buscar_Form Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Titulo As String) As Long
Private Declare Function Estilo_Actual Lib "User32" Alias "GetWindowLongA" ( _
ByVal Ventana As Long, ByVal Tipo As Long) As Long
Private Declare Function Nuevo_Estilo Lib "User32" Alias "SetWindowLongA" ( _
ByVal Ventana As Long, ByVal Tipo As Long, ByVal Nuevo_Tipo As Long) As Long
' Constantes para usar en las llamadas a las API's '
Const Boton_X = &H80000
Const General = (-16)
' Macro para ocultar el boton [X] de formularios '
Sub Ocultar_Boton_X(DelFormulario As Object)
Dim Ventana As Long, Estilo As Long
Select Case Int(Val(Application.Version))
Case 8: Ventana = Buscar_Form("ThunderXFrame", DelFormulario.Caption) ' UserForm en Excel 97 '
Case Is > 8: Ventana = Buscar_Form("ThunderDFrame", DelFormulario.Caption) ' UserForm en Excel 200x '
End Select
Estilo = Estilo_Actual(Ventana, General) ' Obtenemos el estilo actual '
Nuevo_Estilo Ventana, General, Estilo And Not Boton_X ' y le 'quitamos' el boton [X] '
End Sub

En el modulo de codigo del formulario ==Private Sub UserForm_Initialize()
Ocultar_Boton_X Me
End Sub
_______
Saludos,
Héctor.
MS-MVP