Office 365 - MultiUserEditing

Diskutiere und helfe bei Office 365 - MultiUserEditing im Bereich Microsoft Office im Windows Info bei einer Lösung; Guten Tag, ich bin Projektmanager und auch VBA Programmierer und habe in der Vergangenheit bereits mehrere Excel Tools programmiert, auch solche die... Dieses Thema im Forum "Microsoft Office" wurde erstellt von Mathieu_PM_91, 6. Februar 2020.

  1. Office 365 - MultiUserEditing


    Guten Tag,


    ich bin Projektmanager und auch VBA Programmierer und habe in der Vergangenheit bereits mehrere Excel Tools programmiert, auch solche die mit MultiUserEditing arbeiten.

    Jetzt wurde hier im Haus auf Sharepoint und Office 365 umgestellt. Damit ist auch der Button unter "Überprüfen->Arbeitsmappe Freigeben" verschwunden. "Teilen" führt nur zum Upload der Datei. Im Sharepoint selbst funktionieren Makros aber nicht mehr. Insgesamt ein ziemlicher Misst, denn das Tool ist hier sehr wichtig.

    Gibt es hierzu einen Workaround, außer die Datei in einer älteren Office Version zu öffnen und dort "Arbeitsmappe Freigeben" zu drücken?

    Über Makros den Zustand zu erhalten geht nicht, ich kann per Makro nur prüfen, ob der Zustand besteht über die Abfrage "Thisworkbook.MultiUserEditing --> TRUE/FALSE".


    Soll auf lange Sicht bei Office die Makrofunktionalität aussterben, oder wie ist diese Strategie aktuell zu verstehen?


    Mit freundlichen Grüßen


    Mathieu B.
     
  2. Claus Busch Win User

    Office 365 - MultiUserEditing

    Hallo Mathieu,

    du kannst zur Schnellzugriffsleiste die Option "Arbeitsmappe freigeben (Legacy)" hinzufügen. Dann kannst du dort einstellen, dass die alte Funktionalität benutzt werden soll anstatt der gemeinsamen Dokumenterstellung.

    Claus
  3. Mathieu_PM_91 Win User

    Office 365 - MultiUserEditing

    Grüß dich Claus,

    das löst mein Problem! Sehr gut. Danke dir.

    VG

    Mathieu B.
  4. Claus Busch Win User

    Makro neue Zeilen einfügen in Excel

    Hallo Steffi,

    wenn du auch noch Filtern willst, dann ändere das Makro zum Einfügen so ab (Der Filter muss aber vorher von Hand gesetzt worden sein):

    Sub Test()
    
    Dim adr As Variant
    
    Dim rngC As Range
    
    Dim LCol As LongApplication.ScreenUpdating = False
    
    Application.DisplayAlerts = FalseWith ActiveWorkbook
    
       .UnprotectSharing
    
       If .MultiUserEditing Then
    
          .ExclusiveAccess
    
       End If
    
    End WithIf Selection.Cells.Count < 16384 Then Exit SubActiveSheet.Unprotect
    
    With Selection
    
       .Copy
    
       LCol = Cells(.Row, Columns.Count).End(xlToLeft).Column
    
       adr = Split(.Address(0, 0), ":")
    
       Rows(adr(0)).Insert Shift:=xlDown, _
    
          CopyOrigin:=xlFormatFromLeftOrAbove
    
       For Each rngC In Range(Cells(adr(0), 1), _
    
          Cells(adr(1), LCol))
    
          If Not rngC.HasFormula Then
    
             rngC.ClearContents
    
          End If
    
       Next
    
    End With
    
    ActiveSheet.EnableAutoFilter = True
    
    ActiveSheet.Protect userinterfaceonly:=TrueActiveWorkbook.ProtectSharing
    
    Application.DisplayAlerts = True
    
    Application.ScreenUpdating = True
    
    End Sub
    Beim Makro Löschen musst du auch noch die Freigabe aufheben und wieder setzen. Probiere es mal so:Sub loeschen()
    
    Application.DisplayAlerts = False
    
    With ActiveWorkbook
    
       .UnprotectSharing
    
       If .MultiUserEditing Then
    
          .ExclusiveAccess
    
       End If
    
       ActiveSheet.Unprotect
    
       Selection.EntireRow.Delete
    
       ActiveSheet.EnableAutoFilter = True
    
       ActiveSheet.Protect userinterfaceonly:=True
    
       .ProtectSharing
    
    End With
    
    Application.DisplayAlerts = True
    
    End Sub
    Mit freundlichen Grüßen

    Claus
  5. Claus Busch Win User

    Makro neue Zeilen einfügen in Excel

    Hallo Steffi,

    hast du das Blatt geschützt und dann Arbeitsmappe schützen und freigeben gewählt?

    Dann probiere es mal mit folgendem Code. Wenn du ein Passwort vergeben hast, musst du das im Code beim Entsperren und dem Setzen des Schutzes noch eingeben:

    Sub Test()

    Dim adr As Variant

    Dim rngC As Range

    Dim LCol As Long

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    With ActiveWorkbook

    .UnprotectSharing

    If .MultiUserEditing Then

    .ExclusiveAccess

    End If

    End With

    If Selection.Cells.Count < 16384 Then Exit Sub

    ActiveSheet.Unprotect

    With Selection

    .Copy

    LCol = Cells(.Row, Columns.Count).End(xlToLeft).Column

    adr = Split(.Address(0, 0), ":")

    Rows(adr(0)).Insert Shift:=xlDown, _

    CopyOrigin:=xlFormatFromLeftOrAbove

    For Each rngC In Range(Cells(adr(0), 1), _

    Cells(adr(1), LCol))

    If Not rngC.HasFormula Then

    rngC.ClearContents

    End If

    Next

    End With

    ActiveSheet.Protect

    ActiveWorkbook.ProtectSharing

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

    End Sub

    Mit freundlichen Grüßen

    Claus
  6. Alexandar Petrov Win User

    M365 BS Teams und Planner, Planner fehlt

    Hallo Karl-Heinz,
    <br />
    <br />vielen Dank für deine Anfrage.
    <br />
    <br />Planner ist leider im Microsoft 365 Business Standard Plan nicht eingeschlossen. Gerade ist Planner in den folgenden Office 365 für Business Plänen vorhanden : Office 365 Business Essentials, Office 365 Business Premium, Office 365 Enterprise E1, Office 365 Enterprise E3, Office 365 Enterprise E4, Office 365 Enterprise E5, Office 365 Education, Office 365 Education E3, Office 365 Education E4 und auch bei den Office 365 Enterprice (E1-E5) für Gouvernment oder Non-Profit Pläne.
    <br />
    <br />Mit freundlichen Grüßen
    <br />Alexander Petrov
    <br />Microsoft Office 365 for Business Support Engineer
    <br />
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Office 365 - MultiUserEditing - Microsoft Office

Die Seite wird geladen...

Office 365 - MultiUserEditing - Similar Threads - Office 365 MultiUserEditing

Forum Datum

Office 365 zu Office 365 migrieren

Office 365 zu Office 365 migrieren: Hallo, folgende Problematik: Es besteht ein Office 365 Konto mit einer Office 365 Business Premium – DE Lizenz, welche am 31.10.2018 abgelaufen ist. Nun haben wir unserer IT Dienstleister...
Microsoft Office 2. November 2018

Office 365

Office 365: Hallo Freunde. Kann man Office 365 auch benutzerdefiniert instalieren. Wenn ja wie ?
Microsoft Office 1. Oktober 2017

Office 365

Office 365: ich habe auf dem Tablet 365 installiert und nneu auf einem neuen Laptop ebenfalls. nun reklamiert das System das Office sei schon mal installiert worden, ich müsse eine Version löschen so ei...
Microsoft Office 5. April 2017

Office 365

Office 365: Kann mir jemand schreiben wieso keine meiner Office Anwendungen funktioniert, und das seit dem 01.01.2017 Eine neuinstallation hat auch nichts gebracht
Microsoft Office 5. Januar 2017

office 365

office 365: brauche ich diese office 365? genügt das normale, bis anhin nicht oder wird es nachher gelöscht?
Microsoft Office 4. Januar 2017

Office 365

Office 365: Eigentlich läuft mein Vertag noch: Ich habe Office 365 Personal aboniert. Da PowerPoitnt gar nicht mehr funktioniert, installiere ich neu und erhalte dann die Fehlermeldung: "Einige...
Microsoft Office 5. Dezember 2016

Office 365

Office 365: Habe Office 365 Personal vor 2 Wochen installiert. Da es nicht funktionierte, wieder deinstalliert und erneut installiert. Leider ohne Erfolg. Was gibt es noch für Möglichkeiten, endlich damit...
Microsoft Office 23. Oktober 2016
Office 365 - MultiUserEditing solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.