Création d'un formulaire utilisateur dans Microsoft Excel 2003 ajoute automatiquement l' utilisateur barre de titre du formulaire bleu en haut de la fenêtre du formulaire . Vous pouvez personnaliser l'apparence de votre formulaire utilisateur Excel en enlevant la barre de titre de la fenêtre du formulaire . Pour supprimer le "Formulaire utilisateur" barre de titre , utilisez le Microsoft Visual Basic Editor pour modifier le code du module de formulaire utilisateur. Instructions
1

Lancez Microsoft Excel 2003. Appuyez sur la touche "Alt" et "F11" touches du clavier de votre ordinateur en même temps pour lancer l'application de l'éditeur Microsoft Visual Basic dans Excel .
2

Cliquez sur "Insérer" dans le menu principal de navigation . Sélectionnez « UserForm » dans le menu déroulant.
3

Double -cliquez sur la fenêtre " UserForm1 " pour ouvrir la fenêtre de code . Mettez en surbrillance et supprimer n'importe quel code dans la fenêtre
4

Collez le code suivant dans la fenêtre : .

Option Explicit

Private Sub UserForm_Initialize ()
< p > Appel RemoveCaption (Me)

End Sub
5

Cliquez sur "Insérer" dans le menu principal de navigation . . Sélectionnez " Module " dans le menu déroulant
6

Collez le code suivant dans la fenêtre du module:

Option Explicit

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

Private Declare Function Lib GetWindowLong " User32 " _Alias ​​" GetWindowLongA " ( _ByVal hwnd As Long , nIndex _ByVal Comme 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

déclarer privé fonction DrawMenuBar Lib " User32 " ( _ByVal hwnd As Long ) As Long

Sous RemoveCaption ( objForm As Object )

lStyle As LongDim hMenu Comme LongDim mhWndForm As Long

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

End Sub Sub

ShowForm ()

UserForm1.Show Faux

Fin sous
7

Cliquez sur le bouton «X» dans le coin supérieur droit de la fenêtre de l'éditeur de Visual Basic pour fermer l'application et toutes les fenêtres . Vous n'avez pas besoin de sauvegarder le contenu des boîtes de code.
8

Cliquez sur "Outils" dans le menu principal . Sélectionnez " Macro ", puis " Macros ". Sélectionnez " ShowForm . " Cliquez sur le bouton "Exécuter " . Le formulaire utilisateur Excel affiche désormais sans la barre de titre .