Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Arbeitsmappe freigeben nach Prozedur | Herbers Excel-Forum
- Arbeitsmappe freigeben nach Prozedur von rené vom 03.02.2010 14:03:02
- AW: Arbeitsmappe freigeben nach Prozedur - von Lutz petzold am 04.02.2010 02:41:56
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