Codeschnipsel verbessern
Matze,Matthias
Private Sub Workbook_Open()
Dim i As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
For i = 6 To Sheets.Count '12 Monate
With Sheets(i)
ActiveSheet.Unprotect
ActiveSheet.Columns("AP:XFD").EntireColumn.Hidden = True
ActiveSheet.Rows("101:1048576").EntireRow.Hidden = True
ActiveSheet.Protect
End With
Next i
End Sub
Was macht denn der Matze verkehrt, oder woran denke ich mal wieder nicht?
Gruß Matze