È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Macro

Ultimo Aggiornamento: 24/10/2023 00:59
Post: 7
Registrato il: 18/06/2008
Città: ALBA
Età: 57
Utente Junior
excel 2016
OFFLINE
23/10/2023 21:40

Salve a tutti è da un po che mancavo , volevo chiedervi un piccolo suggerimento
ho creato il file che vi allego , ma vorrei che il salva e chiudi mi chiuda anche excel
grazie a chi mi rispondera
Post: 832
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
23/10/2023 22:33

ciao
non sono un genio ma sinceramente non capisco come debba funzionare il tuo file, macro non xlsm, password, errori, boh

allora fai da te

alla fine della macro, appena prima di end sub ci scrivi

Application.quit

Leo

forse ho capito male, cioè forse non hai macro nel file, ma allora temo che solo per usare un tale comando ci voglia il VBA
[Modificato da L2018 23/10/2023 22:36]

LEO
https://t.me/LordBrum
Post: 833
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
23/10/2023 22:49

ciao, scusa, prima il file non si apriva e dava errore
ora si apre ma sinceramente non so gestirlo
passo

Leo

LEO
https://t.me/LordBrum
Post: 3.110
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Master
365
OFFLINE
23/10/2023 22:59

ciao
Leo
guarda che ha già il pulsante con
Application.quit

il salva e chiudi
non capisco il problema


Sub Chiudi()
Application.Quit
ActiveWorkbook.Close SaveChanges:=False
End Sub

[Modificato da federico460 23/10/2023 23:06]
Post: 834
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
23/10/2023 23:13

Re:
federico460, 23/10/2023 22:59:

ciao
Leo
guarda che ha già il pulsante con
Application.quit

il salva e chiudi
non capisco il problema


Sub Chiudi()
Application.Quit
ActiveWorkbook.Close SaveChanges:=False
End Sub




e infatti me ne sono accorto (quando son riuscito ad aprire il file), provato a usarlo ma non va, neppure spostandolo in ultima posizione
anche per questo ho fatto passo

Leo
[Modificato da L2018 23/10/2023 23:15]

LEO
https://t.me/LordBrum
Post: 1.368
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Veteran
Excel 2016-32bit Win11
OFFLINE
24/10/2023 00:59

Un saluto a tutti.
Io opto per questa soluzione per non rischiare di chiudere altri file Excel aperti:
Option Explicit
Sub Pulsante199_Click()
    If Application.Workbooks.Count = 1 Then
        ThisWorkbook.Save
        Application.Quit
    Else
        ThisWorkbook.Close SaveChanges:=True
    End If
End Sub

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota: 15MediaObject5,0026 2
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:01. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com