Gruppe
Ereignis
Problem
Der eingestellte Berechnungsmodus wird beim Öffnen der Arbeitsmappe gespeichert, auf Manuell gestellt und bei Schließen der Arbeitsmappe wieder zurückgesetzt.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = Worksheets("Data").Range("A1").Value
End Sub
Private Sub Workbook_Open()
Worksheets("Data").Range("A1").Value = Application.Calculation
Application.Calculation = xlCalculationManual
End Sub
StandardModule: Modul1
Sub AusEinblenden()
Worksheets("Data").Visible = xlVeryHidden
Worksheets("Data").Visible = True
End Sub