Excel Application
04.08.2005 20:28:45
Rene
Ich habe ein Prob. mit Excel.Ich habe diesen Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Error").Visible = True
For Each ws In ActiveWorkbook.Worksheets
If ws.name <> "Error" Then
ws.Visible = xlSheetVeryHidden
End If
Next
ActiveWorkbook.Save
ThisWorkbook.Close False
End Sub
Dieser geht auch aber wenn ich Excel selber schließen möchte muß ich immer zweimal auf das Kreuz klicken bevor Excel schließt. Hätte da einer einen Rat woran das liegen kann?
Gruß Rene