Ist es irgendwie mittels VBA zu erreichen die Arbeitsmappenfreigabe aufzuheben mit Parameter "kein Änderungsprotokoll". Wenn ja, wie?
Danke im Voraus
Lorenz
Sub Freig_aufh_kein_Änderungspr()
With Application
.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
.DisplayAlerts = True
End With
End Sub
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If
Gruß