File Excel che si chiude e si salva da solo

Question

Buonasera a tutti,

faccio una domanda agli esperti.

Ho creato un file Excel che si salva e chiude da solo, file che funziona perfettamente.

Tuttavia, quando si inserisce del testo in una cella lasciando il cursore attivo(lampeggiante), la cartella resta aperta fino a quando non si sposta manualmente il cursore in un'altra cella. Solo in quel momento la cartella si chiude, nonostante il codice di programmazione.

Pertanto la mia domanda è: posso salvare la cartella anche nel caso in cui venga inserito il testo lasciando il cursore lampeggiante?

Ho provato anche il codice ACTIVECELL.OFFSET(1,1).SELECT per spostare la cella attiva ma il risultato non cambia.

Attendo suggerimenti e ringrazio

Public Sub chiudi()

ActiveCell.Offset(1, 1).SELECT

ThisWorkbook.Close savechanges:=True

End Sub

Public Sub orario()

Application.OnTime Now + TimeValue("00:01:00"), "chiudi"

End Sub

Answer 1

Ciao Pasquale,

faccio una domanda agli esperti.

Ho creato un file Excel che si salva e chiude da solo, file che funziona perfettamente.

Tuttavia, quando si inserisce del testo in una cella lasciando il cursore attivo(lampeggiante), la cartella resta aperta fino a quando non si sposta manualmente il cursore in un'altra cella. Solo in quel momento la cartella si chiude, nonostante il codice di programmazione.

Pertanto la mia domanda è: posso salvare la cartella anche nel caso in cui venga inserito il testo lasciando il cursore lampeggiante?

Ho provato anche il codice ACTIVECELL.OFFSET(1,1).SELECT per spostare la cella attiva ma il risultato non cambia.

Attendo suggerimenti e ringrazio

Public Sub chiudi()

ActiveCell.Offset(1, 1).SELECT

ThisWorkbook.Close savechanges:=True

End Sub

Public Sub orario()

Application.OnTime Now + TimeValue("00:01:00"), "chiudi"

End Sub

Sfortunatamente, nessun codice può funzionare mentre Excel è in modalità di modifica.

===

Regards,

Norman

Answer 2

Ciao Pasquale,

Peccato!

Ti ringrazio e ti saluto Norman.

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Peccato!

Ti ringrazio e ti saluto Norman.