ActiveSheet.Unprotect Password:=""

Bonjour,

Avec une feuille non protégée, le double-clic sur H2 lance la macro2.

Compte tenu qu'il y a plusieurs utilisateurs, je dois PROTEGER la feuille et du coup... la macro ne se lance plus !

J'ai retrouvé que cela passe par ActiveSheet.Unprotect Password:="" mais je ne n'arrive pas à placer avec succès

de plus, une fois la macro terminée... il faudrait que la feuille se retrouve protégée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address(0, 0) = "H3" Then

Call Macro2

End If

End Sub

'ActiveSheet.Unprotect Password:=""

Merci d'avance

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Me.Unprotect "mon mot de passe"
If Target.Address(0, 0) = "H3" Then
Call Macro2
End If
Me.Protect "mon mot de passe"
End Sub
 

Si il n'y pas de mot de passe > Unprotect "" et Protect ""

ric

Bonjour,

Une proposition !?

Cdlt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$H$2" Then
        Me.Unprotect "mon mot de passe"
        Call Macro2
        Me.Protect "mon mot de passe"
    End If
End Sub

[quote=ric post_id=714293 time=1544279950 user_id=56402]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Unprotect "mon mot de passe"
If Target.Address(0, 0) = "H3" Then
Call Macro2
End If
End Sub
Protect "mon mot de passe"
 

Merci pour ce retour ....que je vais copier et mettre en place ... un peu plus tard car je dois m'absenter.

Je reviendrai donc plus tard.

Ouf ! C'est un florilège !!!

Unprotect et Protect ne référant à aucun objet Worksheet,

Une ligne de code après End Sub (hors procédure !)

Et la feuille dans son module dédié, c'est Me (il ne faut jamais l'oublier...)

Heureusement que Jean-Eric est passé par là !

Bonjour à tous,

Désolé pour mon étourderie ... je viens de laver mes verres correcteurs.

J'ai corrigé le code précédent.

ric

Ric : J'aime mieux ça ! ça m'avait inquiété sur le coup !

Re,

et moi... je m'arrache les cheveux !

Je vous joins le tableur....

  • la macro2 exécute bien le tri sur la feuille non protégée
  • dès que la feuille est protégée ..... aucune des 2 propositions fonctionnent (cf feuille 1 et feuille 2)

Etant en phase d'élaboration du classeur, je n'ai pas mis de mdp et donc retenu "" et je ne pense pas qu'il s'agit de la source du problème

Me.Unprotect ""

Call Macro2

Me.Protect ""

et depuis je cherche où est l'erreur !

"" est une valeur texte. Si tu n'as pas mis de mot de passe, tu ne mets rien.

"" est une valeur texte. Si tu n'as pas mis de mot de passe, tu ne mets rien.

Je joins le tableur que j'ai dû omettre.... je viens d'essayer en supprimant les "" sans succès dans la feuille 1

Je revois cela demain.... en espérant avoir un code qui fonctionne !

Bonne soirée.

72premier-tour.xlsm (24.39 Ko)

Bonjour,

Un essai...

ric

Bonjour,

Un essai...

ric

Un essai vite fait......

Demain je revois, il semble que tu ne passes pas par la macro....

Excellente soirée

Bonjour,

J'ai déplacé le code du module dans la feuille.

ric

Bonjour,

Dernière ligne droite avant le tableur final...

Feuille 1 = ras, super bien

J'ai créé la feuille 2 avec une colonne à trier affichant d'autres résultats.... je copie le code de la feuille 1 et ai -sauf omission- "actualisé" les références des cellules et....... il y a un bug

Bien entendu, j'ai essayé de modifier quelques trucs... sans succès : cela ne peut pas être grand chose.

Dernière question formulée dans la feuille mais je dois peut-être ouvrir un autre post pour cela ?

Excellente journée

Bonjour,

Examine de près le nom de la deuxième feuille, il y a une* espace à la fin du nom.

Dans la macro, tu as écrit le nom sans l'espace à la fin ... d'où l'erreur.

Enlève l'espace à la fin du nom de la feuille et le code fonctionnera bien.

* > archaïque : le mot espace est féminin quand il fait référence à l'espace entre deux caractères typographiques.

ric

Bonjour,

Examine de près le nom de la deuxième feuille, il y a une* espace à la fin du nom.

Dans la macro, tu as écrit le nom sans l'espace à la fin ... d'où l'erreur.

Enlève l'espace à la fin du nom de la feuille et le code fonctionnera bien.

ric

Re

Je suis.... Je ne pense pas que j'aurai trouvé ! Bravo !

Pour l'autre question, as-tu une idée ou il faut mieux que j'ouvre un autre fil ?

Tonthon

Bonjour,

Je crois que c'est possible ... je regarde.

Le déplacement désiré ... doit-il se faire de haut en bas ... oui de gauche à droite ?

ric

Bonjour,

Je crois que c'est possible ... je regarde.

Le déplacement désiré ... doit-il se faire de haut en bas ... oui de gauche à droite ?

ric

Comme c'est pour compléter la zone grisée.... de gauche à droite

et comme les autres cellules sont verrouillées... il faudrait que cela fonctionne comme avec la touche tab

donc gauche à droite puis la ligne en dessous de gauche à droite etc...

Tonthon

Bonjour,

Je n'y arrive pas, je crois que cela dépasse mes compétences.

ric

Re

Aucun souci, c'est une demande accessoire qui ne nuit pas au bon fonctionnement du tableur qui est opérationnel grâce à toi.

Excellente fin de journée

Tonthon

Rechercher des sujets similaires à "activesheet unprotect password"