Bloquear eliminar filas y columnas
Publicado por Chris (1 intervención) el 29/10/2007 14:07:20
Alquien sabe como bloquear que se eliminen filas o columnas pero que se permita modificar el texto sin proteger la hoja.
Valora esta pregunta


0
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Dim bFlg As Boolean
bFlg = False '//True
With Application.CommandBars
.FindControl(ID:=292).Enabled = bFlg
.FindControl(ID:=293).Enabled = bFlg
.FindControl(ID:=294).Enabled = bFlg
.FindControl(ID:=478).Enabled = bFlg
End With