Dokumentenschutz über VBA
03.06.2003 23:09:14
Thomas W.
ich brauche mal Eure Hilfe.
Ich habe eine Arbeitsmappe, die mit einem Dokumentenschutz 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 Schutz aufheben, die Abfrage aktualisieren und den Schutz wieder aktivieren.
Bei meinem Makro hebt er den Schutz auch auf, 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.
Vielleicht könnt Ihr mir ja sagen was ich vergessen habe oder falsch gemacht habe.
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