Daten in geschützter Arbeitsmappe aktualisieren
09.04.2018 11:10:05
Sebastian
ich würde gerne in einer geschützten Arbeitsmappe die Datenquelle aktualisieren. Dazu habe ich mir gedacht, dass ich im Makro einfach den Schutz einmal kurz aufheben lassen, das dann ausführe und dann zeitverzögert (bis die Daten geladen sind) wieder sperre.
Aber egal, was ich einstelle, es kommt trotzdem immer die Meldung "Arbeitsmappe gesperrt. Kann nicht aktualisiert werden. Sobald ich jedoch die Sperren Funktion raus lasse, dann geht's. Weiß einer eine Lösung?
Sub Refresh()
ActiveWorkbook.Unprotect ("Day!18")
ActiveWorkbook.RefreshAll
Worksheets("Parameter").Range("B5") = Now
MsgBox "Daten aktualisiert", vbOKOnly, "BMD Daten"
Application.Wait Now + TimeSerial(0, 0, 15) '3 sekunden Pause
ActiveWorkbook.Protect ("Day!18")
End Sub
Anzeige