ich brauche da mal einen Vorschlag.
Ich habe eine Arbeitsmappe, die mit einem Blattschutz und einem Arbeitsmappenschutz versehen ist.
Die Daten in der Arbeitsmappe werden mit Query aus einer anderen Mappe übertragen und aktualisiert.
Beim öffnen der Arbeitsmappe soll Exel den Blatt-,und Dokumentenschutz aufheben, die Abfrage aktualisieren und den Schutz wieder aktivieren.
Bei meinem Code wird der Schutz auch aufgehoben, wenn aber die Abfrage aktualisiert wird, kommt folgende Meldung.
("Die Zelle die Sie versuchen zu ändern, ist geschützt und somit schreibgeschützt.Daten können nicht aktualisiert werden.")
Lasse ich nach der Datenaktualisierung den Schutz weg, klappt es, habe das Blatt aber nich geschützt.
Wie kann ich es eingeben das erst nach Abschluß der Datenabfrage der Blatt-, und Arbeitsmappenschutz wieder gesetzt wird.
Hier mein Entwurf:
Private Sub Workbook_Open()
ActiveSheet.Unprotect ("xxxx")
ActiveWorkbook.Unprotect ("xxxx")
Selection.QueryTable.Refresh BackgroundQuery:=True
ActiveSheet.Protect "xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoSelection
ActiveWorkbook.Protect "xxxx", Structure:=True, Windows:=True
End Sub
schon mal Danke im voraus
und schöne Grüsse
Thomas