Sapere chi sta attualmente condividendo il file (Excel 2003)

Buon pomeriggio a tutti,
vorrei proporre un quesito un po insolito, sicuro di trovare uno "geniaccio" che sappia trovare la soluzione.
Lavoro su un file di una cartella di lavoro condivisa con altri 4 utenti; se voglio sapere chi è attualmente "collegato" alla cartella di lavoro, basta andare sul menù strumenti e cliccare su "Condividi cartella di lavoro..." e si apre la finestra con scritto: "Attualmente la cartella di lavoro è utilizzata da...".
La mia domanda è la seguente: è possibile avere questo elenco (che si aggiorni in tempo reale) predisponendo delle celle direttamente sui fogli del file stesso, senza dover ogni volta consultare il menù strumenti?
Praticamente come una piccola finestra sempre attiva che dia la possibilità di avere sempre sotto controllo la situazione.
Confido in tutti voi e so di stare nel posto giusto!
Grazie infinite.
Elio
P.S. Lavoro con Excel 2003.

...non ditemi che non c'è soluzione,,,🙏😓

menu revisione > condividi cartella di lavoro

saluti

Ciao e ti ringrazio per aver risposto; ma mi hai segnalato quello che gia sapevo. Io chiedevo se c'è un modo di avere quello schema (utilizzando e formattando adeguatamente le celle) direttamente sul foglio su cui si sta lavorando: una sorta di finestra sempre aperta che aggiorna in tempo reale chi attualmente sta lavorando e su quale foglio. Mi chiedevo se sosse possibile, utilizzando anche VBA....

ciao

1) Users = ActiveWorkbook.UserStatus
non sono sicuro che li elenchi tutti, guarda in debug cosa contiene la variabile Users nella finestra immediata del vb.
Edit confermo che nell'array Users() vanno a finire tutti gli utenti che al momento utilizzano il file.
NOTA: i tre dati esposti per ciascun utente sono:
User(x,1)=Nome
User(x,2)=data e ora
User(x,3)=Parametro 1(Esclusivo) oppure 2(Condiviso)


2) Set mInfo = Application.Dialogs(xlDialogFileSharing)
assegna alla variabile mInfo i valori della finestra di dialogo (quellaa che apri dal menu di cui al precedente post); ma non so se si possano estrarre i vari dati.

In debug e sempre nella finestra delle variabili locali guarda se tra gli elementei di "Application" o di "Parent" trovi quello che ti serve.

Vedo se trovo qualcosa.....

saluti

Se Vuoi provare...(spero vada bene col 2003)

Ciao Dodo47, adesso va di meglio in peggio 😀😀😀, nel senso che io sono alle primissime armi con il VBA e quello che mi hai scritto, per me, è quasi paragonabile all'arabo (mi hai sopravvalutato... e pure di tanto 😀).
Puoi provare a spiegarmi, passo passo, come devo operare?
(sempre che non ti rubi troppo tempo).
Ti ringrazio infinitamente, comunque vada.

Grazie per la risposta.
Ci do un'occhiata per vedere come adattarlo al mio foglio (sperando di capirci qualcosa) e ti farò sapere...
Siete straordinari!!!
Grazie di cuore.

@elioeco
avventurarsi nella programmazione senza avere una minima base di conoscenza è un rischio elevato in quanto se non capisci non puoi gestire.

Ciò premesso:



questo scrive, per ogni utente attivo, quanto detto in colonna A,B,C adatta a quanto ti occorre.

saluti

Complimenti dodo47
Perfetto anche se non ho files condiviso.

@elioeco
Il mio allegato non và bene, si può vedere solo l'utente che lo apre. Poi bisognava vedere se Msgbox = Environ("Username") funziona in 2003

Grazie per avermi risposto. Con il codice che hai postato sto cercando di adattarlo alle mie esigenze e, avendo fatto delle prove, ho cambiato così:

vUtenti = ActiveWorkbook.UserStatus
For i = 1 To UBound(vUtenti, 1)
Cells(i, 1) = vUtenti(i, 1)
Next i

poichè mi interessa solo il nome di chi è attualmente collegato.
Adesso sto cercando di capire come elencare gli utenti collegati, visualizzandoli partendo dalla cella P10 alla P20.

...poi creerò un pulsante sul foglio "Menù principale" per associarle la macro.

Grazie per avermi risposto. Con il codice che hai postato sto cercando di adattarlo alle mie esigenze e, avendo fatto delle prove, ho cambiato così:

vUtenti = ActiveWorkbook.UserStatus
For i = 1 To UBound(vUtenti, 1)
Cells(i, 1) = vUtenti(i, 1)
Next i

poichè mi interessa solo il nome di chi è attualmente collegato.
Adesso sto cercando di capire come elencare gli utenti collegati, visualizzandoli partendo dalla cella P10 alla P20.

...poi creerò un pulsante sul foglio "Menù principale" per associarle alla macro.

Ciao dodo47,
ho impiegato un pò di tempo a rispondere perchè, con tutto questo casino del Covid-19, si è stravolto tutto il tempo per fare le cose quando ci sono priorità più importanti.
Grazie a te, però, sono riuscito a risolvere il mio problema.
Ho modificato il tuo codice (ma non più di tanto) in questo modo:

Sub ControlloUtentiInLinea()
'
' ControlloUtenti Macro
' Macro registrata il 17/03/2020
Sheets("INTRO").Select
Range("P10:P20").ClearContents
vUtenti = ActiveWorkbook.UserStatus
p = 10
For i = 1 To UBound(vUtenti, 1)
Cells(p, 16) = vUtenti(i, 1)
p = p + 1
Next i
End Sub

... e va alla grande!!!
Grazie ancora e grazie anche a ABCDEF@Excel per essersi interessato al problema.
Non immaginate quanto siete preziosi tutti voi di questo forum, che riuscite a risolvere qualsiasi problema proponiamo noi, "miseri mortali", con una pazienza esemplare (a volte mi capita di leggere altri post su questo forum e mi rendo conto di quanta pazienza e semplicità di spiegare le cose siete capaci).
Grazie, grazie, grazie,
per esserci sempre e comunque!
🔝🔝🔝🔝🔝🔝🔝