Visualizzare data e nome utente ultima modifica

Ale

unread,

Jun 30, 2005, 6:49:02 AM6/30/05

to

Ciao a tutti..Ho visto che questa newsgrop è ORO....
La mia domanda è questa: un file viene di EXCELL viene usato da 4 persone.
E' possibile in un cella visualizzare la data dell'utlima modifica fatta e
l'autore della modifica..
Spero di essermi spiegata bene...
Grazie 1000
Alessandra

cucchiaino

unread,

Jun 30, 2005, 7:11:23 AM6/30/05

to

Ale:

Ciao Ale.

Solo per ricordare che con gestione risorse,
cliccando col tasto destro sul file e
poi su proprietà ha le due informazioni:

data ultima modifica
autore ultimo salvataggio

Probabilmente lo sapevi già, in questo
caso spero tu gradisca il mio saluto.

Ciao.

()-- cucchiaino

Marchino

unread,

Jun 30, 2005, 7:21:25 AM6/30/05

to

> E' possibile in un cella visualizzare la data dell'utlima modifica fatta e
>l'autore della modifica..

dalla barra dei menu:
strumenti>revisioni>mostra revisioni

Ciao e buon lavoro,
Marco

Mauro Gamberini

unread,

Jun 30, 2005, 11:05:17 AM6/30/05

to

> La mia domanda è questa: un file viene di EXCELL viene usato da 4 persone.
> E' possibile in un cella visualizzare la data dell'utlima modifica fatta e
> l'autore della modifica..
>

L'avevo già postato, ma non lo trovo più...
che disordinato...

Comunque, partendo da qui:

http://www.erlandsendata.no/english/index.php?d=envbaosusername

Con questo codice da mettere in un modulo:

Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ReturnUserName() As String

Dim rString As String * 255
Dim sLen As Long
Dim tString As String

tString = ""

On Error Resume Next

sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))

If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If

On Error GoTo 0

ReturnUserName = UCase(Trim(tString))

End Function

E questo da mettere nell'evento Open di
ThisWorkbook:

Private Sub Workbook_Open()

Dim nr As Long

With Worksheets("FoglioDiLog")

nr = .Range("A65536").End(xlUp).Row

.Cells(nr + 1, 1).Value = ReturnUserName
.Cells(nr + 1, 2).Value = Format(Date, "mm/dd/yyyy")
.Cells(nr + 1, 3).Value = Format(Now, "hh:mm:ss")

End With

End Sub

Avendo preventivamente creato un foglio
chiamato FoglioDiLog, ogni volta che un
utente mi apre il file, viengono scritti:

Nome utente
Data
Ora

Ti metto qui un esempio:

http://www.webalice.it/maurogsc/prova/xlsvbaFoglioDiLog.zip

--
----------------------------
Mauro Gamberini

Ale

unread,

Jul 5, 2005, 8:14:04 AM7/5/05

to

Grazie mille....

"Marchino" ha scritto:

Ale

unread,

Jul 5, 2005, 8:16:02 AM7/5/05

to

Grazie mille anche del tuo suggerimento...non conosco VB, ma ha cominciato ad
incuriosirmi..Magari sapresti anche dirmi da dove posso iniziare...?
Buona giornata

"Mauro Gamberini" ha scritto:

Marchino

unread,

Jul 5, 2005, 8:55:07 AM7/5/05

to

>non conosco VB, ma ha cominciato ad
>incuriosirmi..Magari sapresti anche dirmi da dove posso iniziare...?

Io ho iniziato con "Le macro di Excel" edizione I PORTATILI
Mondadori;l'ho trovato molto chiaro e utile e accompagna passo passo
chi vuole imparare a modificare e scrivere ruotine per Excel partendo
da quasi zero!
Qualcuno ha altre valide risorse da consigliare?
Saluti e buon lavoro,
Marco

Mauro Gamberini

unread,

Jul 5, 2005, 8:56:49 AM7/5/05

to

> Grazie mille anche del tuo suggerimento...non conosco VB, ma ha cominciato
ad
> incuriosirmi..Magari sapresti anche dirmi da dove posso iniziare...?
>

Ti copio/incollo una serie di links utili postati
da Eliano. Se non capisci tutto il testo
sopra ai links, non ti preoccupare
non ci riesce nessuno...8-)

-------------------------------------------------------------------
'corso excel base/avanzato
http://www.vivoscuola.it/strumenti/manuali/excelbase.asp

'corso online excel-Vba
http://excelvba.altervista.org/ExcelVBA.htm

'corso online excel-vba
http://www.functionx.com/excel/vba/

'sito con esempi excel-vba dell'omo barbuto
http://www.prodomosua.it/

'articoli vari su excel-vba
http://www.ennius.altervista.org/

'gruppi google
http://groups.google.com/grphp

'ricerche avanzate sui gruppi di discussione excel
http://groups.google.it/advanced_group_search?q=group:microsoft.public.it.office.excel

'accesso e ricerche sul NG excel
http://www.microsoft.com/office/community/it-it/default.mspx?dg=microsoft.public.it.office.excel&lang=it&cr=IT

'sito del figlio di erland
http://www.erlandsendata.no/english/index.php

'sito del patatina figlio di pear
http://www.cpearson.com/excel.htm

'sito di donna debra
http://www.contextures.com/

'sito allons enfants
http://www.excelabo.net/

'siti segnalati da Tiziano
http://www.comune.verona.it/Organizzazione/Excel%202000%20base.pdf
http://www.comune.verona.it/Organizzazione/Excel%202000%20avanzato.pdf
http://www.comune.verona.it/Organizzazione/Excel%202000%20professionale.pdf
http://www.cerca-manuali.it/manuale-guida/excel.htm
http://www.ordineingegneri.bergamo.it/Commissioni/2001/14/Documenti/moduli/indice.htm
http://www.cefriel.it/~colombo/Corsi.html
http://www.vivoscuola.it/Strumenti/manuali/excelbase.asp
http://www.softwareplanet.net/php/mostraCorso.php?nomeCorso=Excel

'programma "similexcel" segnalato da Fernando oer eventuali recovery
http://www.byedesign.freeserve.co.uk/
'installare, aprire il file danneggiato (versione spre32it by Mauro)

'TABELLE PIVOT BY Ester Memoli
http://www.dotnethell.it/tips/TabellaPivot.aspx

--
----------------------------
Mauro Gamberini

ivano

unread,

Jul 5, 2005, 9:00:17 AM7/5/05

to

> Ti copio/incollo una serie di links utili postati
> da Eliano. Se non capisci tutto il testo
> sopra ai links, non ti preoccupare
> non ci riesce nessuno...8-)

ELIANO!!!
ribellati.

Mauro Gamberini

unread,

Jul 5, 2005, 9:08:49 AM7/5/05

to

> ELIANO!!!
> ribellati.
>

Se non la smetti, ti faccio una macro!

--
----------------------------
Mauro Gamberini