Risultati da 1 a 16 di 16

Discussione: Macro di avviso del tempo di attesa ad apertura file



  1. #1
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Macro di avviso del tempo di attesa ad apertura file

    Ciao a tutti,
    vorrei che all'apertura del file mi apparisse l'avviso "Attenzione l'aggiornamento del file è stimato in 20'.
    Questo utilizzando qualche vecchio thread presente nel forum immagino di riuscirlo a fare! O comunque ci provo!!

    Ma...tenuto conto del cane che si morde la coda, il dubbio è che quando dopo l'apertura del file autorizzerò l'aggiornamento dell'avviso di protezione, il messaggio comparirà alla fine e quindi ...20' dopo!! Ovviamente vanificando l'obiettivo di avvisare l'utente che per i prossimi 20' può anche...andare al bar :176:.

    Sperando di essere stato più chiaro possibile, aspetto vostre considerazioni.

    Grazie in anticipo
    Gene

  2. #2
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    810
    Versione Office
    2016 64bit
    Likes ricevuti
    145
    Likes dati
    53
    Ma se nell'Auto-Open la prima riga dello script è il messaggio non ci saranno problemi, il messaggio compare subito.
    Forse se spieghi di che aggiornamento parli e come si realizza ci si può ragionare sopra in modo più puntuale.

  3. #3
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Ciao Rollis13,
    dalla tua risposta balena una possibile fattibilità e quindi aggiungo un'immagine che spero possa aiutare di più delle parole.



    L'avviso dovrebbe presentarsi contestualmente al presentarsi dell'avviso che ho indicato come fase 1.

    E nel contempo mi aiuti anche sul come fare la macro?
    Infatti il codice scopiazzato e riadattato:
    Codice: 
    Private Sub Workbook_Open()
    Msgbox(“Attenzione: L'aggiornamento di questo file è stimato in 20'”)
    End Sub
    da questo risultato:


    Nel caso serva d'aiuto, posso postare una versione "slim" del file excel.

    Grazie dell'aiuto.
    Gene

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Gene,
    come bene ha detto Rollis (che saluto) dovevi chiarire qualcosa.
    Non credo sia possibile farlo nella fase 1 come da te indicato, ma si può fare come ha detto Rollis, cioè dopo che hai autorizzato l'esecuzione delle macro e inserendolo in Workbook_Open o in Auto_Open, puoi far apparire il messaggio che ti interessa.

    Ciao,
    Mario

  5. #5
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Ciao Mario e Rollis,
    aiutatemi a capire.
    1) l'avviso uscirebbe nell'immediatezza della conferma delle 2 attivazioni (fase 2) o dopo 20'?
    2) Dov'è l'errore di sintassi nel codice?

    Grazie
    Gene

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    Ciao Mario e Rollis,
    aiutatemi a capire.
    1) l'avviso uscirebbe nell'immediatezza della conferma delle 2 attivazioni (fase 2) o dopo 20'?
    2) Dov'è l'errore di sintassi nel codice?

    Grazie
    Gene
    Ciao a tutti,
    non entro nel merito della prima domanda in quanto al momento non posso fare prove.... per quanto riguarda "l'errore di sintassi", non mi convincono molto quei doppi apici (le virgolette) che racchiudono la stringa del messaggio. Prova a cancellarle e a reinserirle manualmente.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  7. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Ciao,
    grazie Cromagno il tuo fiuto non tradisce:28:.




    A questo punto mi aiutate a modificare la macro per aggiungere un PROSEGUI ed un ANNULLA.
    In realtà basterebbe solo ANNULLA perchè cliccando su OK è implicito che abbia deciso di proseguire.

    Gene

  8. #8
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Gene
    non c'era alcun dubbio "Occhio di Falco" (cromagno) individuasse l'errore.

    Prova a cambiare la macro così:
    Codice: 
    Private Sub WorkBook_Open()
    risp = MsgBox("Attenzione: L'aggiornamento di questo file è stimato in 20' circa" & vblf & "Continuo?",4+64,"Avviso"
    if risp = 7 then end
    
    Ens Sub
    se la risposta è no chiude il programma.
    Non posso testare ma dovrebbe andar bene.
    Ciao,
    Mario

  9. #9
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Ciao Mario.
    più che chiudere il programma, preferisco che resti nel file ma annullando l'operazione di aggiornamento.
    E' fattibile?
    Gene

  10. #10
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Gene
    vedo che sei mattiniero!!!
    Veniamo al problema. Apro il file e mi viene chiesto di autorizzare l'esecuzione delle macro. Rispondo di si. Mi viene presentato il msgbox. Ho solo due possibilità: rispondo SI ed il programma viene caricato; rispondo NO. Cosa può fare Excel se il programma non è ancora caricato? O esce (e quindi non continua e quindi uso End) oppure cosa?

    Ciao
    Mario

  11. #11
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Ciao Mario,
    dopo attenta analisi sono arrivato alla conclusione che all'aumentare dell'età corrisponde una riduzione delle ore di sonno :187:.

    Per quanto riguarda il tuo quesito: Speravo in una terza via ossia restare nel file senza aggiornare. L'idea è che l'operatore avviando il file possa decidere (saputo del tempo di attesa) di rinunciare all'aggiornamento ma di usare comunque il file per altre interrogazioni o verifiche.

    Gene

  12. #12
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    810
    Versione Office
    2016 64bit
    Likes ricevuti
    145
    Likes dati
    53
    Ti rappresento una possibile situazione operativa:
    Codice: 
    Option Explicit
    
    Private Sub WorkBook_Open()
        
        Dim risp As String
        
        risp = MsgBox("Attenzione: L'aggiornamento di questo file è stimato in 20' circa" & vbLf & "Continuo ?", 4 + 64, "Avviso")
        
        'se l'utente risponde "No" interrompiamo la macro
        If risp = 7 Then End
        
        'se invece risponde "Sì" allora avviamo l'aggiornamento
        MsgBox "vedo che fai tempo da perdere ... allora aggiorniamo"
        
        '...
        'qui ci va il codice che esegue l'aggiornamento
        'se non richiede una gestione particolarmente complessa
        'oppure
        'una chiamata ad un'altra macro con un:  Call nome_macro
        'od un:  Application.Run ("nome_macro")
        '...
    
    End Sub
    
    
    Private Sub nome_macro()
        'questo è lo script dell'aggiornamento
        'e va messo in un modulo VBE
    End Sub

  13. #13
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Salve Gene
    in altre parole Rollis (un saluto) ha riproposto il mio suggerimento in formato più tecnico (Option Explicit, Dim.., ecc.) ma, credo, non risolva il tuo problema. C'è però un'altra possibilità: se nella riga di codice del messaggio sostituisci il 4 con un 3. A questo punto il box del messaggio conterrà tre alternative: SI, NO, Annulla. A seconda del pulsante cliccato puoi inserire il codice adatto. Ecco un esempio:
    Codice: 
    Option Explicit
    Private Sub WorkBook_Open()
    Dim risp As String
        risp = MsgBox("Attenzione: L'aggiornamento di questo file è stimato in 20' circa" & vbLf & "Continuo?", 3 + 64, "Avviso")
    In rosso ho indicato ciò che devi cambiare.
    Se è stato cliccato il pulsante SI la variabile risp=6
    Se è stato cliccato il pulsante NO la variabile risp=7
    Se è stato cliccato il pulsante ANNULLA la variabile risp=2

    Quindi, basandoti sul valore della variabile assegna il codice adatto.

    Se non è chiaro avvisa.
    Ciao,
    Mario

  14. #14
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    810
    Versione Office
    2016 64bit
    Likes ricevuti
    145
    Likes dati
    53
    Ciao Marius44, scusa se non ho riportato che sviluppavo il tuo suggerimento ma, come potrai notare, questa mattina andavo talmente di fretta che ho persino scritto "fai tempo" invece di "hai tempo" nel suggerimento del post #12.
    In ogni caso, anche se nel post #2 avevo chiesto più dettagli ed il thread ha avuto un seguito, al momento non ho ancora capito per bene quale sia il "vero" problema.

  15. #15
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    ciao Rollis
    non accetto le scuse :167: perchè non hai bisogno di scusarti! Fra di noi (assidui frequentatori) non ci sono problemi.
    Tornando invece al problema di Gene, se ho capito la richiesta, vorrebbe che l'utente all'apertura, dopo aver autorizzato l'esecuzione delle macro, ricevesse un messaggio che il tempo per l'aggiornamento del file è di 20 minuti circa e, di conseguenza, vi fosse una triplice possibilità:
    a) continuare con l'aggiornamento
    b) continuare (penso solo in visualizzazione) senza aggiornamento
    c) chiudere
    ed quello che ho suggerito nel mio post delle 17.15
    Vediamo cosa ne pensa l'interessato.

    Ciao a tutti,
    Mario

  16. #16
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Ciao a tutti,
    scusate la latitanza ma la casa in montagna è "No internet zone".
    Confermo che Mario ho compreso in pieno la richiesta e che domani proverò il tutto ma non ho dubbi sul risultato :285:.

    A presto per [Risolto].

    Gene

Discussioni Simili

  1. [Risolto] apertura di una userform ad apertura del file
    Di raffaelealta nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 09/02/17, 14:07
  2. Problema con apertura di excel file
    Di lies843 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 16/12/16, 03:47
  3. Errore di apertura file excel nativo txt
    Di Harry nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 29/12/15, 19:08
  4. Non apertura del file
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 02/12/15, 15:15
  5. ricerca apertura file excel
    Di Stefano nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 03/11/15, 22:40

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •