problem mit verstecken von arbeitsblättern
15.08.2007 10:34:00
arbeitsblättern
Hab den Code in das Modul : DieseArbeitmappe reingeschrieben.
Finde den Fehler nicht weiß nicht warum nicht.
Der Code:
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
Hoffe jemand ist motiviert mir zu Helfen. Würd mich echt freuen mal Hilfe zu bekommen. Gruß Marcel