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ç
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/06/2012 7:29 am