Neste novo tópico estamos disponibilizando mais uma super dica de EXCEL / VBA, mais um exemplo prático de como bloquear os seus documentos de Excel através desta maravilhosa linguagem que é o VBA.
Em Estapasta_de_trabalho insira o seguinte código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
proibirtec
End Sub
Private Sub Workbook_Open()
Senha = "123"
If Application.inputbox("digite sua senha") = Senha Then
permitirtec
Else
proibirtec
End If
End Sub
Feito isso, crie um módulo e adicione o seguinte código:
Function mensagem()
MsgBox "Teclas bloqueadas.", vbOKOnly + vbExclamation, "Falta Permissão"
Application.EnableCancelKey = xlDisabled
End Function
Sub proibirtec()
Application.OnKey "^{BREAK}", "mensagem"
Application.OnKey "^o", "mensagem"
Application.OnKey "^a", "mensagem"
Application.OnKey "^c", "mensagem"
Application.OnKey "^v", "mensagem"
Application.OnKey "^x", "mensagem"
Application.OnKey "^r", "mensagem"
Application.OnKey "^y", "mensagem"
Application.OnKey "^k", "mensagem"
Application.OnKey "^1", "mensagem"
Application.OnKey "{F1}", "mensagem"
Application.OnKey "{F7}", "mensagem"
Application.OnKey "^{F1}", "mensagem"
Application.OnKey "{F11}", "mensagem"
Application.OnKey "%{F11}", "mensagem"
Application.OnKey "%{F8}", "mensagem"
Application.OnKey "%l", "mensagem"
Application.OnKey "%u", "mensagem"
End Sub
Sub permitirtec()
Application.OnKey "^{BREAK}"
Application.OnKey "^o"
Application.OnKey "^a"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "^x"
Application.OnKey "^r"
Application.OnKey "^y"
Application.OnKey "^k"
Application.OnKey "^1"
Application.OnKey "{F1}"
Application.OnKey "{F7}"
Application.OnKey "^{F1}"
Application.OnKey "{F11}"
Application.OnKey "%{F11}"
Application.OnKey "%{F8}"
Application.OnKey "%l"
Application.OnKey "%u"
End Sub
8 comentários:
E como eu cancelo o botão direito do mouse?
E como eu faço pra bloquear o botão direito do mouse?
Amigos adorei esta macro. funciona perfeito . Teria como fazer bloquear somente a Plan3??. Exemplo: Na Plan1 eu consiga digitar e na Plan3 nao
Fico no Aquardo Muito obrigado
nÃO FUNCIONOU NO EXCEL 2007. ! PODE ME AJUDAR.?
Pode me ajudar.! Pois a macro de bloquear todas as teclas não funcionou.? Excel 2007. Urgente.!!
Pode me ajudar.! Pois a macro de bloquear todas as teclas não funcionou.? Excel 2007. Urgente.!!
Pode me ajudar.! Pois a macro de bloquear todas as teclas não funcionou.? Excel 2007. Urgente.!!
Pode me ajudar.! Pois a macro de bloquear todas as teclas não funcionou.? Excel 2007. Urgente.!!
Pode me ajudar.! Pois a macro de bloquear todas as teclas não funcionou.? Excel 2007. Urgente.!!
Postar um comentário