Berechnungsmodus
28.04.2003 20:54:21
Christian
ich möcht gern den Berechnungsmodus von Excel beim öffnen einer Datei umschalten und beim schließen wieder zurückschalten.
Mein Code:
Sub Workbook_Open()
Application.Calculation = xlManual
Sheets("Verträge").Protect UserInterfaceOnly:=True
Sheets("Verträge").EnableAutoFilter = True ' Für AutoFilter
Calculate
End Sub
Was muß ich verwenden, damit bei schließen der Datei wieder
Application.Calculation = xlAutomatic
eingestellt wird???