Microsoft 365 fermer TextBox en fermant Excel

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée :)

J'ai un souci de code qui beug et je n'arrive pas à trouver comment le modifier :
En feuille "Appels", pour faire des affichages de contenus de cellules, j'ouvre un TextBox1
Si oubli, je voudrais le fermer automatiquement en quittant Excel et j'ai fait ce code :
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If TextBox1.Visible = True Then
    With TextBox1
        .Visible = False
    End With

    Sheets("Appels").Unprotect Password:=""
    With Sheets("Appels").Range("m1").Interior
        .ThemeColor = xlThemeColorDark1
    End With
    Sheets("Appels").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
   
    ActiveWorkbook.Save
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub

la ligne qui bloque est : " If TextBox1.Visible = True Then"

Auriez-vous la solution ?
Si besoin, je ferais un petit fichier test.
Je vous remercie vivement,
Amicalement,
lionel,
 
Dernière édition:
Solution
re,

si la textbox est bien dans la feuille appels, cela devrait fonctionner comme cela.

Bien cordialement, @+
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Appels")
        If .TextBox1.Visible = True Then
            .TextBox1.Visible = False
            .Unprotect Password:=""
            .Range("m1").Interior.ThemeColor = xlThemeColorDark1
            .Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End With
    ActiveWorkbook.Save
End Sub

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 768
Membres
101 816
dernier inscrit
Jfrcs