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

lolo62000 · 19 Juin 2015

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 · 19 Juin 2015

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 · 20 Juin 2015

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 · 21 Juin 2015

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

Bonjour, lolo62000, ERIC S, le Forum,

Peut-être ainsi ?

Code:

ActiveSheet.OLEObjects.Enabled = False

A bientôt

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

lolo62000

XLDnaute Junior

lolo62000

XLDnaute Junior

ERIC S

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Discussions similaires