Hallo,
kann mann den Befehl "Exit Sub" mit den Befehl "ActiveSheet.Protect Password:="?" kompinieren (in einer If-Then Abfrage), dh. wenn die Bedingung eintritt das Programm zu verlassen, dann soll es vorher noch geschützt werden.
Vielen Dank!
Gruß
Denise
Hallo Denise Klar geht das
einfach vor das Exit setzen If Bedingung = wahr Then MsgBox "OK" Else ActiveSheet.Protect Password:="?" Exit Sub End If 'hier hgehts normal weiter '