Boa noite!!

Veja
Fonte: http://www.vbaexpress.com/kb/getarticle.php?kb_id=292&PHPSESSID=358574829d8d3f3668469c2af59218da

Option Explicit 
 
Private Sub UserForm_Initialize() 
     
    Call RemoveCaption(Me) 
     
End Sub 
 
 Place this code In a Module  
 
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 

Rapido e indolor, hehehe

Obrigado Alexandre

Rapido e indolor, hehehe

Obrigado Alexandre

Nao tenho a opçao de RESOLVIDO. O que eu faço???

Fabio, a opção de Resolvido só aparece nos Foruns onde colocamos as nossas solicitações de ajuda, e você postou no forum BIBLIOTECA, destinado somente a anexar arquivos prontos ou dicas.

Estou movendo para o Forum correto, e se realmente já solucionou pode acionar a opção.

[]s

Obrigado Mauro, estava fazendo pesquisa no forum e nem percebi que estava ainda na biblioteca.

Bom dia a todos.

Apesar deste ser um tópico antigo, hoje fui beneficiado por ele.

Obrigado a todos.