Protection base de données (Excel 2013)
Résolu/Fermé
JL00700
Messages postés
90
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
1 novembre 2019
-
12 févr. 2018 à 19:58
jl00700 - 15 févr. 2018 à 08:20
jl00700 - 15 févr. 2018 à 08:20
A voir également:
- Protection base de données (Excel 2013)
- Formules excel de base - Guide
- Liste déroulante excel - Guide
- Excel 2013 gratuit - Télécharger - Tableur
- Word 2013 free download - Télécharger - Traitement de texte
- Powerpoint 2013 - Télécharger - Présentation
5 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 févr. 2018 à 20:28
12 févr. 2018 à 20:28
Bonsoir JL
SI le mot de passe t'est demandé c'est que tu ne l'as pas mis dans la macro sans doute
Ta ligne de macro pour protéger la feuille doit être du style :
Sheets("nomdetafeuille").Protect "tonmotdepasse"
Idem pour la ligne Unprotect
Cdlmnt
Via
SI le mot de passe t'est demandé c'est que tu ne l'as pas mis dans la macro sans doute
Ta ligne de macro pour protéger la feuille doit être du style :
Sheets("nomdetafeuille").Protect "tonmotdepasse"
Idem pour la ligne Unprotect
Cdlmnt
Via
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
13 févr. 2018 à 00:34
13 févr. 2018 à 00:34
Re,
Il faut si tu as comme mdp toto :
ActiveSheet.Unprotect "toto"
et
ActiveSheet.Protect Password="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
Cdlmnt
Via
Il faut si tu as comme mdp toto :
ActiveSheet.Unprotect "toto"
et
ActiveSheet.Protect Password="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
Cdlmnt
Via
Bonjour Via,
J'ai bien transposé les consignes... ERREUR mot de pass invalide.
Je crains que mes manips précédentes aient occasionné des incohérences qq part et mon mot de pass
N’est plus reconnu.
Je vais donc recréer ma feuille et réessayer.
Je te tiens au courant dans la journée de demain.
Encore merci de ta patience ainsi que de ton aide.
Cordialement
Jean
J'ai bien transposé les consignes... ERREUR mot de pass invalide.
Je crains que mes manips précédentes aient occasionné des incohérences qq part et mon mot de pass
N’est plus reconnu.
Je vais donc recréer ma feuille et réessayer.
Je te tiens au courant dans la journée de demain.
Encore merci de ta patience ainsi que de ton aide.
Cordialement
Jean
PHILOU10120
Messages postés
6368
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
22 avril 2024
796
13 févr. 2018 à 10:10
13 févr. 2018 à 10:10
Bonjour Via55 et JL00700
l'écriture ne serait pas celle-ci
ActiveSheet.Unprotect Password:= "toto"
Je ne suis pas spécialiste des macro, mais j'ai regardé une qui fonctionne et il y a :=
si cela peu aider
l'écriture ne serait pas celle-ci
ActiveSheet.Unprotect Password:= "toto"
Je ne suis pas spécialiste des macro, mais j'ai regardé une qui fonctionne et il y a :=
si cela peu aider
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
13 févr. 2018 à 10:38
13 févr. 2018 à 10:38
Bonjour Philou ☺
Merci de rectifier effectivement j'ai zappé les 2 points à la frappe vu l'heure tardive sans doute !
C'est bien ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True qu'il faut écrire
Par contre dans la ligne Unprotect comme il n'y a pas de critères de validation qui suivent Password: est inutile et on peut écrire simplement ActiveSheet.Unprotect "toto"
Merci de rectifier effectivement j'ai zappé les 2 points à la frappe vu l'heure tardive sans doute !
C'est bien ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True qu'il faut écrire
Par contre dans la ligne Unprotect comme il n'y a pas de critères de validation qui suivent Password: est inutile et on peut écrire simplement ActiveSheet.Unprotect "toto"
Re Bj Via55, Philou
Effectivement il y a un problème...
La première exécution de la macro fonctionne et l'opération est bien créée dans la Base.
Lors de la seconde exécution de la macro, plantage erreur1004.
Lorsque je regarde la macro, la ligne apparaît ainsi :
ActiveSheet.Unprotect "toto" (surlignée en jaune avec une flèche en regard.
J'ai l'impression que la première exécution n'a pas recréé le Mdp correctement car si je veux ôter la protection manuellement en passant par l'onglet Révision, même là mon Mdp n'est pas reconnu !!!
J'ai reconstitué 2 fois ma Base et ma macro (j'ai même poussé la pertinence à mettre "toto" en mot de pass...) rien à faire !
Bien entendu, j'ai pris en compte la remarque de Philou concernant les :=
Si vous avez une idée... je suis preneur.
Merci par avance
Amicalement
Jean
Effectivement il y a un problème...
La première exécution de la macro fonctionne et l'opération est bien créée dans la Base.
Lors de la seconde exécution de la macro, plantage erreur1004.
Lorsque je regarde la macro, la ligne apparaît ainsi :
ActiveSheet.Unprotect "toto" (surlignée en jaune avec une flèche en regard.
J'ai l'impression que la première exécution n'a pas recréé le Mdp correctement car si je veux ôter la protection manuellement en passant par l'onglet Révision, même là mon Mdp n'est pas reconnu !!!
J'ai reconstitué 2 fois ma Base et ma macro (j'ai même poussé la pertinence à mettre "toto" en mot de pass...) rien à faire !
Bien entendu, j'ai pris en compte la remarque de Philou concernant les :=
Si vous avez une idée... je suis preneur.
Merci par avance
Amicalement
Jean
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
13 févr. 2018 à 15:20
13 févr. 2018 à 15:20
Re,
Tu as du faire une erreur dans l'écriture du mdp dans la ligne avec Protect mais sans ton fichier on ne peut pas savoir
Petit exemple qui fonctionne :
https://mon-partage.fr/f/zrLET3uF/
Cdlmnt
Tu as du faire une erreur dans l'écriture du mdp dans la ligne avec Protect mais sans ton fichier on ne peut pas savoir
Petit exemple qui fonctionne :
https://mon-partage.fr/f/zrLET3uF/
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
PHILOU10120
Messages postés
6368
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
22 avril 2024
796
13 févr. 2018 à 20:47
13 févr. 2018 à 20:47
Bonjour JL00700
Un fichier avec une macro pour mettre la protection
et une pour ôter la protection avec contrôle et la possibilité de 3 essais
https://www.cjoint.com/c/HBntUiKdCZx
le mot de passe est "toto"
C'est un essai je répète je ne suis pas spécialiste des macros avec une j'en ai fais une autre
Un fichier avec une macro pour mettre la protection
et une pour ôter la protection avec contrôle et la possibilité de 3 essais
https://www.cjoint.com/c/HBntUiKdCZx
le mot de passe est "toto"
C'est un essai je répète je ne suis pas spécialiste des macros avec une j'en ai fais une autre
12 févr. 2018 à 20:46
Voici ce que j'ai en début :
Sheets("Base").Select
ActiveSheet.Unprotect
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("2:2").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Puis en fin :
Sheets("Base").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("CréOp").Select
End Sub
Espérant apporter des éléments !!!!
Encore merci de votre attention