Office

  • Office 2007
  • Office
  • Tutti i forum
Domanda

Far partire una userform all'apertura del file

Si applica a:
Giorno a tutti
esiste la possibilità di lanciare una userform all'apertura del file?
Grazie
    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento
1 Utente aveva
questa domanda

È stato utile?

Risposta
Giorno a tutti
esiste la possibilità di lanciare una userform all'apertura del file?
Grazie


Metti questo nel modulo di codice di ThisWorkbook:

 

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

 

Cambia eventualmente il nome della UserForm con il nome della tua. Il file deve essere in formato .xlsm o .xls.

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

È stato utile?

Risposta

C'è qualcuno che può aiutarmi?


Riproviamo.

 

Questo nel modulo di codice della UserForm1:

Private Sub CommandButton1_Click()
    UserForm1.Hide
    UserForm2.Show vbModeless
End Sub

Private Sub CommandButton2_Click()
    UserForm1.Hide
    UserForm3.Show vbModeless
End Sub

Questo nei moduli di codice delle UserForm2 e UserForm3:

Private Sub UserForm_Terminate()
    UserForm1.Show vbModeless
End Sub

 

Questo nel modulo di codice di ThisWorkbook:

Private Sub Workbook_Open()
    UserForm1.Show vbModeless
End Sub

 

Vedi qui il file utilizzato per l'esempio: http://www.maurogsc.eu/esempiforum12/treuserform_1201.zip

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

È stato utile?

Risposta
Giorno a tutti
esiste la possibilità di lanciare una userform all'apertura del file?
Grazie


Metti questo nel modulo di codice di ThisWorkbook:

 

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

 

Cambia eventualmente il nome della UserForm con il nome della tua. Il file deve essere in formato .xlsm o .xls.

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

È stato utile?

Grazie mille Mauro.
Domandona:
esiste la possibilità di rendere visibile solo la userform attiva?
Nel mio file ho 3 userform
In quella che "apro all'apertura" del file ho 2 bottoni di comando che a loro volta mi aprono altre 2 userform.

Nel momento in cui io clicco su uno di questi comandi, si può "far sparire" la prima userform e poi farla "ricomparire" quando chiudo la seconda?
Grazie

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

È stato utile?

Grazie mille Mauro.
Domandona:
esiste la possibilità di rendere visibile solo la userform attiva?
Nel mio file ho 3 userform
In quella che "apro all'apertura" del file ho 2 bottoni di comando che a loro volta mi aprono altre 2 userform.

Nel momento in cui io clicco su uno di questi comandi, si può "far sparire" la prima userform e poi farla "ricomparire" quando chiudo la seconda?
Grazie


Si può fare quasi tutto.

Questo, ad esempio, inserito nel modulo di UserForm2, chiude la UserForm1 e quando chiudi UserForm2, riapre la UserForm1:

 

Private Sub UserForm_Initialize()
    Unload UserForm1
End Sub

Private Sub UserForm_Terminate()
    UserForm1.Show
End Sub

Lo stesso codice puoi inserirlo uguale anche nel modulo di UserForm3.

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

È stato utile?

Scusa Mauro ma non riesco a capire dove inserirlo
    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

È stato utile?

Scusa Mauro ma non riesco a capire dove inserirlo


Questo codice:

 

Private Sub UserForm_Initialize()
     Unload UserForm1
 End Sub
 
Private Sub UserForm_Terminate()
     UserForm1.Show
 End Sub

Va inserito nei moduli di codice delle UserForm2 e UserForm3.

  • ALT+F11(e sei nell'editor del vb di Excel)
  • Individua: Progetto-VBAProject
  • Doppio click su: UserForm2
  • Inserisci nella pagina bianca(il modulo di codice)
  • Ripeti per UserForm3

Il codice per i pulsanti di UserForm1 è:

Private Sub CommandButton1_Click()
    UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
    UserForm3.Show
End Sub

 

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

È stato utile?

Forse ho sbagliato qualcosa.
quando faccio doppio click su UserForm2 non ho una pagina bianca ma ho effettivamente la UserForm con la cornice e i pulsanti di comando...
Non so non riesco a capire.
Non è che posso allegare il file così puoi guardare e dirmi dove sbaglio?
Grazie
    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

È stato utile?

C'è qualcuno che può aiutarmi?
    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

È stato utile?

Risposta

C'è qualcuno che può aiutarmi?


Riproviamo.

 

Questo nel modulo di codice della UserForm1:

Private Sub CommandButton1_Click()
    UserForm1.Hide
    UserForm2.Show vbModeless
End Sub

Private Sub CommandButton2_Click()
    UserForm1.Hide
    UserForm3.Show vbModeless
End Sub

Questo nei moduli di codice delle UserForm2 e UserForm3:

Private Sub UserForm_Terminate()
    UserForm1.Show vbModeless
End Sub

 

Questo nel modulo di codice di ThisWorkbook:

Private Sub Workbook_Open()
    UserForm1.Show vbModeless
End Sub

 

Vedi qui il file utilizzato per l'esempio: http://www.maurogsc.eu/esempiforum12/treuserform_1201.zip

    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

È stato utile?

Ok. grazie mille dopo un po' di prove ci sono riuscito.

Ciao
    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

È stato utile?

Ok. grazie mille dopo un po' di prove ci sono riuscito.

Ciao

Perfetto. Buona giornata e grazie per il cortese riscontro.
    • Sfruttamento o abuso di minori
    • Molestie o minacce
    • Contenuto inappropriato o per adulti
    • Nudità
    • Linguaggio blasfemo
    • Pirateria software
    • SPAM/Pubblicità
    • Pericolo di virus/spyware/malware
    • Altra violazione delle Condizioni per l'utilizzo o del Codice di comportamento

Mauro Gamberini

Moderatore della community
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

I messaggi contrassegnati come risposte non possono essere eliminati

Per eliminare questo messaggio, annulla prima il contrassegno di risposta.

Motivo per rimuovere l'inoltro


Unisci

Immetti l'ID thread del thread in cui si esegue l'unione


La risposta sarà pubblicata in un thread pubblico

Stai rispondendo a una parte pubblica di questo thread. Per rispondere in privato, fai clic su Annulla, seleziona la scheda Messaggi privati e scegli Rispondi sul messaggio privato.

Non visualizzare questo messaggio in futuro

Per segnalare un abuso, accedi o continua senza accedere

Grazie.

Segnala abuso

Tipo di abuso:

Dettagli (facoltativi):

Segnala abuso

Tipo di abuso:

Dettagli (obbligatori):
Immetti i caratteri che vedi (obbligatorio):
Digita i numeri visualizzati nell'immagine.
Riproduci l'audio e digita i numeri che ascolti.
Mostra un'altra immagine.

Accedi

Puoi accedere anche con l'account di Hotmail, Xbox Live, Messenger o msn.

Non possiedi uno di questi account?

Accesso in corso...
La pagina si aggiornerà automaticamente una volta effettuato l'accesso.
Se riscontri problemi, puoi chiudere il messaggio e riprovare a collegarti.