Este fórum está sendo desativado

[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

[babdallas]

Código: Selecionar todos

Private 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

[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 ?

[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.

[andriessen]

Valeu mesmo. Obrigado