Private Sub Workbook_open()
Dim strWbName As String
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'---------------MultiUser----------------
'stellt die Arbeitsmappe im Freigabemodus ein
If Not ThisWorkbook.MultiUserEditing = True Then
Application.DisplayAlerts = False
With ThisWorkbook
If .KeepChangeHistory Then .KeepChangeHistory = False If .ConflictResolution Then .ConflictResolution = xlLocalSessionChanges 'Ànderungen des lokalen Benutzers werden immer akzeptiert
If .PersonalViewListSettings Then .PersonalViewListSettings = False 'Persönliche Filtereinstellungen werden gelöscht
If .PersonalViewPrintSettings Then .PersonalViewPrintSettings = False 'Persönliche Druckeinstellungen werden gelöscht
If .HighlightChangesOnScreen Then HighlightChangesOnScreen = False 'Aenderungen werden am Bildschirm nicht hervorgehoben
If .ListChangesOnNewSheet Then .ListChangesOnNewSheet = False 'Aenderungen werden nicht in einem sep. Blatt dokumentiert
If .AutoUpdateFrequency Then .AutoUpdateFrequency = 0
End With
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
Application.DisplayAlerts = True
End If
'---------------MultiUser----------------
'Zurückstellen ScreenUpdating und Calculation usw.
End Sub
'Einstellungen vor dem Schliessen der Arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim varUsers As Variant
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'---------------MultiUser----------------
'Der letzte Anwender stellt die Arbeitsmappe wieder in den ExcluseModus ein,
'd.h. die Freigabe ist beendet (minimiert den Speicherplatz)
If ThisWorkbook.MultiUserEditing = True Then
varUsers = ThisWorkbook.UserStatus
If IsNumeric(UBound(varUsers, 1)) = True Then
If Not UBound(varUsers, 1) > 1 Then
Application.DisplayAlerts = False
ThisWorkbook.ExclusiveAccess
ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, _
accessMode:=xlExclusive
End If
End If
End If
'---------------MultiUser----------------