Minimizzare Excel allavvio ecc

Hai un problema con Excel?

Nuova discussione

di alfrimpa data: 24/06/2015 10:28:36
Ciao Beppe

Non ho capito una cosa: quando ti appare Excel e non riesci a cliccarci su hai ancora la userform aperta?

Se si dovresti impostare la proprietà ShowModal della userform a False.

Però, ripeto, non sono sicuro di aver capito bene.

Alfredo
di alfrimpa data: 24/06/2015 11:40:50
Ciao Beppe

Ora sono in ferie e non ho il pc a disposizione per cui non posso guardare il tuo file.

Spero quindi nell'intervento di qualche altro utente; comunque appena rientro cercherò di dare un'occhiata.

Alfredo
di beppexile data: 29/06/2015 08:23:50
Nell'attesa del ritorno dalle ferie di Alfredo, ho provato in altri modi... ad esempio ho provato a nascondere Excel anziché minimizzarlo, ma ottengo la stessa cosa.
è come se il mouse sparisse dallo schermo e non mi permettesse di cliccare su nulla, tranne che sulla barra della applicazioni di windows.
Sto problema mi sta facendo diventare matto.
Tra le altre cose non è neanche una cosa importante per l'utilizzo del programma; serve solo a me a visualizzare nuovamente excel per la manutenzione del file, visto che con la x della userform salvo e chiudo tutto!

di beppexile data: 29/06/2015 15:16:04
Nuovi sviluppi!
Il problema è legato all'evento doppio click della label:
se inserisco lo stesso codice ma nell'evento click, funziona perfettamente.

Ovviamente, per non funzionante, intendo che funziona ma mi blocca excel, e che per bloccarlo lo devo ridurre nuovamente e icona e ripristinarlo.

Qualcuno mi saprebbe dire perché?
Grazie a tutti

'evento click (FUNZIONANTE)
Private Sub Label84_Click()
    myValue = InputBox("Inserisci Password")
    If myValue = "p" Then
        With Application
            .ScreenUpdating = False
            UserForm1_Avvio.Hide
            .WindowState = xlMaximized
            .SendKeys "%{F11}"
            .ScreenUpdating = True
        End With
    Else
        MultiPage1.SetFocus
        Exit Sub
    End If
End Sub

'evento doppio click (NON FUNZIONANTE)
Private Sub Label84_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    myValue = InputBox("Inserisci Password")
    If myValue = "p" Then
        With Application
            .ScreenUpdating = False
            UserForm1_Avvio.Hide
            .WindowState = xlMaximized
            .SendKeys "%{F11}"
            .ScreenUpdating = True
        End With
    Else
        MultiPage1.SetFocus
        Exit Sub
    End If
End Sub

di beppexile data: 30/06/2015 15:40:45
Nessuno che mi sa dire perché ho questo problema?
di Vecchio Frac data: 30/06/2015 17:34:28
A me funziona correttamente sia il singolo che il doppio click.
Unica avvertenza, non puoi gestire le due routine contemporaneamente, perchè il singolo click viene intercettato e gestito sempre prima dell'evento doppio click.
Di passaggio ti ricordo di usare sempre Option Explicit.
Una cosa che non capisco è perchè mai devi attivare l'editor di codice da codice (Alt-F11): "A questo punto si dovrebbe aprire anche VBA". A che scopo?
di Vecchio Frac data: 30/06/2015 17:43:54
Ti fornisco questo snippet di codice che ti mostra come attivare l'editor di codice in modo meno brutale :)
Option Explicit Sub activate_editor() With Application.VBE.MainWindow .Visible = True .SetFocus End With End Sub
di beppexile data: 30/06/2015 17:59:02
io vorrei funzionasse il doppio click sulla label.
In pratica, visto che all'apertura del file si avvia e si vede solo la userform, e alla chiusura dalla x, si salva il lavoro e si chiude excel, vorrei trovare una scorciatoia nascosta ma carina per entrare in programmazione. tutto qui.
Ovviamente, non conoscendo bene il linguaggio di programmazione, mi reinvento su quello che scopro nei forum.
Domani provo il tuo codice e ti so dire.
Grazie
di beppexile data: 01/07/2015 10:02:57
Grazie Vecchio Frac, sostituendo il tuo codice al mio ho risolto.

Vuoi Approfondire?