Office: Blattschutz aufheben/setzen

Moin Zusammen,
ich hab folgendes Problem. Ich möchte Bei Öffnen der Arbeitsmappe den Blattschutz aufheben, das Makro ausführen und das Blatt wieder schützen. Das eigentliche Makro, ist vielleicht nicht perfekt geschrieben, aber es funktioniert eigentlich. Die Zelle M8 muss quasi aktualisiert werden, das ist alles. Alles funktioniert bestens bis die die Zeile "Protect" dazu kommt. Er sperrt das Blatt zwar wieder, aber der Code läuft nicht mehr. Hat jemand ne Ahnung woran es liegt ? Dankeschön *wink.gif*

Private Sub Workbook_Open()
Worksheets("Daten").Unprotect "250585"
Dim C As Object
Sheets(1).Range("M8").Select
For Each C In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next C
Worksheets("Daten").Protect "250585"
End Sub

:)

 

--gelöscht--
war der falsche Ansatz.

 

?? wie meinst du das ?

 

ich hätte auch
Worksheets(1).Unprotect "250585"
geschrieben.
warum Schleife über eine Zelle?
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de

 

\@thenotoriousend:
Zunächst hatte ich eine Antwort gepostet nach dem Motto:
"Wenn du eine Antwort hast, die nicht zum Problem passt, dann ändere das Problem."
Nachdem ich es gemerkt hatte habe ich die Antwort auf diese Weise gelöscht. Leider kann ich den Post nicht komplett entfernen...

 

Moin,

bei Sendkeys kannst du halt nie sichersein, dass der Tastaturbefehl da ankommt, wo er hin soll. Was steht denn in der Zelle, was über F2 aktualisiert werden muss, statt über das Aktualisieren von Verbindungen?

Viele Grüße
derHöpp