Désactiver boutons à l'ouverture d'un fichier

[lolo62000]

Bonjour,
J'essaye de forcer la désactivation de boutons Contrôles ActiveX lorsque mon fichier s'ouvre.
J'ai rentré ce code dans VBA, mais j'ai un message d'erreur à chaque fois que j'active les macros.

Private Sub Workbook_Open()
With ActiveSheet
CommandButton14.Enabled = False
CommandButton15.Enabled = False
End With
End Sub

Merci pour votre aide.
Bonne journée.

 

[lolo62000]

Re : Désactiver boutons à l'ouverture d'un fichier

Re,
je viens de trouver la solution, en m'inspirant de cet exemple. 😉
Sub verrouiller_cases()
Dim feuille As String

feuille = ActiveSheet.Name

MsgBox feuille

Sheets(feuille).btn1.Enabled = False
Sheets(feuille).btn2.Enabled = False
Sheets(feuille).btn3.Enabled = False
End Sub

Merci, bonne journée.

 

[ERIC S]

Re : Désactiver boutons à l'ouverture d'un fichier

Bonjour

heureux que tu aies trouvé une solution, et que tu l'aies présentée.

je n'ai pas testé mais en regardant le premier post, j'ai l'impression qu'il aurait fallu mettre un .commandButton pour que le with soit pris en compte

 

[DoubleZero]

Re : Désactiver boutons à l'ouverture d'un fichier

Bonjour, lolo62000, ERIC S, le Forum,

Peut-être ainsi ?

ActiveSheet.OLEObjects.Enabled = False

A bientôt 🙂