Criação de um formulário de usuário no Microsoft Excel 2003 adiciona automaticamente o azul Usuário Formulário barra de título na parte superior da janela do formulário. Você pode personalizar a aparência do seu formulário de usuário do Excel através da remoção da barra de título da janela do formulário. Para eliminar a barra de título "Formulário de Usuário" , use o Editor do Microsoft Visual Basic para alterar o código do módulo de formulário do usuário . Instruções
1

Abra o Microsoft Excel 2003. Pressione as teclas " Alt" e " F11 " no teclado do computador ao mesmo tempo para iniciar o aplicativo Microsoft Visual Basic Editor dentro do Excel .
2

Clique em "Inserir " no menu de navegação principal. Selecione " UserForm " a partir do menu drop -down.
3

Clique duas vezes na janela " UserForm1 " para abrir a janela de código . . Destaque e apagar qualquer código na janela
4

Cole o seguinte código na janela :

Opção

explícita
Private Sub UserForm_Initialize ()

Chamada RemoveCaption (Me)

End Sub
5

Clique em "Inserir " no menu de navegação principal. Selecione "Module" no menu drop -down
6

Cole o seguinte código na janela do módulo: .

Option Explicit

Privada 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 nÍndice Como Long) As Long

Private Declare Function SetWindowLong Lib " User32 " _Alias ​​" SetWindowLongA " (ByVal hwnd As Long , _ByVal nÍndice As Long , _ByVal dwNewLong As Long ) As Long Private Declare

Função DrawMenuBar Lib " User32 " ( _ByVal hwnd As Long ) As Long

Sub RemoveCaption ( objForm As Object )

Dim lStyle Como LongDim hMenu Como LongDim mhWndForm As Long

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

End Sub

Sub ShowForm ()

UserForm1.Show Falso

Fim Sub
7

Clique no botão "x " no canto superior direito da janela do Visual Basic Editor para fechar o aplicativo e todas as janelas. Você não precisa salvar o conteúdo das caixas de código.
8

Clique em "Ferramentas " no menu principal. Selecione "Macro ", seguido de "Macros ". Selecione " ShowForm . " Clique no botão "Run" . O formulário de usuário do Excel exibe agora sem a barra de título.