Quote:
Originariamente inviato da banryu79
Ciao zuper,
grazie funziona a meraviglia, ho fatto così:
Codice:
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:
Codice:
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
__________________
"W la foca, che dio la benedoca"
poteva risolvere tutto la sinistra negli anni in cui ha governato e non l'ha fatto. O sono incapaci o sta bene anche a "loro" cosi.
L'una o l'altra inutile scandalizzarsi.[plutus]