Erweiterung Code
25.10.2016 15:20:20
Martin
Ich bräuchte zu folgendem Code (habe eine Arbeitsdatei vom Kollegen übernommen) eine Erweiterung - es soll auch eine Gruppierung sowie Suche ermöglicht werden (dazu muss der Schutz aufgehoben werden). Wie kann dies gelöst werden?
Private Sub Workbook_Open()
Dim I
For I = Worksheets(1).Index To Worksheets.Count
With Worksheets(I)
.Protect userinterfaceonly:=True, Contents:=True, DrawingObjects:=False, Password:="PW"
.EnableOutlining = True
.Protect userinterfaceonly:=True, Contents:=True, DrawingObjects:=False, _
AllowFormattingRows:= _
True, Password:="PW"
End With
Next
Sheets("Tab1").Select
Range("A1").Select
End Sub