Estranho vc não conseguir abrir o arquivo.
Em todo caso, segue o código. Vc deve colocá-lo, não em um módulo, mas diretamente no código da planilha;
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("S1001").Value2 = "X" Then Exit Sub
MsgBox "Não é permitido excluir linhas no intervalo A1:R1000"
Application.Undo
Application.ScreenUpdating = True
End Sub
Além disso, vc deve digitar X na célula S1001
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 27/01/2015 6:48 am