Excel - Bloquear eliminar filas y columnas

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