COMANDO DE APLICACAO

'ATUALIZACAO DE TELA

Application.ScreenUpdating = True

'ABILITA EVENTOS

Application.EnableEvents = True

'COPIAR

Selection.Copy

'RECORTAR

Selection.Cut

'DESPROTEGER

ActiveSheet.Unprotect

'COLAR

ActiveSheet.Paste

'MANTER FORMATACAO ORIGINAL (M)

Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'TRANSPOR (T)

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= False, Transpose:=True

'VALOES E FORMATACAO ORIGINAL (E)

Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'COLAR FORMULAS (F)

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'SEM BORDAS (B)

Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'VALORES (V)

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'FORMATACAO (F)

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'FORMULAS E FORMATACAO DE NUMEROS (O)

Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'MANTER LARGURA DA COLUNA ORIGINAL (L)

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ActiveSheet.Paste

'VALORES E FORMATAÇÃO DE NUMEROS (A)

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone , SkipBlanks:=False, Transpose:=False

'COLAR VINCULO (C)

ActiveSheet.Paste Link:=True

'SELECIONAR CELULAS DESBLOQUEADAS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

'FORMATAR COLUNAS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True

'INSERIR LINHAS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True

'EXCLUIR LINHAS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowDeletingRows:=True

'USAR TABELA DINAMICA & GRAFICO DINAMICO

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True

'FORMATAR CELULAS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

ActiveSheet.EnableSelection = xlNoSelection

'FORMATAR LINHAS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

'INSERIR HIPERLINKS

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingHyperlinks:=True

'CLASSIFICAR

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True

'EDITAR OBJETOS

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True