Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz nach Query-Abfrage aktivieren

Blattschutz nach Query-Abfrage aktivieren
04.06.2003 09:11:35
Thomas
Hallo und guten morgen zusammen,
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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Blattschutz nach Query-Abfrage aktivieren
05.06.2003 15:56:42
Mike E.

Hallo Thomas,

ich habe zwar keine Ahnung, ob das funktioniert, aber einen Versuch ist es wohl allemal wert:

schreibe noch der Zeile, in der das Updating geschieht:

Activesheet.Cells(1,1).Select

Meine Vermutung ist, dass die Zelle erst dann selektiert werden kann, wenn die Abfrage vollständig aktualisiert wurde. Ist die Zelle dann selektiert, dann kann m.E. auch ohne Probleme geschützt werden. sag mal, ob's geklappt hat.

Viele Grüße
Mike

Re: Blattschutz nach Query-Abfrage aktivieren
05.06.2003 19:00:47
Thomas

Hallo Mike!
Sorry, konnte mich leider erst heute melden, hoffe aber Du liest es trotzdem noch.
ich konnte das Problem bereits selbst lösen.
Ich musste die Abfrage anders formulieren.
zu ersetzende Zeile:
Selection.QueryTable.Refresh BackgroundQuery:=True
neue komplette Version:
Private Sub Workbook_Open()
ActiveSheet.Unprotect ("xxxx")
ActiveWorkbook.Unprotect ("xxxx")
For Each QueryTable In Worksheets(1).QueryTables
Query Table.Refresh
Next
ActiveSheet.Protect "xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoSelection
ActiveWorkbook.Protect "xxxx", Structure:=True, Windows:=True
End Sub
Es läuft perfekt.
Trotzdem danke für Deine Antwort.
Gruss Thomas



Anzeige
Re: Blattschutz nach Query-Abfrage aktivieren
05.06.2003 19:11:22
Mike E.

Hallo Thomas,

ja, das sieht doch prima aus...bevor die Schleife nicht durchlaufen wurde, kann auch nichts geschützt werden...

Vielle Grüße und vielleicht mal etwas Regen (puh...)
Mike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige