XL 2010 Modele xlt masquer des boutons commandes

[tallia64]

Bonsoir à tout le Forum,

Quand on travaille sur un modèle Excel (xlt) celui ci ouvre une copie. Si mon modèle comporte des commandbuttons est il possible lors de l'enregistrement de la copie de les masquer ?
Je vous remercie d'avance pour votre aide.
Bonne soirée.

Tallia 🙂

 

[DoubleZero]

Re : Modele xlt masquer des boutons commandes

Bonjour, tallia64, le Forum,

Je ne sais pas s'il est possible de masquer les boutons lors de l'enregistrement de la copie.

En attendant mieux, le code suivant, affecté à un bouton du modèle, permet d'atteindre l'objectif.

Option Explicit
Sub CommandButton1_Click()
    Dim s As Shape
    On Error Resume Next
    For Each s In ActiveSheet.Shapes
        If s.Type = 12 And s.Name Like "CommandButton*" Then s.Visible = False
    Next s
End Sub

A bientôt 🙂

 

[Efgé]

Re : Modele xlt masquer des boutons commandes

Bonjour mesdames 🙂
Comme il s'agit d'un model, je pense que l'on peux tester le code de 00 🙂 dans le ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Dim s As Shape
     On Error Resume Next
     For Each s In ActiveSheet.Shapes
         If s.Type = 12 And s.Name Like "CommandButton*" Then s.Visible = False
     Next s
End Sub

Cordialement

 

[Efgé]

Re : Modele xlt masquer des boutons commandes

Re
Je pense que mon idée n'est pas bonne.
Comment la mettre en place?
Cordialement

 

[Efgé]

Re : Modele xlt masquer des boutons commandes

Re
J'ai trouvé une méthode.
Mettre ce code dans le ThisWorkBook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim N As Name, Flag As Boolean
Flag = False
For Each N In ThisWorkbook.Names
    If N.Name = "Classeur" Then
        Flag = True
        'La macro de suppression
    End If
Next N
If Not Flag Then ActiveWorkbook.Names.Add Name:="Classeur", RefersToR1C1:="=""""", Visible:=False
End Sub

Cordialement

 

[DoubleZero]

Re : Modele xlt masquer des boutons commandes

Re-bonjour, bonjour, Efgé 😀,

... Je pense que mon idée n'est pas bonne...

En effet, ton idée n'est pas b😡nne ! Elle est excellente 😀

... Comment la mettre en place?...

Dans un nouveau fichier :

- x boutons insérés en "Feuil1" ;

- ton code dans "ThisWorkbook" ;

- enregistrer sous "toto.xltm".

Résultat : parfait.

A bientôt 😀😀

 

[tallia64]

Re : Modele xlt masquer des boutons commandes

Bonsoir Elgé et DoubleZero,

Je vous remercie beaucoup pour votre aide. Vos deux macros m'ont bien aidé.
Bonne soirée.
Tallia 🙂