Planilha aberta via VBA

[FelipeSMorais]

Boa tarde pessoal, tentei achar uma dúvida parecida, mas não encontrei. Em um código no UserForm ele abre uma planilha para o usuário editar, porém essa planilha aberta não está com o botão "fechar" habilitado, não é possível fechar, dessa forma o usuário tem que minimizar, voltar para o UserForm e acionar o botão "Fechar" que eu coloquei no formulário. Existe alguma forma de habilitar isso?

'Duplo clique na Revisão
Private Sub Revisao_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ComboBoxListaProjetos.Text <> "" Then
        If rev = False Then
            Caminho = Caminho & "\" & SeparaNomes(Caminho) & " Desenvolvimento.xlsx"
            If lfVerificaArquivo(Caminho) = True Then
                Revisao.ForeColor = RGB(0, 255, 100)
                Workbooks.Open Filename:=Caminho
                Worksheets("Revisão Geométrica e Funcional").Activate
                rev = True
            Else
                MsgBox "Arquivo não encontrado"
                Exit Sub
            End If
        ElseIf rev = True Then
            Workbooks(SeparaCaminho(Caminho)).Close SaveChanges:=True
            rev = False
            Revisao.ForeColor = RGB(0, 0, 0)
        End If
    End If
End Sub

 

[Luana Bailon]

Boa tarde.
Acho que isso ocorre justamente por o UserForm estar aberto, fiz um teste aqui e realmente a planilha não fecha. O UserForm vem com uma propriedade como True por default, que é a ShowModal.Se estiver como True, não tem como clicar em células, e talvez no seu caso até fechar planilhas.

Tente isso :
Na propriedade ShowModal do UserForm, altere para False

Em casos extremos, outro jeito é fechar o userform 

Unload UserForm1

Editado Maio 17, 2021 por Luana Bailon