Shared Modus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Aus der Hilfe:
MultiUserEditing-Eigenschaft
Siehe auch Betrifft Beispiele Zusatzinfo
True, wenn die Arbeitsmappe für gemeinsamen Zugriff freigegeben ist. Schreibgeschützter Boolean-Wert.
Hinweise
Um eine Arbeitsmappe im Freigabemodus zu speichern, verwenden Sie die SaveAs-Methode. Um die Arbeitsmappe vom Freigabemodus in den Exklusivmodus zu setzen, verwenden Sie die ExclusiveAccess-Methode.
Beispiel
Im folgenden Beispiel wird festgestellt, ob die aktive Arbeitsmappe im Exklusivmodus geöffnet ist. Ist dies der Fall, wird sie im Freigabemodus gespeichert.
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If
Detlef

Hallo,
der folgende Code ist schon im beforeSave Event drin.
'Normales speichern
If Not SaveAsUI Then
'Save the Workbook
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True

'SCHREIBE WAS IN EIN ANDERES file heraus
Application.ScreenUpdating = False
Call rausschreiben()
Application.ScreenUpdating = True

ThisWorkbook.Saved = True

Cancel = True

'Falls mit SaveAs gespeichert wird
ElseIf SaveAsUI Then

'Display the Save as dialog
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls," & "All Files (*.*),*.*")
'if not cancel is clicked
If fileSaveName False Then

'Save the workbook
Application.EnableEvents = False
ThisWorkbook.SaveAs fileSaveName
Application.EnableEvents = True

'rufe hier eine Funktion auf, die Infos aus dem File in ein anderes schreibt
Application.ScreenUpdating = False
Call rausschrieben()
Application.ScreenUpdating = True

ThisWorkbook.Saved = True

Cancel = True
Else
Cancel = True
End If
End If

Hintergrund ist dass sich das File im Shared Modus befindet und nach der Synchronisation der Daten nach dem Speicher, etwas in ein seperates File geschrieben werden soll. Nur damit lässt sich das File nicht mehr vom Shared Modus in den normalen Modus zurücksetzen, da am Schluss ja Cancel auf true gesetzt wird, und somit die Save Routine des Systems abgebrochen wird. Da aber beim Ändern des Shared Modus auf den Normal Modus 2 mal gespeichert wird, geht das hiermit nicht mehr. Deshalb benötige ich etwas, um mitzubekommen ob der User das Workbook aus dem Shared Modus in den normalen Modus umsetzten will.
Gruss
Benjamin

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread