Gibt es bitte mittels VBA eine Möglichkeit, eine Arbeitsmappenfreigabe für den Zeitraum der Durchführung eines Makros aufzuheben und danach wieder zu setzen?
Danke
Josef
Sub FreigabeAusschalten()
Application.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
Application.DisplayAlerts = True
End Sub
Sub FreigabeEinschalten()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub