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

January 15

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

istruzione

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

2 Fai 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 qualsiasi codice nella finestra.

4 Incollare il seguente codice nella finestra:

Option Explicit

Private Sub UserForm_Initialize ()

Call RemoveCaption(Me)

End Sub

5 Fai clic su "Inserisci" nel menu di navigazione principale. Selezionare "Modulo" dal menu a discesa.

6 Incollare il seguente codice 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 come lungamente, _
ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "User32" (_
ByVal hwnd As Long) As Long

RemoveCaption secondaria (objForm As Object)

Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long

Se Val (Application.Version) & lt; 9 Poi
mhWndForm = FindWindow (& quot; & quot ;, ThunderXFrame objForm.Caption) 'XL97
Altro
mhWndForm = FindWindow (& quot; & quot ;, ThunderDFrame objForm.Caption) 'XL2000 +
Finisci se
lStyle = GetWindowLong (mhWndForm, -16)
lStyle = lStyle E non & amp; HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm

End Sub

ShowForm Sub ()

UserForm1.Show False

End Sub

7 Fare clic sul pulsante "X" in alto a destra della finestra di Visual Basic per chiudere l'applicazione e tutte le finestre. Non è necessario salvare il contenuto delle scatole di codice.

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