faretesto > microsoft.* > microsoft.office.excel

Final Job (12.10.2017, 13:38)
buongiorno:

dopo avere effettuato alcune operazioni di trasferimento dati fra due
cartelle aperte nella stessa sessione excel, attivo la finestra che non
mi serve pių per chiuderla es:

Windows("Archivio.xls").Activate
ActiveWindow.Close

a questo punto mi si chiede:

Salvare le modifiche apportate a 'Archivio'.xls?

Come faccio ad effettuare autonomamente da listato la scelta "no"?

grazie!
Ale
casanmaner (12.10.2017, 14:02)
Il giorno giovedė 12 ottobre 2017 13:38:17 UTC+2, Final Job ha scritto:
[..]
> ---
> Questa email č stata esaminata alla ricerca di virus da AVG.
>


Workbooks("Archivio.xls").close false

Cosė la cartella di lavoro viene chisura senza salvare le modifiche.
ciao
Lorenzo (12.10.2017, 14:26)
Il 12/10/2017 13:38, Final Job ha scritto:
[..]
> ---
> Questa email č stata esaminata alla ricerca di virus da AVG.
> io nei miei files con la stessa esigenza uso questa:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub

Ciao, Lo
casanmaner (12.10.2017, 14:31)
Il giorno giovedė 12 ottobre 2017 14:26:08 UTC+2, Lorenzo ha scritto:
> Il 12/10/2017 13:38, Final Job ha scritto:
> io nei miei files con la stessa esigenza uso questa:
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Application.DisplayAlerts = False
> ActiveWorkbook.Close
> End Sub

Ciao Lorenzo,
nel tuo caso dovrebbe anche poter bastare

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub
Final Job (12.10.2017, 15:42)
Ottimo! Grazie

il problema dello UsedRange lo controllo appena ho tempo e ti faccio sapere.
Ti auguro una buona giornata
Ale

Il 12/10/2017 14:02, casanmaner ha scritto:
[..]
Final Job (12.10.2017, 15:44)
Grazie Lorenzo
Buona giornata anche a te
Ale

Il 12/10/2017 14:26, Lorenzo ha scritto:
[..]
Lorenzo (12.10.2017, 15:48)
Il 12/10/2017 14:31, casanmaner ha scritto:
> Il giorno giovedė 12 ottobre 2017 14:26:08 UTC+2, Lorenzo ha scritto:
>> Il 12/10/2017 13:38, Final Job ha scritto:


> Ciao Lorenzo,
> nel tuo caso dovrebbe anche poter bastare
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Me.Saved = True
> End Sub


Vero.
Grazie e ciao, Lo
Discussioni simili