faretesto > microsoft.* > microsoft.office.excel

Final Job (12.10.2017, 14: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, 15: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, 15: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, 15: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, 16: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, 16:44)
Grazie Lorenzo
Buona giornata anche a te
Ale

Il 12/10/2017 14:26, Lorenzo ha scritto:
[..]
Lorenzo (12.10.2017, 16: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
Final Job (21.10.2017, 21:09)
Scusate se torno sull'argomento ma quando a seguito dell'istruzione
ActiveWindows.Close False
appare il messaggio:
"gli appunti contengono una grande quantità di informazioni Conservarle
...... Si No Annulla
come faccio a sostituire in vba ciò che manualmente effettuo cliccando
su "SI"
grazie
ale

Il 12/10/2017 13:38, Final Job ha scritto:
[..]
casanmaner (21.10.2017, 21:42)
La procedura parte da una macro diversa da quella del file che vai a chiudere?
Final Job (21.10.2017, 21:59)
Il file che vado a chiudere è esterno a quello dal quale lancio la sub

Il 21/10/2017 20:42, casanmaner ha scritto:
[..]
casanmaner (21.10.2017, 22:04)
Il giorno sabato 21 ottobre 2017 20:59:22 UTC+2, Final Job ha scritto:
> Il file che vado a chiudere è esterno a quello dal quale lancio la sub
> Il 21/10/2017 20:42, casanmaner ha scritto:
> > La procedura parte da una macro diversa da quella del file che vai a chiudere?
> > ---
> > Questa email è stata esaminata alla ricerca di virus da AVG.
> >


Prova prima della riga di comando di chiusura a inserire

Application.DisplayAlerts = False

e dopo la riga di chiusura

Application.DisplayAlerts = True
Final Job (21.10.2017, 22:13)
Ok
e se, invece, avessi bisogno di svuotare gli appunti (che equivale a
cliccare manualmente sul "no")?
ciao

Il 21/10/2017 21:04, casanmaner ha scritto:
[..]
casanmaner (22.10.2017, 00:13)
Il giorno sabato 21 ottobre 2017 21:13:15 UTC+2, Final Job ha scritto:
> Ok
> e se, invece, avessi bisogno di svuotare gli appunti (che equivale a
> cliccare manualmente sul "no")?
> ciao


Dopo aver copiato e incollato i dati hai provato a far seguire il comando

Application.CutCopyMode=False
Final Job (22.10.2017, 02:28)
Grazie .... buona sfebbrata!
Ale

Il 21/10/2017 23:13, casanmaner ha scritto:
[..]
Discussioni simili