Creación de un formulario de usuario en Microsoft Excel 2003 agrega automáticamente el usuario de la barra de título Formulario azul en la parte superior de la ventana del formulario . Puede personalizar el aspecto de su formulario de usuario de Excel mediante la eliminación de la barra de título de la ventana del formulario . Para eliminar el " formulario de usuario " barra de título , utilice el Editor de Microsoft Visual Basic para cambiar el código del módulo de formulario de usuario. Instrucciones
1

lanzamiento Microsoft Excel 2003 . Pulse las teclas de " F11 ", "Alt " y del teclado del ordenador a la vez para iniciar la aplicación Editor de Visual Basic de Microsoft Excel en el interior .

2 Haga clic en " Insertar" en el menú principal de navegación . Seleccione " formulario de usuario " en el menú desplegable.

3 Haga doble clic en la ventana " UserForm1 " para abrir la ventana de código . Resalte y elimine cualquier código en la ventana
4

Pega el siguiente código en la ventana : .

Option Explicit Private Sub

UserForm_Initialize ()
< p> RemoveCaption Call ( Me) End Sub

5

Haga clic en " Insertar" en el menú principal de navegación . . Seleccione " Módulo " en el menú desplegable
6

Pega el siguiente código en la ventana del módulo: Option Explicit

Private Declare Function FindWindow Lib " ; User32 " _Alias ​​" FindWindowA " ( lpClassName _ByVal As String , _ByVal lpWindowName As String ) As Long

Private Declare Function Lib GetWindowLong " User32 " _Alias ​​" GetWindowLongA " ( _ByVal hwnd As Long , nIndex _ByVal Como Long) As Long

Private función declare SetWindowLong Lib " User32 " _Alias ​​" SetWindowLongA " ( ByVal hwnd As Long , _ByVal nIndex As Long , dwNewLong _ByVal As Long ) As Long

Declarar privado Función DrawMenuBar Lib " User32 " ( _ByVal hwnd As Long ) As Long

Sub RemoveCaption ( objForm As Object )

lStyle As LongDim hMenu Como LongDim mhWndForm As Long

Si Val ( Application.Version ) < 9 ThenmhWndForm = FindWindow ( " ThunderXFrame " , objForm.Caption ) ' XL97ElsemhWndForm = FindWindow ( " ThunderDFrame " , objForm.Caption ) ' XL2000 + End IflStyle = GetWindowLong ( mhWndForm , -16 ) lStyle = lStyle y No y HC00000SetWindowLong mhWndForm , -16 , lStyleDrawMenuBar mhWndForm

End Sub

Sub ShowForm ()

UserForm1.Show False

End Sub
7

clic en el botón " x " en la esquina superior derecha de la ventana del Editor de Visual Basic para cerrar la aplicación y todas las ventanas . Usted no tiene que guardar el contenido de los buzones de código .
8

Haga clic en " Herramientas" en el menú principal. Seleccione " Macro ", seguido de " Macros ". Seleccione " ShowForm . " Haga clic en el botón "Ejecutar " . El formulario de usuario de Excel ahora muestra sin la barra de título.