Cómo quitar la barra de título azul de formulario de usuario en Excel 2003

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.