Notifications
Clear all

VB. Preciso muito de ajuda

2 Posts
2 Usuários
0 Reactions
926 Visualizações
(@adriano-nogueira)
Posts: 19
Eminent Member
Topic starter
 

Preciso saber como desabilitaras declas Delete e Backspace dentro de uma planilha.
Ja cansei de apanhar, e resolvi apelar para os amigos

 
Postado : 05/06/2012 6:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Amigo, é simples
se quer que a toda a pasta de trabalho fique com esses bloqueio de opção de apagar coloque esse codigo dentro da pasta de trabalho

Private Sub Workbook_Open()
Application.OnKey "{DELETE}", ""
Application.OnKey "{BS}", ""
End Sub

mais se quer apenas bloquear alguma "Plan" da pasta de trabalho coloque o codigo abaixo dentro da plan que deseja bloquear.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{DELETE}", ""
Application.OnKey "{BS}", ""
End Sub

segue um anexo para exemplo.

espero ter ajudado. abç

 
Postado : 10/06/2012 7:29 am