Nwlapcug.com


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

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.