View Single Post
Old 18-12-2009, 13:28   #4
zuper
Senior Member
 
Iscritto dal: Mar 2001
Città: PV Milano Nord
Messaggi: 3851
Quote:
Originariamente inviato da banryu79 Guarda i messaggi
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]
zuper è offline   Rispondi citando il messaggio o parte di esso