Página 1 de 1
Fechar todas as planilhas abertas
Enviado: 10 Set 2020 às 07:49
por andriessen
Bom dia!
Tenho uma planilha que abre com login e senha.
Queria que ao iniciar esta planilha TODAS as demais abertas sejam fechadas.
Obs: Não vou ter o nome de todas pre definidas. Quero fechar tudo exceto a que estou abrindo .
Algum mestre ai para me ajudar?
Obrigado
Re: Fechar todas as planilhas abertas
Enviado: 10 Set 2020 às 09:47
por babdallas
Código: Selecionar todosPrivate Sub Workbook_Open()
Dim wbkPT As Workbook
Application.DisplayAlerts = False
For Each wbkPT In Application.Workbooks
'Se quiser que salve antres de fechar, altere a propriedade SaveChanghes para True
If wbkPT.Name <> ThisWorkbook.Name Then wbkPT.Close SaveChanges:=False
Next wbkPT
Application.DisplayAlerts = True
End Sub
Fechar todas as planilhas abertas
Enviado: 10 Set 2020 às 09:59
por andriessen
Obrigado, uma dúvida. Isto não vai fechar o meu Formulário de login também certo?
a planilha que estou abrindo vai continuar ativa ?
Re: Fechar todas as planilhas abertas
Enviado: 10 Set 2020 às 10:27
por babdallas
Se o formulário de login estiver na pasta de trabalho onde vai estar código, então ele não será fechado. Quando a pasta de trabalho que tiver este código for aberta, todas as outras pastas de trabalho (arquivos de Excel) serão fechadas, exceto a que você acabou de abrir.
Fechar todas as planilhas abertas
Enviado: 10 Set 2020 às 14:45
por andriessen
Valeu mesmo. Obrigado