Zelle nach x Sekunden entsperren

[DK84]

Guten Tag, 
ist es überhaupt möglich, wenn in Zelle etwas eingetragen wird diese für 60 Sekunden zu sperren und nach Zeitablauf zu entsperren?

[Klaus-Dieter]

Hallo,

wozu soll das gut sein?

[DK84]

Hallo, 
in der Zelle C1 wird ein Suchbegriff eingetragen und die Datei wird von mehreren Personen per ONDRIVE benutzt. 
Wenn ich mein Suchbegriff in C1 eintrage um nach werten zu suchen, darf die Zelle C1 erst nach 60 Sekunden wieder verändert werden.
Somit verhindere ich, das ein Benutzer mein Suchbegriff, innerhalb der 60 Sekunden verändern kann.

[shift-del]

Moin

Könnte man so machen oder man macht es so:
https://support.microsoft.com/de-de/offi...BAEAAA=Web

[DK84]

Hallo, die neue Funktion kenne ich und das ist halt nicht das selbe. 
Was ich brauche ist 

If Target.Range ("C1").Value = "" Then Exit Sub
Application.OnTime Now + TimeValue("00:00:60"), Target.Locked = True
End If

Irgend wie so????

[shift-del]

Richtig, es ist nicht das selbe.
Abes es läuft auf das selbe Ergebnis hinaus: einen Filter benutzen ohne andere damit zu stören.

[DK84]

OK, dann stelle ich die Frage erneut. 
Kann man eine Zelle oder Zellenbereich, für eine bestimmte Zeit sperren wenn der Bereich >0 ist?

[schauan]

Hallöchen,

Application.OnTime ist dazu da, ein Makro aufzurufen.

Also nicht
If Target.Range ("C1").Value = "" Then Exit Sub
Application.OnTime Now + TimeValue("00:00:60"), Target.Locked = True

sondern

Code:

Public strTarget as String

Private Sub WorkSheet...(...)
If Target.Range ("C1").Value = "" Then Exit Sub
If Target.Range ("C1").Value >0 Then Target.Locked = True
StrTarget = Target.Address
Application.OnTime Now + TimeValue("00:00:60"), "Freigeben"
End Sub

Sub Freigeben()
Range(strTarget).Locked=false
End Sub

Beim setzen vom Blattschutz musst Du per Makro UserInterfaceOnly=True setzen. Ansonsten musst Du im Makro zum Ändern des "Gesperrt" - Zustandes den Blattschutz kurz aufheben

[Steffl]

Hallo André,

Target.Range("C1") ? Hast Du auch getestet?

[schauan]

Hallo Stefan,

danke für den Hinweis, ich bin nur auf OnTime eingegangen.

Auch die Sache mit dem Target muss in zwei teile gesplittet werden. Zum einen die Prüfung, ob der target C1 ist, zum anderen, was drin steht
z.B.
If Target.Address="$C$1" and Target.Value > 0 Then ...