Come rimuovere la barra del titolo blu da form in Excel 2003

Creazione di un modulo utente in Microsoft Excel 2003 aggiunge automaticamente l' utente barra del titolo Modulo blu nella parte superiore della finestra del modulo . È possibile personalizzare l'aspetto del modulo utente di Excel , eliminando la barra del titolo della finestra del modulo . Per eliminare il "Modulo Utente" barra del titolo , utilizzare il Microsoft Visual Basic Editor per modificare il codice del modulo del modulo utente . Istruzioni
1

lancio di Microsoft Excel 2003. Premere i tasti " F11 ", "Alt" e sulla tastiera del computer , allo stesso tempo per lanciare l'applicazione Editor di Microsoft Visual Basic all'interno di Excel .
2

Fare clic su " Inserisci" nel menu di navigazione principale . Selezionare " form " dal menu a discesa.

3 Fare doppio clic sulla finestra " UserForm1 " per aprire la finestra del codice . Evidenziare ed eliminare tutto il codice nella finestra
4

Incollare il codice seguente nella finestra : .

Option Explicit

Private Sub UserForm_Initialize ( ) per

Chiama RemoveCaption ( Me ) per

End Sub
5

Fare clic su " Inserisci" nel menu di navigazione principale . . Selezionare "Modulo " dal menu a discesa
6

Incollare il codice seguente nella finestra del modulo :

Option Explicit

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

private Declare Function GetWindowLong Lib " User32 " _Alias " GetWindowLongA " ( _ByVal hwnd As Long , nIndex _ByVal Come Long) As Long

private Declare Function SetWindowLong Lib " User32 " _Alias " SetWindowLongA " ( ByVal hwnd As Long , _ByVal nIndex As Long , dwNewLong _ByVal As Long ) As Long

dichiarare privato funzione DrawMenuBar Lib " user32" ( _ByVal hwnd As Long ) As Long

Sub RemoveCaption ( objForm As Object ) per

Dim lStyle Come LongDim hMenu Come LongDim mhWndForm As Long

Se Val ( Application.Version ) <9 ThenmhWndForm = FindWindow ( " ThunderXFrame " , objForm.Caption ) ' XL97ElsemhWndForm = FindWindow ( " ThunderDFrame " , objForm.Caption ) ' XL2000 + Fine = IflStyle GetWindowLong ( mhWndForm , -16 ) lStyle = lStyle And Not & HC00000SetWindowLong mhWndForm , -16 , lStyleDrawMenuBar mhWndForm

End Sub Sub

ShowForm ( ) per

UserForm1.Show False

End sub
7

Fare clic sul pulsante " x " in alto a destra della finestra di Visual Basic Editor per chiudere l'applicazione e tutte le finestre . Non hai bisogno di salvare il contenuto delle caselle di codice .
8

Clicca su "Strumenti " nel menu principale. Selezionare " Macro " seguito da " Macro ". Selezionare " ShowForm . " Fare clic sul pulsante "Esegui " . Il modulo utente Excel visualizza ora senza la barra del titolo .