Verrouiller bouton quand feuille protégée.

G

Guest

Guest

• 29 Septembre 2010

• #2

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"

Code:

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+

 

Dernière modification par un modérateur: 29 Septembre 2010

Vote positif 0 Vote négatif

P

Pasqi

Guest

• 29 Septembre 2010

• #3

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

 

Pièces jointes

• Protection bouton.xls

  25 KB · Affichages: 121
• Protection bouton.xls

  25 KB · Affichages: 127
• Protection bouton.xls

  25 KB · Affichages: 137

Vote positif 0 Vote négatif

G

Guest

Guest

• 29 Septembre 2010

• #4

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!

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Septembre 2010

• #5

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

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

 

Vote positif 0 Vote négatif

P

Pasqi

Guest

• 29 Septembre 2010

• #6

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

 

Pièces jointes

• Protection bouton.xls

  25 KB · Affichages: 81
• Protection bouton.xls

  25 KB · Affichages: 89
• Protection bouton.xls

  25 KB · Affichages: 99

Vote positif 0 Vote négatif

G

Guest

Guest

• 29 Septembre 2010

• #7

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

RE,

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

Code:

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+

 

Vote positif 0 Vote négatif

P

Pasqi

Guest

• 29 Septembre 2010

• #8

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Septembre 2010

• #9

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+

 

Vote positif 0 Vote négatif

P

Pasqi

Guest

• 29 Septembre 2010

• #10

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

 

Vote positif 0 Vote négatif