Mot de passe bloque sur une macro

Résolu
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention   -  
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour le Forum,

Je petit soucis avec un mot de passe qui rentre en conflit avec une macro, pourriez vous me dire pourquoi,

voici la macro :

Public WithEvents GrLabel As Msforms.Label
Private Sub GrLabel_Click()
If ActiveCell.Column > 22 Then Exit Sub

Selection.Interior.Color = GrLabel.BackColor
Selection.Font.Color = GrLabel.ForeColor
Selection.Value = GrLabel.Caption

End Sub

Par avance merci pour vos idées.

Bien à vous et o forum.




A voir également:

7 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

« Je petit soucis avec un mot de passe qui rentre en conflit avec une macro »
Quel est le souci ?
0
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention  
 
Quand j'appuie sur le bouton pour ouvrir ma userform et que je clique sur une cellule pour incorporer une donnée, ça me beug au niveau de

Selection.Interior.Color = GrLabel.BackColor et j'ai une barre jaune qui recouvre cette ligne
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Et il y a un message, que dit-il ?
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonjour
si votre feuille est protègée, (avec ou sans mot de passe) avez vous bien coché l'option "format de cellule" dans la liste des autorisations qui s'affiche lors de protection?
crdlmnt
0
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Vaucluse,

Je viens de faire ce que vous m'avez écris mais rien ni fait, c'est sur,

Selection.Interior.Color = GrLabel.BackColor
Selection.Font.Color = GrLabel.ForeColor
Selection.Value = GrLabel.Caption

que ça beug, je ne sais pas pourquoi.

Bien à vous.
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Quel est le message d'erreur ?
0
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention  
 
Le message d'erreur est:

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Avec ça, comment sais-tu que c'est un « petit soucis avec un mot de passe »
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention  
 
Je pense que pour vous, qui connaissez si bien excel et les macros, ça peut être un petit soucis mais pour moi c'est l'incompréhension, je ne vois pas pourquoi ça bloque
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Ça répond pas à ma question : comment sais-tu que c'est le mot de passe qui te pose le souci ?
0
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention  
 
Quand je veux mettre un mot de passe pour bloquer des cellules ou je ne veux pas qu'interviennent des personnes mal intentionnées, pour enlever les formules de calcul, hé ben là ça beug, quand j'enleve la protection, ça re-fonctionne
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Alors peut être simplement

en début de macro:

activesheet.unprotect "mot de passe"

et en fin de macro avant end sub:

activesheet.protect "mot de passe"

et bien sur protéger VBA avec mot de passe si vous ne voulez pas que le mot de passe soit visible dans la lecture de la macro

crdlmnt
0
narvalot Messages postés 117 Date d'inscription   Statut Membre Dernière intervention  
 
Je vous remercie de la patience que vous avez eu à mon égard, cela fonctionne du tonnerre et bien sûr j'ai mis un mot de passe pour que la macro ne soit pas visible par des mains invisibles qui me nuise.

Encore mille merci de votre aide et merci à ce fabuleux Fôrum.

Je voudrais mettre en résolu mais je ne sais plus comment faire, excusez moi encore d'abusez de votre aide.

Bien à vous.

narvalot
0