before close
13.11.2002 15:11:38
Lutz
Habe ähnliches Problem wie Jenny. In meiner Mappe befinden sich mehrere Blätter. Alle außer "Werte" sollen bei Macroaktivierung eingeblendet werden. Bei Deaktivierung der Macros nur Blatt "Start". Beim Schliessen erfolgt an unten genannter Stelle Fehlermeldung "Laufzeitfehler 1004 Die Visible-Eigenschaft des Worksheet-Objektes kann nicht festgelegt werden" und alle Blätter bis auf Blatt "Hilfe) sind ausgeblendet.
Habt Ihr eine Lösung ?
Private Sub Workbook_Open()
For Each wks In ActiveWorkbook.Sheets
If wks.Name <> "Werte" Then
wks.Visible = True
Else
wks.Visible = xlVeryHidden
End If
Next
UserForm1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each wks In ActiveWorkbook.Sheets
If wks.Name = "Start" Then
wks.Visible = True
Else
wks.Visible = xlVeryHidden (Fehlermeldung)
End If
Next
End Sub