maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> UserForm: eliminare tasto (x) di chiusura(32/64 bit)

UserForm: eliminare il tasto (X) di chiusura(32/64 bit) - VBA

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

1 - Come visualizzare una UserForm senza il tasto (X) di chiusura per Office 32/64 bit. Nel modulo di codice della UserForm:

#If Win64 Then

    Private Declare PtrSafe Function SetWindowLong _
        Lib "user32" _
            Alias "SetWindowLongA" ( _
            ByVal hwnd As LongLong, _
            ByVal nIndex As LongLong, _
            ByVal dwNewLong As LongLong) _
            As Long
    
    
    Private Declare PtrSafe Function FindWindow _
        Lib "user32" _
            Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) _
            As Long

#Else

    Private Declare Function SetWindowLong _
        Lib "user32" _
            Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) _
            As Long
    
    
    Private Declare Function FindWindow _
        Lib "user32" _
            Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) _
            As Long
        
#End If

Private Sub UserForm_Initialize()
    SetWindowLong FindWindow( _
        vbNullString, Me.Caption), _
        -16, -2067791744
End Sub

Predisporre un pulsante di chiusura per la UserForm. Ad esempio, sempre nel modulo di codice della UserForm:

 Private Sub CommandButton1_Click()
    Unload Me
End Sub
 

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

Ultimo aggiornamento di questa pagina: 26/11/2010 - mauro gamberini