Sub Freigabe einschalten()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub
Sub Freigabe ausschalten()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
.DisplayAlerts = True
End With
End Sub
Grüsse aus Österreich
Lorenz
Sub Freigabe einschalten()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub
Sub Freigabe ausschalten()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
.DisplayAlerts = True
End With
End Sub
Grüsse Lorenz
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen