Condividi tramite

Far partire una userform all'apertura del file

Anonimo
2012-01-26T09:39:01+00:00

Giorno a tutti

esiste la possibilità di lanciare una userform all'apertura del file?

Grazie

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Anonimo
2012-01-26T09:53:11+00:00

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.

La risposta è stata utile?

9 persone hanno trovato utile questa risposta.
0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Anonimo
2012-01-30T11:18:19+00:00

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

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

9 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2012-01-26T14:32:04+00:00

    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

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento
  2. Anonimo
    2012-01-26T13:13:29+00:00

    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

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Eliminata

    Questa risposta è stata eliminata a causa di una violazione del codice di comportamento. La risposta è stata segnalata manualmente o identificata tramite il rilevamento automatizzato prima dell'esecuzione dell'azione. Per ulteriori informazioni, fai riferimento al codice di comportamento.


    I commenti sono stati disattivati. Ulteriori informazioni