Makros aktivieren
28.08.2002 11:06:28
Jens die 2.
also ich muß noch mal eine Frage stellen (immer diese verflixten Greenhorns).
Habe die Idee aus dem Forum aufgegriffen, bei nicht aktivierten Makros auf eine Error Seite zu verzweigen. Habe dazu folgenden Code verwendet
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Error" Then
ws.Visible = True
Else
ws.Visible = xlSheetVeryHidden
End If
Next
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Error" Then
ws.Visible = xlSheetVeryHidden
Else
ws.Visible = True
End If
Next
End Sub
Werden die Makros beim öffnen nicht aktiviert, funzt das wunderbar.
Aktiviere ich aber die Makros (so soll es ja sein) bekomme ich den Laufzeitfehler 1004 Methode visible für das objekt worksheet ist fehlgeschlagen.
Was mache ich falsch?
Vielen Dank für eure Hilfe
Jens