Protection feuille excel

Résolu/Fermé
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - Modifié par julia Namor le 19/06/2014 à 08:13
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 20 juin 2014 à 09:56
Bonjour,


Je me permets d'ouvrir ce fil même s'il est en lien avec un autre résolu. Pardonnez-moi si j'ai mal fait.

J'ai voulu mettre une protection dans mes bases de données constituées grâce à ce formulaire https://www.cjoint.com/?3FswUwfAaOZ que via55 a eu la grande bienfaisance de m'offrir, mais voilà quand la base de donnée est protégée le formulaire n'arrive plus à y rentrer des données, ni à les retirer d'ailleurs.

J'aurais éventuellement deux « petites » demandes

1*) Est-ce que ce serait possible de rajouter une macro dans la feuille pour passer outre la protection et permettre par le formulaire de rajouter ou de supprimer des éléments dans la BDD ?
2) J'aimerai que dans la feuille BDD les colonnes NOM, Prénom, Matricule, Sexe, Date Naissance, Date d'entrée, Fonction, Affectation, Statut ne soient pas protégées.

Merci beaucoup de vous pencher sur mes demandes

Cordialement


A voir également:

8 réponses

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
19 juin 2014 à 09:30
Bonjour,

Envoi un petit message privé à Via55 (que je salue) avec le lien de cette discussion pour attirer son attention
il lui sera plus facile d'intervenir sur un fichier qu'il connait, à défaut d'une réponse de sa part on regardera plus tard
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
19 juin 2014 à 10:02
Ok Mike-31 , je lui ai envoyé un message privé

j'ai trouvé sur un forum qu'il fallait mettre
ActiveSheet.Unprotect ("mot de passe") en début de macro
puis mettre ActiveSheet.Protect ("mot de passe") en fin de macro.
Mais je ne sais pas sur quelle macro l'appliquer et ou dans la macro.

Bien cordialement
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
19 juin 2014 à 11:50
Re,

Par correction, attendons un peu le retour de Via55 et on voit plus tard
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
20 juin 2014 à 07:45
Bonjour à toutes et à tous

Je me (re) permets de vous relancer suite à mon souci concernant la protection de l'UF .
Via55 n'étant certainement pas disponible , je vous soumets à nouveau ma demande (ci dessus ).
Merci énormément de m'aider
0

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

Posez votre question
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
20 juin 2014 à 08:19
Bonjour,

j'ai trouvé sur un forum qu'il fallait mettre
ActiveSheet.Unprotect ("mot de passe") en début de macro
puis mettre ActiveSheet.Protect ("mot de passe") en fin de macro.
Mais je ne sais pas sur quelle macro l'appliquer et ou dans la macro.

Au début et à la fin de chaque macro écrivant sur la feuille, celles qui te génèrent le message d'erreur.

Sinon tu peux aussi faire ainsi :
Private Sub Workbook_Open()
    Sheets("Feuil1").Protect Password:="mot_de_passe", UserInterfaceOnly:=True
End Sub

A mettre dans ThisWorkbook.
Ta feuille est protégée pour les utilisateurs mais pas pour les macros. Et comme c'est dans Open tu ne peux pas oublier de le remettre.
Par contre je te déconseille de mettre un mot de passe. Celui qui veut pourra le faire sauter, et si tu l'oublies tu seras embêtée.

eric
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
20 juin 2014 à 08:48
Bonjour
Merci eric
j'ai mis donc

Private Sub Workbook_Open()
Sheets("Feuil1").Protect Password:="mot_de_passe", UserInterfaceOnly:=True
End Sub

Mais à l'ouverture il me marque "nom ambigu détecté"

Je devrais pas mettre quelque chose dans la parenthése ? Private Sub Workbook_Open(???????)

Cordialement
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
20 juin 2014 à 08:58
Oup's autant pour moi

j'avais copié deux fois la syntaxe Private Sub Workbook_Open()
ça marche

Les feuilles sont protégées sauf pour les macros .

Par contre est que c'est possible de déprotéger en permanence quelques colonnes dans la BDD?
Merci
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
20 juin 2014 à 09:31
Sélectionne tes colonnes, clic-droit dessus, 'format de cellule / protection'
eric
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
20 juin 2014 à 09:56
Merci eric
j'ai honte
c'était pourtant bien évident;
en tout cas merci d'avoir réglé mon probléme
Bien cordialement
0