ABRIR SALVAR E FECHAR

1. Abrir um arquivo, caso já esteja aberto, maximiza-lo.

Uma macro muito utilizada para acelerar processos é a de abrir arquivos,

porém por muitas vezes o arquivo já está aberto por alguma verificação

manual do usuário, esta macro faz uma verificação, caso o arquivo já esteja

aberto, ele é maximizado.

Obs: Substituir os valores de exemplo em negrito pelos valores desejados.

Sub AbrirMaximizar()

Dim Arquivo As String, Diretorio As String, Extensao As String

Diretorio = " C:\Users\usuarioteste\Documents "

Arquivo = " Planilha1 "

Extensao = " xlsx "

Dim wkb As Workbook

On Error Resume Next

Set wkb = application.Workbooks(Arquivo)

If Err <> 0 Then

Set wkb = application.Workbooks.Open(Diretorio + "\" + Arquivo + "." &

Extensao, UpdateLinks:=0)

End If

On Error GoTo 0

Workbooks(Arquivo).Activate

End Sub

2. Salvar automaticamente antes de fechar

Esta macro é extremamente simples, porém muito útil, com esta rotina o

Excel sempre salvará o arquivo quando for fechado, a rotina é útil para

agilizar o processo de salvar e também previne o fechamento acidental sem

salvar.

Obs: É necessário incluir a macro dentro do objeto WorkBook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)