feuille et mot de passe Résolu

Question

Bonjour, 

j'ai une feuille ou j'ai mis un mot de passe dans certaines cellules et je voudrais que quand on clique dans ces cellules la demande du mot de passe n'apparaisse pas

est ce que cela est possible

Éric


Configuration: Windows XP / Firefox 3.5.15

cousinhub29 · Answer

Bonjour,

Si tu as mis un mot de passe, tu as donc protégé ta feuille...

Lors de la protection, désactive l'option "Sélectionner les cellules verrouillées", ainsi tu ne pourras plus les sélectionner....(donc plus de message d'alerte)

Bonne journée

eric2027 · Answer

re

j'ai fait comme tu m'as dis, cela fonctionne, sauf que si je n'enregistre pas ma feuille, et la réouvre, la case "Sélectionner les cellules verrouillées" se coche toute seule

bizarre non

Éric2027

cousinhub29 · Answer

Re-,

Je comprends :

"Lorsque tu fermes le classeur sans enregistrer"?

Bah, oui, c'est normal qu'il revienne à l'état initial....Comme tu n'as pas enregistré la modification, il ré-ouvre comme avant...

Protège comme je te l'ai dit, enregistre, et ensuite, tu peux continuer comme tu veux

bonne journée

eric2027 · Answer

re 

ben, c ce que j'ai fait, mais par exemple, je fais ce qu'il faut, c ok mais j'ai essayé de le faire sans enregistrer le doc parce que j'avais fait une erreur et là quand je ré-ouvre ma feuille et ben c'est revenu comme à la base

je comprends pas tout

cousinhub29 · Answer

Re-,

Ouvre ton classeur, Protège ta feuille, en enlevant l'option "Sélectionner les cellules verrouillées", Enregistre le classeur....

A partir de maintenant, tu peux faire ce que tu veux, comme il a été enregistré, il gardera en mémoire cette option (à moins que tu n'aies une macro à l'intérieur, ou que tu ne modifies toi-même cette option...)

bon courage

eric2027 · Answer

re 

effectivement j'ai une macro, donc d'après toi c'est impossible à faire

cousinhub29 · Answer

Re-,

Je n'ai pas dit cela...

Peux-tu mettre le code de ta macro ici?

eric2027 · Answer

re 

Dim Temps As Variant

Public Sub Clign()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
    If [B40] >= 11 Then
    With ThisWorkbook
        'Texte clignotant
      With .ActiveSheet
        .Shapes("Alerte").Visible = Not .Shapes("Alerte").Visible
        End With
        With .ActiveSheet.[B40]
            [B40].Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2)
            [B40].Font.FontStyle = "Gras"
            [B40].Font.Size = 12
        End With
        'Fond clignotant
        With .ActiveSheet.[B40]
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 1, 2, 1)
        End With
        End With
        End If
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    On Error GoTo 0
    'Cache l'alerte
    With ThisWorkbook
        'Fond
        .ActiveSheet.[B40].Interior.ColorIndex = xlNone
        'Texte
        .ActiveSheet.[B40].Font.ColorIndex = 0
        [B40].Font.FontStyle = "Normal"
        [B40].Font.Size = 10
    End With
    ActiveSheet.Shapes("Alerte").Visible = False
End Sub

Sub Protection_Cellule_Couleur()
    Dim cel As Range
    ActiveSheet.Unprotect Password:="leg503"
    For Each cel In [B9:B39,C9:C39,D9:D39,E9:E39,F9:F39,G9:G39,h9:h39]
    If cel.Interior.ColorIndex = 38 Then
    cel.Locked = True
    End If
    Next
    ActiveSheet.Protect Password:="leg503", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
End Sub

cousinhub29 · Answer

Re-,

Rajoute cette ligne en toute fin de la procédure "Protection_Cellule_Couleur", juste avant le End Sub :

ActiveSheet.EnableSelection = xlUnlockedCells

bon courage

eric2027 · Answer

re

c ok sauf quand on revient sur la feuille et que l'on clique sur la cellule, il me demande le mot de passe

cousinhub29 · Answer

Re-,

Euh, dans ton code, tu ne verrouilles que les cellules de couleur 38 (soit de couleur mauve), donc si tu as bien déroulé ton code, ces cellules sont verrouillées, et tu ne peux plus les sélectionner...

eric2027 · Answer

re 

je suis d'accord, mais quand tu enregistre la feuille et que l'on revient dessus la cellule 38 mauve, là, il me demande le mot de passe, 

si c'est possible, n'existe t-il pas un morceau de code pour que ce message ne revienne pas

cousinhub29 · Answer

Re,

Peux-tu joindre ton fichier, sans données confidentielles (tu effaces même toutes les données), mais en gardant tous les codes?

Pour joindre ton fichier, utilise le site :

http://www.cijoint.fr/</code>

eric2027 · Answer

voila le lien


http://www.cijoint.fr/cjlink.php?file=cj201011/cijgRm8rEP.doc

cousinhub29 · Answer

Re-,

J'aurai préféré le fichier excel, plutôt qu'un fichier Word....

Pour ainsi, essayer de reproduire ce qui se passe...


J'ai essayé le code, et si la feuille est protégée, je ne peux pas sélectionner les cellules verrouillées....

Je ne comprends plus, là....

eric2027 · Answer

re 

je te renvois le doc exel sur cjoint, le mot de passe est "leg503" pour les codes c le même mot de passe pour la macro

https://www.cjoint.com/?0lcpBLoTY8s

Mike-31 · Answer

Salut,

C'est bien le fichier sur lequel j'ai écris le code VBA !!!

quelles sont ces cellules et que veux tu faire exactement !

cousinhub29 · Answer

re-, 

tout d'abord, quand tu ouvres ton fichier, arrête la sub : 

Public Sub Clign()

Pour ce faire, tu cliques n'importe où dans la procédure, tu appuies sur F8 (le titre se met en jaune, tu es en mode pas-à-pas) 

Puis appuie sur F5, pour dérouler le code... 

ensuite, déroule ton code de protection (de la même façon) 

Tu verras, ensuite, tu ne pourras plus sélectionner les cellules "mauves"

cousinhub29 · Answer

Euh, erreur, c'est la procédure Stopclign, qu'il faut arrêter....

eric2027 · Answer

re

là, je suis dans la galère

eric2027 · Answer

re

j'aimerais que quand on ouvre la feuille ou il y a des cellules en mauve et que l'on essaye de les modifier, la demande de' mot de passe' n'apparaisse pas

merci 

Éric2027

Mike-31 · Answer

Re,

Avec la ligne que t'a fait rajouter Cousinhub, les cellules mauve une fois vérrouillées ne sont plus accéssible donc plus de fenêtre d'avertissement.

ActiveSheet.EnableSelection = xlUnlockedCells

Normalement tu ne devrais plus avoir de problème.

Les codes ont été fait en plusieurs fois, il faudrait peut être revoir la synchronisation, surtout au niveau du clignotement avec un temporisateur afin qu'il s'arrête après quelques secondes ou lorsque tu te déplaces sur la feuille.

eric2027 · Answer

re

oui cela fonctionne avec le morceau de code mais quand tu enregistres et que tu fermes le fichier et que tu ré-ouvre, la cellule est active et te demande le mot de passe quand tu cliques dessus

Éric

cousinhub29 · Answer

Re-,

Euh, Eric, à quel moment, tu protèges tes cellules mauves?

On n'en voit aucune trace, dans ton fichier....

eric2027 · Answer

re 

elles sont protégées par la macro, je t'envois la macro


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call StopClign
End Sub
Private Sub Workbook_Open()
Call StopClign
Call Clign
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not Intersect([B9:B39,C9:C39,D9:D39,E9:E39,F9:F39,G9:G39,h9:h39], Target) Is Nothing Then
    Target.Offset(0, 9) = Target.Offset(0, 9) + 1
    If Target.Offset(0, 9) >= 2 Then
    Target.Interior.ColorIndex = 38
    If Target = "" Then
    Target.Offset(0, 9) = ""
    Target.Interior.ColorIndex = xlNone
    End If
    End If
    End If
    Call Protection_Cellule_Couleur
    Call StopClign
    Call Clign
ActiveWorkbook.Save
Application.AskToUpdateLinks = False
End Sub

j'ai essayé de mettre ton morceaux de code mais ça fonctionne que une fois, je m'explique, sur mes cellules, au bout du 2ème changement de données, ces dernières se mettent en mauve, avec ton morceau de code, quand je veux rechanger une fois, le mot de passe n'est pas demandé, mais quand j'enregistre  et que je ré-ouvre la feuille et que je ré-appui sur les cellules en mauves, là on me demande le mot de passe

là est mon problème

Éric

cousinhub29 · Answer

Bonjour,

Bon, je crois qu'on ne va pas s'en sortir....

Tout d'abord, si tu veux un avis personnel, le clignotement, pour moi, c'est un peu du superflu....

ensuite, le code que tu viens de joindre est différent du code que tu as joint hier....

C'est toi qui l'as modifié?

Et enfin, je pense que si tu exprimais exactement ton besoin, en fonction de ton fichier, et qu'on reprenne tout à 0, on aurait plus de chances d'arriver à quelque chose, car comme l'a si bien souligné Mike (qu'il a effacé depuis....), c'est un peu un melting pot de plusieurs codes....

N'étant pas au début de la création de l'origine de la naissance du projet, je vais donc laisser la main....

Mon seul avis reste mon avis personnel cité supra...

Bonne chance

eric2027 · Answer

re

il y avait 2 codes, et hier j'ai complétement zapper sur le deuxième, les 2 font parti de la même macro

merci  de t'être investi avec autant d'énergie 

Éric

Mike-31 · Answer

Re,

Sur le fichier exemple initial tout fonctionnait parfaitement, la seule ligne à ajouter au code était la ligne écrite par Cousinhub pour éviter la sélection des cellules verrouillées.

Sur le fichier que tu renvois, l'ensemble du fichier se verrouille dès lors que dans une cellule tu apportes une modif ce  qui n'est pas normal.

Si on reprend la discussion initiale, dès les premier échanges je te demandais ton fichier que tu as eu du mal à fournir, je t'ai produit que des fichiers exemples sur lequel s'ajoutait de nouvelles demandes.
Je n'ai pas repris cette discussion qui à couvert 4 pages sur le forum, je voudrais simplement dire que nous sommes bénévoles et que nous donnons sans compter mais des explications précises nous éviteraient de perdre notre temps et surtout notre efficacité.
Pour ton fichier je pense qu'il faut revoir l'ensemble du code
 --
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

salut Mike

je comprends la situation dans laquelle je vous ai mis, moi aussi, je suis comme vous, étant un ancien photograveur, qui me suis spécialisé dans le domaine de la couleur, je donne des conseils sur la toile, et c'est vrai,
j'ai aussi les mêmes difficultés à comprendre ce que désire les internautes, toutes mes excuses à vous 2

en ce qui concerne la macro, tout roule sauf ce petit problème qui m'enquiquine, mais si on ne peut pas faire autrement, tant pis, et si en plus tu dois tout reprendre depuis le début, cela va être une galère pour toi j'imagine, mais si tu veux le faire, je t'en serai très reconnaissant

Éric

Mike-31 · Answer

Re,

Comme tout forum de renom on ne laisse pas tomber une discussion pertinente. Je veux bien la terminer, et je viens de relire les deux discussions,
un code VBA ne se manipule pas comme une formule, il est écrit avec des paramètres figés alors que les formules si tu ajoutes ou inversement supprimes une ligne ou colonne la formule prend automatiquement en compte ces changements.

Dans le tableau initial, il y avait 42 lignes sur 11 colonnes, sur le dernier 36 lignes sur 10 colonnes. Dans le code VBA tu as mélangé les codes, exemple pour la mise en couleur des cellules tu as collé un des tout premier codes qui concernait que la colonne B.

Je te propose que tu nous fournisses un fichier définitif sur lequel il n'y aura aucun changement en nombre de ligne ni de colonne, a joindre sur la discussion avec ce lien

http://www.cijoint.fr/

eric2027 · Answer

salut Mike

encore merci pour ton investissement, le doc est sur cjoint, avec dedans ta macro, 



http://www.cijoint.fr/cjlink.php?file=cj201011/cij0RyC7l9.xls

Éric

cousinhub29 · Answer

Bonsoir....

Comme tout forum de renom on ne laisse pas tomber une discussion pertinente.

Bien pris.....

Mike-31 · Answer

Salut,

Je me suis absenté du forum quelques jours, récupère ton fichier voir s'il correspond à tes attentes.
j'ai neutralisé l'enregistrement automatique pour te permettre de tester plus facilement le fichier en le fermant sans enregistrer.

Au départ il était question de soumettre les colonnes B à J au vérrouillage après deux saisies et dans ton dernier fichier il est question d'une plage en jaune de B à H !!!

https://www.cjoint.com/?0lguOkiSZwd

eric2027 · Answer

salut Mike

oui, j'ai changé parce que à la final, je n'avais plus besoin de I,J, mais si un jour j'en ai besoin, je pourrais toujours les rajouter sur la macro.

j'ai testé le fichier, c'est ok, il faudrait rajouter l'enregistrement automatique et est ce que tu peux neutraliser la demande de mot de passe quand on veut changer les valeurs des cellules ( qu'il n'apparaisse pas) et que quand on n'enregistre pas le fichier et que tu le ré-ouvre, les cellules restent bloquées.

ce serait génial si c'était possible.

Éric

Mike-31 · Answer

Re,

Si on active l'enregistrement automatique, cela veut dire qu'après chaque saisie le fichier est enregistré. A partir de ce moment il est impossible de faire marche arrière même si on le ferme pour le ré ouvrir il s'ouvrira au dernier enregistrement.
Impossible n'est pas de terme exact mais le code est lourd
Si tu veux pouvoir revenir à la situation précédente il convient d'éviter un enregistrement automatique.

Par contre je ne comprends pas
tu peux neutraliser la demande de mot de passe quand on veut changer les valeurs des cellules 
tu ne peux pas avoir de boite de dialogue sur les cellules protégées parce qu'elles sont inaccessibles après la mise en couleur mauve ou alors on ne parle pas de la même boite de dialogue. explique comment cette boite de dialogue apparait

eric2027 · Answer

re

je ne veux pas revenir à la situation précédente, c'est pour ça que ta macro est hyper importante, il faut que quand je ré-ouvre le fichier, les données restent telles quelles étaient même si  on n'enregistre pas le fichier, pour cela, ta macro est nickel 

la boite de dialogue apparait au bout de la 2ème manipulation de la cellule, ça dit 'ôter la protection de la feuille' je travaille sur excel 2002, c'est peut être pour cela que j'ai ce message ?

je ne veux pas que cette fenêtre s'ouvre, de plus quand je ré-ouvre la feuille, il faudrait que les cellules mauves restent bloquées, ce qui n'était pas le cas avec <gras>cousinhub29, il m'avais fait un bout de code mais quand je ré-ouvrais mon fichier, la cellule était active, et ça me demandait,'ôter la protection de la feuille'  il faudrait qu'elle reste bloquée sans me demander 'ôter la protection de la feuille'

Éric

Mike-31 · Answer

Re,

Le problème ne vient pas du code que ta donné Cousinhub, pas plus que du mien mais certainement de ta version Excel, 2002 si j'ai bonne mémoire était une version intégré de Windows 2002.
les codes que nous t'avons donné fonctionnent parfaitement sur la version 2003 ainsi que les versions plus récentes.
je vais essayer de tester et d'adapter sur une version antérieure

eric2027 · Answer

salut Mike

c'est super sympa de faire ce que tu fais, c'est bien ce qui me semblait  au sujet d'excel

Éric

Mike-31 · Answer

Re,

J'ai allégé et revu le code regarde ce que ça donne avec ta version Excel

https://www.cjoint.com/?0ljqqGRavEw

eric2027 · Answer

re 

c ok, mais cela ne s'enregistre plus à la base, comme la dernière fois, tu sais quand je rentrais une données dans une cellule ça s'enregistrait tout de suite même si on n'enregistrait pas le fichier, on le ré-ouvrait et les données étaient toujours là

tu peux me remettre ce morceau de code s'il te plait

Éric

Mike-31 · Answer

Re,

Voilà

https://www.cjoint.com/?0ljxSzfxGYj

eric2027 · Answer

salut Mike

tout est parfait, j'ai même rajouté le bout de code que tu m'avais fourni pour que la demande de mot de passe n'apparaisse pas et cela fonctionne à merveille

encore 1000 merci à toi et au site pour avoir des personnes comme toi qui vous investissez à 100% pour les autres

la solidarité, une des chose de la vie qui reste belle

Éric

Mike-31 · Answer

Salut,

J'e mets le statut de la discussion en résolu,

à une prochaine fois 
Cordialement

eric2027 · Answer

re 

ok, il faut que les autres internautes en profitent aussi, à une prochaine avec plaisir

et merci encore

Éric

Feuille et mot de passe

44 réponses

Discussions similaires

Newsletters