Option Explicit
Sub Aufheben()
ActiveSheet.Unprotect Password:="sokrates"
Application.OnTime Now + TimeValue("00:00:30"), "Setzen"
End Sub
Sub setzen()
ActiveSheet.Protect Password:="sokrates"
End Sub
AW: Blattschutz für bestimmt Zeit aufheben
15.05.2014 07:59:56
Thomas
herzlichen Dank!
OnTime-Methode
15.05.2014 07:51:17
Matthias
Hallo
Application.OnTime-Methode
Bewirkt, dass eine Prozedur zu einem bestimmten Zeitpunkt in der Zukunft (entweder zu einer bestimmten Zeit oder nachdem eine bestimmte Zeitspanne vergangen ist) ausgeführt wird.
Schau in die Hilfe
Gruß Matthias