Bloqueando teclas no Excel

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