vba excel: attivare userform

[karug64]

Salve a tutti.
Nell'evento Workbook_Open() ho inserito queste istruzioni per aprire tre file xls e lanciare una form

Codice: Seleziona tutto

xlstab = "tabulato.xls"
xlsdata = "database.xls"
xlsprog = "cc.xls"

    Set w_data = Workbooks.Open(Application.ActiveWorkbook.Path & "\" & xlsdata)
    w_data.Activate
    ActiveWindow.WindowState = xlMinimized
   
    Set w_tab = Workbooks.Open(Application.ActiveWorkbook.Path & "\" & xlstab)
    w_tab.Activate
    ActiveWindow.WindowState = xlMinimized
       
    Workbooks(xlsprog).Activate
    ActiveWindow.WindowState = xlMinimized

    UserForm1.Show 1


in un pulsante del form nascondo il form e massimizzo il file "tabulato.xls"

Codice: Seleziona tutto

UserForm1.Hide
    Windows("Tabulato.xls").Activate
    WindowState = xlMaximized

sul foglio "elaborato" del file "tabulato.xls" ho messo un pulsante con cui vorrei minimizzare il foglio "tabulato.xls" far riapparire il form1.

Ho provato ad inserire questo codice

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
    Windows("cc.xls").Activate
    Windows("cc.xls").userform1.Show
End Sub

ma ottengo errore sulla linea

Codice: Seleziona tutto

Windows("cc.xls").userform1.Show

proprietà o metodo non supportati dall'oggetto

Potreste aiutarmi ? Grazie

[Zer0Kelvin]

Ciao.
Prova a fare così: nel file cc.xls inserisci

Codice: Seleziona tutto

Public Sub showform()
UserForm1.Show
End Sub

e nel file tabulato.xls inserisci

Codice: Seleziona tutto

Application.Run ("cc!showform")

[karug64]

Ciao.
Prova a fare così: nel file cc.xls inserisci

Codice: Seleziona tutto

Public Sub showform()
UserForm1.Show
End Sub

questo codice dove lo inserisco ? L'ho inserito in thisworkbook: va bene ?

e nel file tabulato.xls inserisci

Codice: Seleziona tutto

Application.Run ("cc!showform")

pero' quando clicco sul pulsante del foglio tabulato mi da errore perche' cerca il file cc.xlsx ma il file è cc.xls ...
Rimedi ?

[Zer0Kelvin]

prova con

Codice: Seleziona tutto

Application.Run ("cc.xls!showform")

Codice: Seleziona tutto

Public Sub showform()
    UserForm1.Show
    End Sub

questo codice dove lo inserisco ? L'ho inserito in thisworkbook: va bene ?

Assolutamente no! devi inserirlo in un modulo standard.

[karug64]

Avevo provato con cc.xls, ma mi dava errore molto probabilmente dovuto a dove avevo "sistemato" il codice.
Ora funziona. Grazie