Este fórum está sendo desativado

[alefego]

Olá, pessoal,

todo mundo usa o Application.Visible=False para abrir apenas o userform, porém isso causa um problema: se há outra planilha aberta, esta fica invisível também.

Alguém tem outra sugestão de código?

Obrigado!

[Kledison]

Olá Alefego,

verifique no exemplo se é o que você pretende.

[alefego]

Obrigado pelo retorno! Me ensinou uma propriedade que eu não conhecida (nomodal).

Mas não seria bem isso. Queria abrir apenas o formulário, deixando o documento inteiro invisível. O objetivo é que o usuário apenas preencha o formulário sem ver nada, e o arquivo se salve a feche (essa parte eu sei fazer, a de abrir o userform sozinho que não).

[Kledison]

Boa noite,

nesse caso verifique o modelo abaixo, achei na net.

[FelipeGualberto]

Código: Selecionar todos

Option Explicit

Sub Main()
    Dim frm As UserForm1
    
    ThisWorkbook.IsAddin = True
    On Error GoTo ErrorHandler
    Set frm = New UserForm1
    frm.Show
    On Error GoTo 0
    ThisWorkbook.IsAddin = False
Quit:
    On Error Resume Next
    Unload frm
    Set frm = Nothing
    Exit Sub
ErrorHandler:
    MsgBox "O erro de execução número " & Err.Number & " ocorreu." & vbNewLine & _
           "Descrição do erro: " & Err.Description, vbCritical
    Resume Quit
End Sub