True / False bei Freigabe Arbeitsmappe
06.11.2003 08:46:32
andrea
habe ein kleines Problem. Um eine Pivottabelle zu aktualisieren während die Arbeitsmappe für mehrere Benutzer freigegeben ist, habe ich folgendes Programm geschrieben.
Sub PivotMitFreigabe()
ActiveWorkbook.ExclusiveAccess
ActiveSheet.PivotTables("PivotTable1").RefreshTable
With ActiveWorkbook
.KeepChangeHistory = True
.ChangeHistoryDuration = 30
End With
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, AccessMode:=xlShared
End Sub
Das läuft auch. Sofern die Mappe wirklich freigegeben ist. Und das ist nicht immer der Fall (freundliche Kollegen!)Um das Abzufangen habe ich eine Abfrage davorgesetzt. Wenn die Mappe nicht freigegeben ist, soll nur aktualisiert werden, sonst nichts. Sieht jetzt so aus:
Sub PivotMitFreigabe()
If ActiveWorkbook.ExclusiveAccess = True Then
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Else
ActiveWorkbook.ExclusiveAccess
ActiveSheet.PivotTables("PivotTable1").RefreshTable
With ActiveWorkbook
.KeepChangeHistory = True
.ChangeHistoryDuration = 30
End With
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, AccessMode:=xlShared
End If
End Sub
Läuft aber nicht. Schon in der ersten Zeile wird ein Fehler angezeigt.
Weiß jemand warum???
Danke für Antwort, Andrea