Utilidades VBA

'
' COMANDOS IMPORTANTES
'
' --------------------------------------------------------------------------------
' Executa macro ao abrir a planilha - Deve ser colocado na pasta_de_trabalho
Private Sub Workbook_Open()
End Sub
' --------------------------------------------------------------------------------
' Armazena nome do usuário logado no sistema - Adicionar na pasta_de_trabalho
Dim wshNetwork As Object
Dim LogonName As Variant
Set wshNetwork = CreateObject("WScript.Network")
LogonName = wshNetwork.UserName
' --------------------------------------------------------------------------------
' Oculta apenas a workbook que foi aberta
ThisWorkbook.Windows(1).Visible = False
' --------------------------------------------------------------------------------
' Oculta barra de linha e coluna
ActiveWindow.DisplayHeadings = False
' --------------------------------------------------------------------------------
' Protege a planilha, deixando-a apenas leitura
ThisWorkbook.Protect Password:="Senha", structure:=True
ThisWorkbook.Sheets(1).Protect Password:="Senha", UserInterFaceOnly:=True
' --------------------------------------------------------------------------------
' Desprotege a planilha
ThisWorkbook.Unprotect Password:="Senha"
' --------------------------------------------------------------------------------
' Trabalhar com planilha externa
Dim ewb As Excel.Workbook
Set ewb = GetObject("Caminho da plan")
ewb.Close
' --------------------------------------------------------------------------------
' Última linha preenchida da Coluna A(1)
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
' Última coluna preenchida da linha 2
ThisWorkbook.Sheets(1).Cells(2, Columns.Count).End(xlToLeft).Column
' --------------------------------------------------------------------------------
' Ocultar linha
ThisWorkbook.Sheets(1).Rows(1).EntireRow.Hidden = True
' Mostrar todas as linhas da plan
ThisWorkbook.Sheets(1).Cells.EntireRow.Hidden = False
' --------------------------------------------------------------------------------
' Filtrar conteudo
With Sheets(1)
    .AutoFilterMode = False
    .Range("A1:B20").AutoFilter
    .Range("A1:B20").AutoFilter Field:=1, Criteria1:="Criterio"
End With
' --------------------------------------------------------------------------------