[VBA Excel] aggiornare valore celle Before Save

[banryu79]

Salve,
non so niente di VBA Excel, ma ho bisogno, in un foglio di calcolo, di aggiornare il valore di due celle al salvataggio delle mofiche apportate al foglio stesso.

In particolare, essendo il foglio di calcolo locato in un server in lan a cui possono accedere più utenti, vorrei salvare in una cella la data del momento in cui viene effettuato il salvataggio e l'autore.

Ho aperto Microsoft Visual Basic dal contesto del foglio di calcolo, ho selezionato come oggetto ThisWorkbook e ho trovato la routine BeforeSave che, ad intuito, credo risponda all'evento che fa al caso mio.

Ora, molto francamente: cosa ci devo scrivere dentro?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
// ...?
End Sub

Grazie mille

[zuper]

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Foglio1").Range("A1").Value = Now()
Sheets("Foglio1").Range("A2").Value = Application.UserName
End Sub

[banryu79]

Ciao zuper,
grazie funziona a meraviglia, ho fatto così:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("RO100").Range("A1").Value = "Last Modified"
Sheets("RO100").Range("A2").Value = Now()
Sheets("RO100").Range("A3").Value = "By"
Sheets("RO100").Range("A4").Value = Application.UserName
End Sub

Scusa se ne aprofitto ancora: mi sono accorto che l'utente inserito è lo stesso che compare come stringa nella finestra delle proprietà di "Risorse del Computer" sotto la voce: "Registrato a nome di:".

Siccome tutti i pc sono dell'azienda e come tali sono registrati, comparirebbe sempre la stessa stringa, ergo non si riuscirebbe ad identificare l'utente che ha editato per ultimo il file.

E' invece possibile, se non è troppo complicato, recuperare il nome dell'utente che ha effettuato il login a Windows?
Oppure usare qualche altro oggetto/proprietà, che non conosco?


@EDIT: mi spiegeresti il significato dei due parametri booleani passati alla Sub?
Cosa indicano?

[zuper]

Originariamente inviato da banryu79

Ciao zuper,
grazie funziona a meraviglia, ho fatto così:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("RO100").Range("A1").Value = "Last Modified"
Sheets("RO100").Range("A2").Value = Now()
Sheets("RO100").Range("A3").Value = "By"
Sheets("RO100").Range("A4").Value = Application.UserName
End Sub

Scusa se ne aprofitto ancora: mi sono accorto che l'utente inserito è lo stesso che compare come stringa nella finestra delle proprietà di "Risorse del Computer" sotto la voce: "Registrato a nome di:".

Siccome tutti i pc sono dell'azienda e come tali sono registrati, comparirebbe sempre la stessa stringa, ergo non si riuscirebbe ad identificare l'utente che ha editato per ultimo il file.

E' invece possibile, se non è troppo complicato, recuperare il nome dell'utente che ha effettuato il login a Windows?
Oppure usare qualche altro oggetto/proprietà, che non conosco?


@EDIT: mi spiegeresti il significato dei due parametri booleani passati alla Sub?
Cosa indicano?

no dovrebbe comparire quello che risulta da l'help about di excel

cmq:

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Foglio1").Range("A1").Value = Now()
Sheets("Foglio1").Range("A2").Value = (Environ$("Username"))
End Sub

i due parametri credo gli servano per poter distinguere se è un save o un save as...e dare la pox di cancellare il save

[banryu79]

Originariamente inviato da zuper

no dovrebbe comparire quello che risulta da l'help about di excel

Sì, vero, ed è lo stesso valore che mi compare anche in proprietà di risorse del computer: sarà il valore di qualche chiave di registro di windows di cui ignoro il nome.

Originariamente inviato da zuper

cmq:

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Foglio1").Range("A1").Value = Now()
Sheets("Foglio1").Range("A2").Value = (Environ$("Username"))
End Sub

Grazie mille

Originariamente inviato da zuper

i due parametri credo gli servano per poter distinguere se è un save o un save as...e dare la pox di cancellare il save

Ok, grazie del chiarimento.

[zuper]

Originariamente inviato da banryu79

Sì, vero, ed è lo stesso valore che mi compare anche in proprietà di risorse del computer: sarà il valore di qualche chiave di registro di windows di cui ignoro il nome.

quello è il nome che di solito office chiede dopo la prima installazione...

i vostri pc saranno stati standardizzati e poi ghostati e l'hanno messa così

cmq sotto strumenti opzioni generale si può anche ovviare al problema

[banryu79]

Originariamente inviato da zuper

cmq sotto strumenti opzioni generale si può anche ovviare al problema

Ah, grazie della dritta ho visto adesso.
Cmq meglio di no: può capitare che l'utente Luigi si sieda alla scrivania dell'utente Antonio: per poter usare Windows deve comunque loggarsi con il suo nome utente, ergo è meglio per me usare quello.
Se usassi quello associato alla applicazione installata mi ritroverei con un'informazione menzognera

Grazie del tuo prezioso aiuto, a buon rendere