Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione
Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione
Abbiamo provato il nuovo Galaxy S25 Edge, uno smartphone unico per il suo spessore di soli 5,8 mm e un peso super piuma. Parliamo di un device che ha pro e contro, ma sicuramente si differenzia dalla massa per la sua portabilità, ma non senza qualche compromesso. Ecco la nostra prova completa.
HP Elitebook Ultra G1i 14 è il notebook compatto, potente e robusto
HP Elitebook Ultra G1i 14 è il notebook compatto, potente e robusto
Pensato per il professionista sempre in movimento, HP Elitebook Ultra G1i 14 abbina una piattaforma Intel Core Ultra 7 ad una costruzione robusta, riuscendo a mantenere un peso contenuto e una facile trasportabilità. Ottime prestazioni per gli ambiti di produttività personale con un'autonomia lontano dalla presa di corrente che permette di lavorare per tutta la giornata
Microsoft Surface Pro 12 è il 2 in 1 più compatto e silenzioso
Microsoft Surface Pro 12 è il 2 in 1 più compatto e silenzioso
Basato su piattaforma Qualcomm Snapdragon X Plus a 8 core, il nuovo Microsoft Surface Pro 12 è un notebook 2 in 1 molto compatto che punta sulla facilità di trasporto, sulla flessibilità d'uso nelle differenti configurazioni, sul funzionamento senza ventola e sull'ampia autonomia lontano dalla presa di corrente
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 18-12-2009, 12:02   #1
banryu79
Senior Member
 
L'Avatar di banryu79
 
Iscritto dal: Oct 2007
Città: Padova
Messaggi: 4131
[VBA Excel] aggiornare valore celle Before Save

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?
Codice:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
// ...?
End Sub
Grazie mille
__________________

As long as you are basically literate in programming, you should be able to express any logical relationship you understand.
If you don’t understand a logical relationship, you can use the attempt to program it as a means to learn about it.
(Chris Crawford)
banryu79 è offline   Rispondi citando il messaggio o parte di esso
Old 18-12-2009, 12:30   #2
zuper
Senior Member
 
Iscritto dal: Mar 2001
Città: PV Milano Nord
Messaggi: 3851
Codice:
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
__________________
"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
Old 18-12-2009, 12:51   #3
banryu79
Senior Member
 
L'Avatar di banryu79
 
Iscritto dal: Oct 2007
Città: Padova
Messaggi: 4131
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?
__________________

As long as you are basically literate in programming, you should be able to express any logical relationship you understand.
If you don’t understand a logical relationship, you can use the attempt to program it as a means to learn about it.
(Chris Crawford)

Ultima modifica di banryu79 : 18-12-2009 alle 13:00.
banryu79 è offline   Rispondi citando il messaggio o parte di esso
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
Old 18-12-2009, 13:45   #5
banryu79
Senior Member
 
L'Avatar di banryu79
 
Iscritto dal: Oct 2007
Città: Padova
Messaggi: 4131
Quote:
Originariamente inviato da zuper Guarda i messaggi
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.

Quote:
Originariamente inviato da zuper Guarda i messaggi
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
Grazie mille

Quote:
Originariamente inviato da zuper Guarda i messaggi
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.
__________________

As long as you are basically literate in programming, you should be able to express any logical relationship you understand.
If you don’t understand a logical relationship, you can use the attempt to program it as a means to learn about it.
(Chris Crawford)
banryu79 è offline   Rispondi citando il messaggio o parte di esso
Old 18-12-2009, 14:03   #6
zuper
Senior Member
 
Iscritto dal: Mar 2001
Città: PV Milano Nord
Messaggi: 3851
Quote:
Originariamente inviato da banryu79 Guarda i messaggi
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
__________________
"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
Old 18-12-2009, 14:16   #7
banryu79
Senior Member
 
L'Avatar di banryu79
 
Iscritto dal: Oct 2007
Città: Padova
Messaggi: 4131
Quote:
Originariamente inviato da zuper Guarda i messaggi
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
__________________

As long as you are basically literate in programming, you should be able to express any logical relationship you understand.
If you don’t understand a logical relationship, you can use the attempt to program it as a means to learn about it.
(Chris Crawford)
banryu79 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione Samsung Galaxy S25 Edge: il top di gamma ultraso...
HP Elitebook Ultra G1i 14 è il notebook compatto, potente e robusto HP Elitebook Ultra G1i 14 è il notebook c...
Microsoft Surface Pro 12 è il 2 in 1 più compatto e silenzioso Microsoft Surface Pro 12 è il 2 in 1 pi&u...
Recensione REDMAGIC Astra Gaming Tablet: che spettacolo di tablet! Recensione REDMAGIC Astra Gaming Tablet: che spe...
Dopo un mese, e 50 foto, cosa abbiamo capito della nuova Nintendo Switch 2 Dopo un mese, e 50 foto, cosa abbiamo capito del...
Il radiatore di una BMW M4 per raffredda...
OpenAI accelera su GPT-5: lancio estivo ...
È indietro e deve reagire: il CEO...
Samsung Galaxy Buds3 a 86€, Bose QuietCo...
Addio feed MSN: Microsoft punta tutto su...
GPD Win 5 con il superchip AMD fa volare...
Top 7 Amazon bestseller: classifica scon...
Nexamp ha un'idea per attivare un campo ...
L'app PostePay non funzionerà pi&...
Svelati i colori di iPhone 17 Pro: tutte...
Elon Musk rompe il silenzio sulla Tesla ...
AirPods Pro 2 tornano a 199€ e restano l...
Battlefield 6 è realtà: ec...
Nuove regole per gli influencer: approva...
Microsoft, Nadella rompe il silenzio: pe...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 11:27.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Served by www3v