ich brauche mal wieder etwas Unterstützung. Ich habe eine Exceldatei, die ich eigentlich mit dem Blattschutz schützen möchte. Allerdings wird beim Öffnen der Datei automatisch die Verknüpfungen zu einer anderen Exceldatei aktualiesiert, die Daten danach sortiert, dann mit dem Autofilter auf Nichtleere gesetzt und danach alle Menüleisten ausgeblendet. Da ich diese Funktionen ausführe, kann ich den Blattschutz nicht verwenden, da sonst der Ablauf beendet wird. Meine Frage jetzt, ist es möglich in meinen bestehenden VBA-Befehl die Funktion am Anfang Blattschutz aufheben einzufügen, dann die oben beschriebenen Aktionen ausführen zu lassen und am Ende den Blattschutz mit einem Paßwort wieder zu aktivieren?
Ich hoffe, dass es so klappen könnte. Nur weiß ich jetzt nicht, wie ich das Paßwort, was nach dem Befehl ActiveSheet.Unprotect eingegeben werden muß eingefügt werden kann, damit diese Box nicht erscheint. Analog dazu beim Blatschutz erstellen durch den Befehl ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True.
Hier mal die Befehle ohne die Funktionen Blatt schützen und Blattschutz aufheben:
Private Sub Workbook_Activate()
If ActiveSheet.Name = "Stationsliste" Then
Application.AskToUpdateLinks = False
Call Daten_sortieren
Call Daten_filtern
End If
For Each bar In Application.CommandBars
bar.Enabled = False
Next
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub
Kann mir da vielleicht jemand hilfreich unter die Arme greifen?
Danke schon mal,
Oliver