wer greift auf die freigegebene Arbeitsmappe zu

Bild

Betrifft: wer greift auf die freigegebene Arbeitsmappe zu
von: Manfred Müller
Geschrieben am: 11.12.2003 10:35:00

Der Befehl Arbeismappe freigeben zeigt an wer auf die Datei gemeinsam zugreift.
Kann ich diese Information auch andersweitig auslesen? mit einbem VBA makro?
Gruss
Manfred

Bild


Betrifft: AW: wer greift auf die freigegebene Arbeitsmappe zu
von: Manfred Müller
Geschrieben am: 11.12.2003 10:45:33

Na ja habe die antwort selbst gefunden
vielleicht interessiert es ja sonst noch jemanden


Sub werda()
benutzer = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
    For reihe = 1 To UBound(benutzer, 1)
        .Cells(reihe, 1) = benutzer(reihe, 1)
        .Cells(reihe, 2) = benutzer(reihe, 2)
        Select Case benutzer(reihe, 3)
            Case 1
                .Cells(reihe, 3).Value = "Exklusiv"
            Case 2
                .Cells(reihe, 3).Value = "Freigegeben"
        End Select
    Next
End With
End Sub



Bild

Beiträge aus den Excel-Beispielen zum Thema " wer greift auf die freigegebene Arbeitsmappe zu"