Fechando outros arquivos de Excel

Existem planilhas pesadas que sobrecarregam nossas máquinas e deixam nosso ambiente de trabalho lento. Para que isso não ocorra com o Excel aí vai uma super dica: quando abrirmos uma nova planilha o Excel fecha e salva o arquivo anterior, não permitindo que o sistema fique sobrecarregado.

Em EstaPasta_de_Trabalho insira o código abaixo.

Private Sub Workbook_Open()

outrasjanelas

End Sub

Simples não? Mas para que nosso código funcione, insira um módulo e copie o seguinte código:

Sub outrasjanelas()

Application.EnableCancelKey = xlDisabled

On Error Resume Next

n = Application.Windows.Count

If (n > 1) Then

resp = MsgBox("É preciso fechar os outros arquivos de Excel para abrir este." & Chr(13) & "Deseja fechar os outros arquivos agora ?", vbYesNo + vbExclamation, "Fechar arquivos")

If (resp = vbYes) Then

For i = 1 To n

If (Application.Windows(i).Caption <> ThisWorkbook.Name) Then

Application.Windows(i).Close SaveChanges:=True

End If

Next i

For i = 1 To n

If (Application.Windows(i).Caption <> ThisWorkbook.Name) Then

Application.Windows(i).Close SaveChanges = True

End If

Next i

Else

MsgBox "Esta tabela será fechada." & Chr(13) & "Feche os outros arquivos e abra a tabela novamente.", vbOKOnly + vbExclamation, "Fechando tabela"

ThisWorkbook.Close

End If

End If

End Sub