blanco regels niet verwijderen!

[DZP]

Sub RegelBeperking()
'
' RegelBeperking Macro
' De macro is afkomstig van Wigi.
'
ActiveSheet.unprotect Password:="schrijf_maar_wat"
    With Selection
        If Not Intersect(.Cells, Rows("1")) Is Nothing Then
            MsgBox "In het gele vlak kun je niets verwijderen!!", vbOKOnly, "Kleine les"
            Exit Sub
        Else
        If .Cells.Count > 1 Then
            MsgBox "Niet meer dan 1 cel op 1 regel selecteren!!", vbOKOnly, "Kleine les"
            Exit Sub
        Else
            .EntireRow.Delete
            End If
        End If
    End With
    ActiveSheet.Protect Password:="schrijf_maar_wat"
    End Sub

Nu is mijn volgende vraag:
Als een lege cel wordt geselecteerd wil ik ook een MsgBox krijgen en natuurlijk mag het verwijderen van die regel niet plaats vinden.

 

[Wigi]

Zo?

Sub RegelBeperking()
'
' RegelBeperking Macro
' De macro is afkomstig van Wigi.
'
    ActiveSheet.Unprotect Password:="schrijf_maar_wat"
    With Selection
        If Not Intersect(.Cells, Rows("1")) Is Nothing Or WorksheetFunction.CountBlank(.Cells) > 0 Then
            MsgBox "In het gele vlak kun je niets verwijderen!!", vbOKOnly, "Kleine les"
            Exit Sub
        ElseIf .Cells.Count > 1 Then
            MsgBox "Niet meer dan 1 cel op 1 regel selecteren!!", vbOKOnly, "Kleine les"
            Exit Sub
        Else
            .EntireRow.Delete
        End If
    End With
    ActiveSheet.Protect Password:="schrijf_maar_wat"
End Sub

Wigi

 

[CorVerm]

Wigi,
Er staat 1x End If teveel in de code.:thumb:

 

[Wigi]

Wigi,
Er staat 1x End If teveel in de code.:thumb:

Klopt, ik verbeter het. Merci.

 

[DZP]

Code aangepast en hij werkt zoals gewoonlijk perfect.
Wigi wederom bedankt.:thumb: