Avviare excel e caricare una Userform

Question

Immagino sarà una stupidata, non me ne vogliate !

All'avvio del file faccio partire una User e vorrei che si riducesse a icona Excel, ma cio non accade, Accade dopo che chiudo la User, è possibile far si che questo avvenga?

Ho provato pure a invertire l'ordine dei comandi e excel resta ridotto ma non mostra la User fino a quando non clicco sull'icona!

Private Sub Workbook_Open()

UserForm1.Show

Application.WindowState = xlMinimized

End Sub

Grazie

Answer 1

Immagino sarà una stupidata, non me ne vogliate !

All'avvio del file faccio partire una User e vorrei che si riducesse a icona Excel, ma cio non accade, Accade dopo che chiudo la User, è possibile far si che questo avvenga?

Ho provato pure a invertire l'ordine dei comandi e excel resta ridotto ma non mostra la User fino a quando non clicco sull'icona!

Private Sub Workbook_Open()

 

UserForm1.Show

Application.WindowState = xlMinimized

End Sub

Grazie

Ne modulo di ThisWorkbook:

Private Sub Workbook_Open()

    Call mMinimizza

End Sub

In un modulo standard:

Public Sub mMinimizza()

    With Application

        .ScreenUpdating = False

        .WindowState = xlMinimized

        UserForm1.Show vbModeless

        .ScreenUpdating = True

    End With

End Sub

Le dimensioni della UserForm saranno quelle che hai settato tu. Prova e fai sapere, grazie.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

Ebbene si ... funziona proprio come volevo io... ho aggiunto un altra informazione preziosa al mio bagaglio di vb.

Sempre grazie a Mauro !

Alfredo

Grazie a te per il cortese riscontro.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

Ebbene si ... funziona proprio come volevo io... ho aggiunto un altra informazione preziosa al mio bagaglio di vb.

Sempre grazie a Mauro !

Alfredo