Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.05.2024 21:08:29
Konvertieren von Excel
29.05.2024 16:49:51
MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 14:19:51
Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 14:17:10
Verzeichnisse liste, immer gleiche Dateien aus jedem lesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

O365 Abfrage der aktiven User in Tabelle

O365 Abfrage der aktiven User in Tabelle
06.05.2022 06:54:13
SteffenS
Hallo Zusammen,
gibt es eine Möglichkeit abzufragen, welche User sich alles in einer gemeinsam unter OneDrive-Tabelle geöffnet haben und diese bearbeiten.
Danke Euch
VG SteffenS

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: O365 Abfrage der aktiven User in Tabelle
06.05.2022 08:24:15
Raphael
Hallo Steffen,
wenn es um VBA geht nutze ich das hier 

strUserName = VBA.Environ("UserName")
strUserName = UCase(strUserName)
dafür und speichere diese Information in einem Ausgeblendeten Tabellenblatt.
Wenn Du nur Wissen möchtest wer Online ist ohne die Mappe zu öffnen, kannst Du das in Deinem Online Ordner von OneDrive sehen.
MfG
Raphael
AW: O365 Abfrage der aktiven User in Tabelle
06.05.2022 10:33:13
Herbert_Grom
Hallo Steffen,
teste mal in "DieseArbeitsmappe":

Option Explicit
Dim sUserName$, lRowIn&
Private Sub Workbook_Open()
lRowIn = Tab_opt.Cells(Rows.Count, "A").End(xlUp).Row + 1
Tab_opt.Cells(lRowIn, 1).Value = Environ("UserName")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lRow&
On Error GoTo ende
lRow = Range("1:1000").Find(What:=Environ("UserName")).Row
Rows(lRow).Delete
ende:
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub
Servus
Anzeige
AW: O365 Abfrage der aktiven User in Tabelle
06.05.2022 10:36:35
Herbert_Grom
Sorry, aber ich habe das im neuen Tabellenblatt "options" gemacht. Dieses musst du im VBA-Editor von "Tabelle2" in "Tab_opt" umbenennen und dann ausblenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige