Makro schütz alle offenen Excel statt Tabellenbl.
14.03.2005 13:56:33
DonFiala
Habe dieses kleine Makro als AutoOpenMakro! Es soll den Autofiler trotz Blattschutz auch bei älteren Excel Versionen ermöglichen! Nun ist mir eine sehr unangenehme Nebenwirkung des Makros aufgefallen:
Wenn ich neben der eigentlichen Excel Datei noch andere Excel Dateien geöffnet habe, dann werden die Tabellenblätter in den anderen Excel Dateien ebenfalls Blattgeschützt! Es sollen aber nur die Tabellnblätter der betroffenen Datei geschützt werden. Hab versucht das Makro entsprechend zu ändern, aber ich schaffs net! Hier das Makro (ohne meine Pfuschversuche!)
Sub auto_open()
Sheets("Start").Select
Dim Wb As Workbook, Sh As Worksheet
For Each Wb In Workbooks
For Each Sh In Wb.Worksheets
Sh.EnableAutoFilter = True
Sh.protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True, Password:="Password"
Next Sh
Next Wb
'Else
'End If
End Sub
Vielen Dank, Gruss michi
Anzeige