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 < p > 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 .