Chiudere una UserForm

[Fabrizio]

Ciao a tutti, solitamente uso la riga di codice Unload UserFormx per
chiuderle, in questa occasione soltanto in una determinata userform il
comando non avviene, c'è qualche causa a me sconosciuta chenon
permette la chiusura?
Grazie

[Mauro Gamberini]

Ciao a tutti, solitamente uso la riga di codice Unload UserFormx per
chiuderle, in questa occasione soltanto in una determinata userform il

comando non avviene, c'� qualche causa a me sconosciuta chenon
permette la chiusura?
************************************************

Non � che hai, nel codice della UserForm,
una cosa come questa:

Private Sub UserForm_QueryClose( _
Cancel As Integer, _
CloseMode As Integer)
Cancel = True
End Sub

--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/officeit/threads

[Fabrizio]

On 12 Nov, 14:30, "Mauro Gamberini"

<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Ciao a tutti, solitamente uso la riga di codice Unload UserFormx per
> chiuderle, in questa occasione soltanto in una determinata userform il

> comando non avviene, c'è qualche causa a me sconosciuta chenon
> permette la chiusura?
> ************************************************
>
> Non è che hai, nel codice della UserForm,

> una cosa come questa:
>
> Private Sub UserForm_QueryClose( _
>     Cancel As Integer, _
>     CloseMode As Integer)
>     Cancel = True
> End Sub
>
> --
> ---------------------------
> Mauro Gamberinihttp://www.riolab.org/http://www.maurogsc.eu/http://social.microsoft.com/Forums/it-IT/officeit/

Ciao, Si per far prima ho copiato un codice di un altro file che avevo
fatto e non avevo visto in fondo ai codici la routine da te scritta,
però se non ricordo male l'ho usata per non far chiudere la userform
dalla x , in effetti tolta questa parte di codice la userform si
chiude

[Mauro Gamberini]

Ciao, Si per far prima ho copiato un codice di un altro file che avevo
fatto e non avevo visto in fondo ai codici la routine da te scritta,

per� se non ricordo male l'ho usata per non far chiudere la userform

dalla x , in effetti tolta questa parte di codice la userform si
chiude

********************************************

Non ho capito se hai risolto.

L'evento QueryClose ha 2 argomenti.
Cancel, di tipo Boolean, che pu� essere
True o False(di default � False).
Se lo porti a True, accetti di cancellare
la richiesta di chiusura della UserForm.
Il secondo argomento, CloseMode,
� un Integer che indica *come* stai
chiudendo la UserForm. Il valore 0
equivale al pulsante di chiusura
della UserForm(la x).

Una UserForm con un CommandButton.
Chiuder� la UserForm solo
tramite il CommandButton,
cancellando la richiesta di chiusura fatta
tramite la x:

Private Sub UserForm_QueryClose( _
Cancel As Integer, _
CloseMode As Integer)

'se chiudo con la x
'cancello la richiesta
If CloseMode = 0 Then
Cancel = True
Else
Cancel = False
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Grazie per l'attenzione.

[Fabrizio]

On 12 Nov, 16:17, "Mauro Gamberini"

<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Ciao, Si per far prima ho copiato un codice di un altro file che avevo
> fatto e non avevo visto in fondo ai codici la routine da te scritta,

> però se non ricordo male l'ho usata per non far chiudere la userform

> dalla x , in effetti tolta questa parte di codice la userform si
> chiude
> ********************************************
>
> Non ho capito se hai risolto.
>
> L'evento QueryClose ha 2 argomenti.

> Cancel, di tipo Boolean, che può essere
> True o False(di default è False).

> Se lo porti a True, accetti di cancellare
> la richiesta di chiusura della UserForm.
> Il secondo argomento, CloseMode,

> è un Integer che indica *come* stai

> chiudendo la UserForm. Il valore 0
> equivale al pulsante di chiusura
> della UserForm(la x).
>
> Una UserForm con un CommandButton.

> Chiuderò la UserForm solo

> tramite il CommandButton,
> cancellando la richiesta di chiusura fatta
> tramite la x:
>
> Private Sub UserForm_QueryClose( _
>     Cancel As Integer, _
>     CloseMode As Integer)
>     'se chiudo con la x
>     'cancello la richiesta
>     If CloseMode = 0 Then
>         Cancel = True
>     Else
>         Cancel = False
>     End If
> End Sub
>
> Private Sub CommandButton1_Click()
>     Unload Me
> End Sub
>
> Grazie per l'attenzione.
>
> --
> ---------------------------
> Mauro Gamberinihttp://www.riolab.org/http://www.maurogsc.eu/http://social.microsoft.com/Forums/it-IT/officeit/threads

Che devo dire Grazie per la spiegazione, un po' di tempo fa' ho creato
( creato è un parolone) rubbacchiando un po qua un po la' dei codici
modificandoli ed ottenendo risultati per me sufficenti, adesso il
copiazzare a causa di cose più complicate non mi è stato più
sufficente, e mi sto rendendo conto che non è che ci capisca molto,
però grazie a persone gentili e competenti come te mi sta aiutando ad
entrare dalla parte giusta di questo mondo che mi sta affascinando
sempre di più, mi rendo conto che la strada è lunga ma avere qualcuno
che ti aiuta a oltrepassare questi ostacoli è senza dubbio un grosso
aiuto.
GRAZIE

[Mauro Gamberini]

> Che devo dire Grazie per la spiegazione
>

<cut>

Grazie a te per il gentilissimo riscontro.