Bom dia!!

Tente

Private Sub UserForm_Initialize()
    ActiveWindow.Visible = False
End Sub

Quando fechar o Userfo, mostrar o arquivo.

Private Sub UserForm_Terminate()
    ThisWorkbook.Windows(ThisWorkbook.Name).Visible = True
End Sub

Att

jrodrig7,

Bom dia!

Segue um exemplo de como fazer isso.

Wagner, não consigo abrir arquivos zipados aqui no trabalho, mas verei assim que chegar em casa. Muito obrigado!

Alexandre, funcionou em partes.
Essa userform guia para outras userforms, então terei que colocar esse código em todas, provavelmente.
Há alguma maneira de a Userform não bloquear a navegação em outras planilhas? Porque o que acontece é que quando estou com ela aberta para alimentação, não consigo nem maximizar as planilhas abertas para poder consultar dados...

Aliás, nem abrir outros arquivos do Excel eu consigo quando a Userform está aberta (o que pela intenção com a qual foi criada deve acontecer o tempo todo. A ideia é que toda a operação seja feita na userform, nada no arquivo).

Wagner Morel, mais uma vez muito obrigado por ter me ajudado.

Abri o seu arquivo e é exatamente o que eu queria, mas tive um problema na transição de uma Userform para outra. A minha primeira userform é a Userform3, que pode ser direcionada para a 1 com um botão. Quando tento mudar para a 1, aparece "Run-time error 9 - Subscript out of range". O comando do botão é simples:

Private Sub CommandButton2_Click()
Me.Hide
UserForm1.Show
End Sub

O erro aparece no UserForm1.Show.

Como eu resolvo essa transição? Até porque eu tenho 07 userforms nesse arquivo, vou ter que arrumar todas elas.

Penso que é so alterar o nome userform1 para userform3

MPrudencio,

O código funcionou na 3, o problema é que há um botão da Userform3 que direciona para a Userform1, aí que o problema é apontado.

Olha não sei se vai resolver mas para fechar seu Userform tente trocar Me.Hide por Unload Me

Visite meu blog: programacaopassoapasso.com