Bloquear Código VBA

Para colocar acesso restrito em seu código vba é bem simples.

Acessar o editor de código, ir em Ferramentas e clicar em Propriedades de VBAProject conforme imagem abaixo:

 

Em seguida, na próxima janela que abrir clicar na guia Proteção, marcar Bloquear projeto para exibição e digitar uma senha

 

Pronto seu código já está com mais segurança.

Alterar / copiar células automaticamente

Um código muito interessante, usando ele não é necessário criar botões de macro para alterar o conteúdo automaticamente das células.

Você deve colocar o código conforme imagem abaixo, ou seja não em módulos e sim nos sheets (pastas)

______________________________________________________
Ao alterar as células da coluna A as células da coluna B serão alteradas também.

Sub Worksheet_Change(ByVal Target As Range)

‘Ao alterar o conteúdo da célula A1 a célula B1 será alterada
If Target.Address = “$A$1” Then
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value / 2
End If

‘Abaixo é usado um Case para verificar várias células da coluna A
Select Case Target.Address
Case Is <= “$A$2”
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value / 2
Case Is <= “$A$3”
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value / 2
Case Is <= “$A$4”
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value / 2

End Select

End Sub

Verifica Versão do Office

‘Existe algumas discrepâncias de código entre o excel 2003 e 2007
‘Para isso vale usar um artifício simples que verifica versão do office

Sub VerificaVersaoExcel ()

If Application.Version = “12.0” Then
MsgBox “A versão do Excel  é 2007.”
ElseIf Application.Version = “11.0” Then
MsgBox “A versão do Excel  é 2003.”
ElseIf Application.Version = “8.0” Then
MsgBox “A versão do Excel é 97.”
End If

End Sub

Retirar alertas do office

Ao adicionar a linha abaixo entre os seus códigos de vba, você irá perceber que não irá exibir mensagens de alerta: taxa de transferência, certeza  que deseja fechar o arquivo e  etc

Application.DisplayAlerts = False