Descobri qual era o problema! Estava usando o nome do Formulario em vez de UserForm. Mas para sumir o botão X da janela ainda não consegui, estou usando Excel 2007 com Windows 7 64 bits.
Talvez o código abaixo só funcione para sistemas 32bits:

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub RemoverBotaoFechar(ByVal hwnd As Long)
Const SC_CLOSE = &HF060
Const MF_BYCOMMAND = 0
Dim hMenu As Long
' Menu handle
hMenu = GetSystemMenu(hwnd, 0)
' Remover Botão Fechar
RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND
End Sub

Bom dia, sagrado7.

Tenta utilizar assim:

Modulo

' ### INSERIR EM UM MODULO ### '
Private Declare PtrSafe Function FindWindow Lib "user32" _
                 Alias "FindWindowA" _
                       (ByVal lpClassName As String, _
                        ByVal lpWindowName As String) _
                        As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" _
                  Alias "GetWindowLongA" _
                        (ByVal hWnd As Long, _
                         ByVal nIndex As Long) _
                         As Long

Private Declare PtrSafe Function SetWindowLong Lib "user32" _
                  Alias "SetWindowLongA" _
                        (ByVal hWnd As Long, _
                         ByVal nIndex As Long, _
                         ByVal dwNewLong As Long) _
                         As Long
Const GWL_STYLE = (-16)
Const WS_SYSMENU = &H80000

Sub EscondeX(xForm)
    Dim hWnd As Long
    Dim GetStyle As Long
    Dim StApp As String
    Select Case Int(Val(Application.Version))
           Case 8
             'Formulario em MSExcel97
              StApp = "ThunderXFrame"
           Case Is > 8
             'Formulario em MSExcel200x
              StApp = "ThunderDFrame"
    End Select
    hWnd = FindWindow(StApp, xForm.Caption)
    GetStyle = GetWindowLong(hWnd, GWL_STYLE)
    'foi-se o X
    SetWindowLong hWnd, GWL_STYLE, GetStyle And Not WS_SYSMENU
End Sub

UserForm

' ### NO USERFORM FICA ASSIM ### '
Private Sub UserForm_Initialize()
    EscondeX Me
End Sub

Tenho um arquivo que utiliza esse código no Excel 64 bit testei tanto na versão 2010 e 2013 esta funcionando normal.

Bom dia!!

Esse assunto temos de sobra em nossa base de dados, lembre se de usar a pesquisa do fórum!!

Att

O problema não era falta de pesquisa, e sim erro de sintaxe. Agradeço pela ajuda.

sagrado

Se o tópico foi resolvido, clique no botão V ( após o botão editar e X) da resposta que te atendeu para dar o tópico como resolvido.

Clique na mãozinha que fica do lado da ferramenta Citar os colaboradores que te ajudaram.

[]s