MsgBox Problem
14.06.2013 15:01:14
Heiko
ich hab da eine Problem und komm nicht drauf. Ich hab da ein Button wo die ausgewählte Zeile gelöscht wird. Das klappt auch alles super aber wenn ich jetzt auf nein klicke wird der Blattschutz nicht mehr gesetzt. Ich komm nicht dahinter. Bitte um Hilfe !!!
Sub Schaltfläche4_BeiKlick()
ActiveSheet.Unprotect ("")
Dim iClick As Integer
iClick = MsgBox(prompt:="Willst du die ausgewählte Zeile wirklich Löschen?", Buttons:= _
vbYesNo)
If iClick = vbYes Then
ActiveCell.EntireRow.Delete
If iClick = vbNo Then
ActiveSheet.Protect ("")
End If
End If
End Sub
mfg Heiko
Anzeige