Makro funktioniert nicht
01.03.2006 10:24:44
Dieter
Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Next
Sheets(1).Visible = xlSheetVeryHidden
' (der folgende Bereich laüft einzeln als
Private Sub Workbook_Open() ohne Probleme)
Worksheets("Error").EnableSelection = xlUnlockedCells
Worksheets("Jan").EnableSelection = xlUnlockedCells
Worksheets("Feb").EnableSelection = xlUnlockedCells
Worksheets("Mrz").EnableSelection = xlUnlockedCells
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Sheets(1).Visible = xlSheetVisible
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next
ThisWorkbook.Save
End Sub