Opgelost Melding bij verwijderen kolommen/rijen die gegevens bevatten

[E v R]

Je hoeft niet cel voor cel te checken, dit kan in 1 keer per bereik

 

[snb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.EnableEvents = False
   
   Select Case Target.Address
   Case Target.EntireColumn.Address, Target.EntireRow.Address
      On Error Resume next
      n=Target.dependents.count
      If Not Intersect(Cells.SpecialCells(2), Target) Is Nothing Or Not Intersect(Cells.SpecialCells(-4123), Target) Is Nothing or n>0 Then MsgBox "niet leeg"
   End Select

  Application.EnableEvents = True
End Sub

 

[E v R]

Netjes snb,
Ik had die specialcells links laten liggen vanwege die grens
Maar ook hier moet je zelf de hele rij of kolom selecteren.
Een rij of kolom verwijderen wanneer er een cel of meerdere bereiken zijn geselecteerd, geeft geen melding.
Meest ideale zou zijn om de optie om rijen/kolommen te verwijderen (rechtermuis, lint, short cut) te 'disablen' wanneer dit niet zou mogen.

 

[snb]

Bijv.

Sub M_snb()
   application.commandbars("cell").controls(7).enabled=False
End Sub

De sneltoets ctrl-spatie aktiveert de 'selection_change'-macro, dus uitschakelen is overbodig.

 

[E v R]

De sneltoets ctrl-spatie aktiveert de 'selection_change'-macro, dus uitschakelen is overbodig.

Maar bij ctrl min-teken niet (en dan kun je dus kiezen voor rij/kolom waarbij de ene wel verwijderd zou kunnen worden en de ander niet)

 

[snb]

In dat geval:

Sub M_snb()
  Application.onkey "^-",""
End Sub