Feuille et mot de passe
Résolu/Fermé
A voir également:
- Feuille et mot de passe
- Piratage facebook changer mot de passe - Guide
- Voir mot de passe wifi android - Guide
- Identifiant et mot de passe - Guide
- Mot de passe administrateur - Guide
- Mettre un mot de passe sur un dossier - Guide
44 réponses
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 11:36
2 nov. 2010 à 11:36
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
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
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
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
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 13:20
2 nov. 2010 à 13:20
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 13:44
2 nov. 2010 à 13:44
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
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
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 14:01
2 nov. 2010 à 14:01
Re-,
Je n'ai pas dit cela...
Peux-tu mettre le code de ta macro ici?
Je n'ai pas dit cela...
Peux-tu mettre le code de ta macro ici?
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
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
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 14:09
2 nov. 2010 à 14:09
Re-,
Rajoute cette ligne en toute fin de la procédure "Protection_Cellule_Couleur", juste avant le End Sub :
bon courage
Rajoute cette ligne en toute fin de la procédure "Protection_Cellule_Couleur", juste avant le End Sub :
ActiveSheet.EnableSelection = xlUnlockedCells
bon courage
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
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
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 14:32
2 nov. 2010 à 14:32
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...
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...
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
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
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 14:45
2 nov. 2010 à 14:45
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 :
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>
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 15:14
2 nov. 2010 à 15:14
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à....
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à....
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
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
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
2 nov. 2010 à 15:36
2 nov. 2010 à 15:36
Salut,
C'est bien le fichier sur lequel j'ai écris le code VBA !!!
quelles sont ces cellules et que veux tu faire exactement !
C'est bien le fichier sur lequel j'ai écris le code VBA !!!
quelles sont ces cellules et que veux tu faire exactement !
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
Modifié par cousinhub29 le 2/11/2010 à 15:44
Modifié par cousinhub29 le 2/11/2010 à 15:44
re-,
tout d'abord, quand tu ouvres ton fichier, arrête la sub :
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"
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"
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 2/11/2010 à 15:52
Modifié par Mike-31 le 2/11/2010 à 15:52
Salut Cousinhub,
Pour t'expliquer le code, les cellules se mettent en mauve et se vérrouillent après deux saises dans la cellule et la cellule B40 déclenche un shape clignotante au dessus d'une certaine valeur.
Je n'ai pas lu toutes les explications de la discussion, mais je ne vois pas de cellules protégées avec un mot de passe à moins que les cellules mauve une fois vérrouillées ne doivent pas afficher la boites de dialogue avertissant de la protection, si c'est cela une demi ligne à rajouter dans la ligne protection
Pour t'expliquer le code, les cellules se mettent en mauve et se vérrouillent après deux saises dans la cellule et la cellule B40 déclenche un shape clignotante au dessus d'une certaine valeur.
Je n'ai pas lu toutes les explications de la discussion, mais je ne vois pas de cellules protégées avec un mot de passe à moins que les cellules mauve une fois vérrouillées ne doivent pas afficher la boites de dialogue avertissant de la protection, si c'est cela une demi ligne à rajouter dans la ligne protection
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 15:58
2 nov. 2010 à 15:58
Bonjour, Mike
J'avais compris le code, mais il lui manque de toute façon le déroulement de son code de protection....
Je ne vois nulle part un Call Protection
Et pour la demi ligne, celle que je lui ai indiqué fonctionne.
Bonne soirée (moi, je vais me coucher, il est déjà 02H00 du mat' ici....
J'avais compris le code, mais il lui manque de toute façon le déroulement de son code de protection....
Je ne vois nulle part un Call Protection
Et pour la demi ligne, celle que je lui ai indiqué fonctionne.
Bonne soirée (moi, je vais me coucher, il est déjà 02H00 du mat' ici....
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
2 nov. 2010 à 15:45
2 nov. 2010 à 15:45
Euh, erreur, c'est la procédure Stopclign, qu'il faut arrêter....
re
là, je suis dans la galère
là, je suis dans la galère
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
2 nov. 2010 à 17:08
2 nov. 2010 à 17:08
Re,
un Call "nom de la macro" est un appel à un code ou pour rester simple à une macro.
que se passe t il sur ce fichier,
à l'origine tu voulais la cellule B40 clignotante
ensuite tu souhaitais verrouiller les cellules après deux modifications
et maintenant que veux tu ajouter ou modifier
un Call "nom de la macro" est un appel à un code ou pour rester simple à une macro.
que se passe t il sur ce fichier,
à l'origine tu voulais la cellule B40 clignotante
ensuite tu souhaitais verrouiller les cellules après deux modifications
et maintenant que veux tu ajouter ou modifier
