Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Arbeitsmappe freigeben nach Prozedur | Herbers Excel-Forum


Betrifft: Arbeitsmappe freigeben nach Prozedur von: rené
Geschrieben am: 03.02.2010 14:03:02

Hallo liebe Excelgemeinde,

ich habe eine Datei die für die gemeinsame Nutzung von Usern freigegeben ist. Allerdings habe ich eine Prozedur in meiner Datei die nur funktioniert wenn die Freigabe ausgeschalten ist.

Die Freigabe schalte ich aus mit

ActiveWorkbook.PrecisionAsDisplayed = False
Application.DisplayAlerts = False

ActiveWorkbook.ExclusiveAccess

Am Ende meines Makros steht dann

ActiveWorkbook.PrecisionAsDisplayed = False
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"E:\Technik\Test.xls" _
, AccessMode:=xlShared

Damit wird die Arbeitsmappe wieder für die gemeinsame Nutzung freigegeben.
Allerdings funktioniert das im Netzwerk nur an meinem Rechner obwohl die anderen User auch Rechte für die Datei haben.

An was kann das liegen? Könnt ihr mir bitte einen Tipp geben

Danke aus Sachsen René


  

Betrifft: AW: Arbeitsmappe freigeben nach Prozedur von: Lutz petzold
Geschrieben am: 04.02.2010 02:41:56

Hallo Rene,

versuche es mal mit dem abgeänderten Codezeilen.

Sub Deine_Routine()
Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If
ActiveWorkbook.PrecisionAsDisplayed = False

MsgBox "Deine Aktion"

ActiveWorkbook.PrecisionAsDisplayed = True
ActiveWorkbook.SaveAs Filename:= _
"E:\Technik\Test.xls" _
, AccessMode:=xlShared
'immer wieder auf true setzen!
Application.DisplayAlerts = True
End Sub
M.f.G.
Lutz


Beiträge aus den Excel-Beispielen zum Thema "Arbeitsmappe freigeben nach Prozedur"