Verrouiller bouton quand feuille protégée.

[Pasqi]

Bonjour le Forum,

J'utilise des boutons pour lancer des macros.
Ce sont des boutons et non des boutons de commande.

Lorsque je protège ma feuille, le bouton reste utilisable. Il lance la macro
Comment puis-je le rendre non utilisable ?.

Dans format de contrôle, le bouton est pourtant locké, dans la protection de la feuille j'ai décoché "select lock cells".

Merci pour votre aide.

Bàv

Pasqi

 

[Guest]

Re : Verrouiller bouton quand feuille protégée.

bonjour,

Dans le module ThisWorkbook si ta feuille qui contient le boutons s'appelle "Feuil1" et que les boutons s'appellent "CommandButton1" et "CommandButton2"

Private Sub Worksheet_Activate()
  With ActiveSheet
    If .Name = "Feuil1" Then 
           .CommandButton1.Enabled = Not .ProtectContents
          .CommandButton2.Enabled= Not .ProtectContents 
    End IF
   End With
End Sub

A+

 

[Pasqi]

Re : Verrouiller bouton quand feuille protégée.

Bonjour Hasco,

Désolé, mais le bouton reste accessible et lance la macro.

Ce sont des "boutons" et non "boutons de commande".

J'ai créé un petit fichier et même résultat, ça ne fonctionne pas.

Il est joint à ce message.

Merci

 

[Guest]

Re : Verrouiller bouton quand feuille protégée.

Bonjour,

D'où l'intérêt de tout dire tout de suite et de joindre un fichier!

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If Sh.Name = "Sheet1" Then
           Sh.Shapes("Bouton 1").DrawingObject.Enabled = Not Sh.ProtectContents
    End If
End Sub

A+

 

[job75]

Re : Verrouiller bouton quand feuille protégée.

Annulé, vu le dernier post d'Hasco, que je salue 🙂

 

[Pasqi]

Re : Verrouiller bouton quand feuille protégée.

Re Hasco,

Ça ne fonctionne toujours pas...

J'ai remis le fichier avec dernier code dedans.

Merci

 

[Guest]

Re : Verrouiller bouton quand feuille protégée.

RE,

Pourquoi as-tu changé le nom du bouton?
Exactement la même chose:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If Sh.Name = "Sheet1" Then
           Sh.Shapes("[COLOR=red][B]Bouton 1[/B][/COLOR]").DrawingObject.Enabled = Not Sh.ProtectContents
    End If
End Sub

Il faut mettre le nom qui apparait à côté de la barre de formule quand tu sélectionne ton bouton.

A+

 

[Pasqi]

Re : Verrouiller bouton quand feuille protégée.

Re,

C'est ok pour quand la feuille est verrouillée, mais le bouton ne fonctionne plus quand la feuille est déverouillée...

Merciiiii d'avance.

 

[job75]

Re : Verrouiller bouton quand feuille protégée.

Bonjour Pasqi,

Hasco n'a pas besoin de coup de main mais je veux lui épargner des crampes.

Le fait de protéger ou déprotéger une feuille ne crée pas d'évènement.

Donc pour que le bouton soit réactivé, il faut désactiver (en cliquant sur un autre onglet) puis réactiver la feuille.

A+

 

[Pasqi]

Re : Verrouiller bouton quand feuille protégée.

Bonsoir Job et Hasco,

C'est ok, j'ai tout compris et ça marche.

Merci pour votre aide.

Bàv