Creazione di un modulo utente in Microsoft Excel 2003 automaticamente aggiunge la barra del titolo Form utente blu nella parte superiore della finestra del modulo. È possibile personalizzare l'aspetto del modulo utente Excel rimuovendo la barra del titolo dalla finestra del modulo. Per eliminare la barra del titolo di "Modulo utente", è possibile utilizzare Microsoft Visual Basic Editor per modificare il codice del modulo utente.
Istruzioni
1
Avviare Microsoft Excel 2003. Premere i tasti "Alt" e "F11" sulla tastiera del computer allo stesso tempo per avviare l'applicazione di Microsoft Visual Basic Editor all'interno di Excel.
2
Fare clic su "Inserisci" nel menu di navigazione principale. Selezionare "UserForm" dal menu a discesa.
3
Fare doppio clic la finestra "UserForm1" per aprire la finestra di codice. Evidenziare ed eliminare qualsiasi codice nella finestra.
4
Incollare il codice seguente nella finestra:
Option Explicit
Private Sub Userform_initialize
Call RemoveCaption(Me)
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" (
ByVal lpClassName As String _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "User32"
Alias "GetWindowLongA" (
ByVal hwnd As Long _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32"
Alias "SetWindowLongA" (ByVal hwnd As Long,
ByVal nIndex As Long _
ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (_
ByVal hwnd As Long) As Long
Sub RemoveCaption (objForm As Object)
Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long
If Val(Application.Version) < 9 Then
mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97
Else
mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+
End If
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
End Sub
Sub ShowForm()
UserForm1.Show False
End Sub
7
Fare clic sul pulsante "x" nell'angolo superiore destro della finestra dell'Editor di Visual Basic per chiudere l'applicazione e tutte le finestre. Non è necessario salvare il contenuto delle caselle di codice.
8
Fare clic su "Strumenti" nel menu principale. Selezionare "Macro" seguita da "Macro". Selezionare "ShowForm." Fare clic sul pulsante "Esegui". Il modulo utente di Excel visualizza ora senza barra del titolo.