DrawingObjects:=False
Malte
Ich benötige eure Hilfe. Ich habe eine große Arbeitsmappe mit rd. 100 Registern. Dort sind Tabellen und Grafiken und alle Seiten sind mit einem Passwort geschützt.
Nun würde ich gerne zentral steuern (z.B. über "DieseArbeitsmappe"), dass man die Grafiken markieren kann und dort z.B. Einstellungen vornehmen oder sie über diesen Weg kopieren kann.
Ich hatte mal eine Sache für ein einzelnes Tabellenblatt (wurde über ein Modul gesteuert):
ActiveSheet.Protect Password:="Passwort", DrawingObjects:=False
Wie kann man das ganz zentral steuern?
Ich habe dort ("DieseArbeitsmappe") bereits folgendes stehen:
Private Sub Workbook_Open()
For I = Worksheets(1).Index To Worksheets.Count
With Worksheets(I)
.Protect UserInterfaceOnly:=True, Password:="Passwort"
.EnableOutlining = True
End With
Next
Sheets("Tabelle1").Select
Range("K25").Select
End Sub
Danke für eure Hilfe. Malte