Discussion :

[BEDEL7]

Bonjour,
J'essaye de mettre en place un programme permettant de gérer les repas au sein de ma société.
Pour transférer certaines infos d'une feuille à l'autre j'ai utiliser un code VBA. Cependant lorsque je protège mon fichier de façon "simple" c'est à dire les onglets de gestion d'Excel mon code ne fonctionne plus.
Je dois donc me tourner vers un code VBA mais, pour l'instant, sans succès...
Je souhaite mettre en place 3 types de protection pour l'ensemble de mon classeur:
1. Lecture seule lors de l'ouverture de mon fichier par n'importe (aucune modification autorisée et formules masquées)
2. Code d'accès "mdp1" pour pouvoir insérer des données dans les cellules qui ne sont pas verrouillées et masquer les formules
3. Code d'accès "admin1" pour avoir accès à l'ensemble des données en tant qu'utilisateur.
Quelqu'un peut-il m'aider?

Je vous en remercie d'avance

[piotr76]

Bonsoir

D'abord, il n'y aucune raison que du VBA ne fonctionne plus dans un classeur (ou une feuille) protégé.
Sauf si on essaye de lui faire écrire sur une cellule verrouillée et qu'on a pas mis de gestion d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

Le fonctionnement en pas à pas est là pour ça (F8)

Une fois ce problème résolu, le verrouillage sera + simple surtout pour les deux premiers niveaux (Mot de passe en lecture et/ou écriture à l'ouverture du classeur)
Pour l'administrateur, une feuille protégée avec un mot de passe différend devrait suffire. Et ne pas oublier de protéger le projet VBA, sinon, tout ça ne sert à rien.
Pour faire plus compliqué (affichage, masquage de pages), il y a l'enregistreur de macro.

Cordialement

[vinc_bilb]

Bonjour,

Sans répondre directement à la question, je partage quelques vues sur des pbs similaires:

1. Jouer avec la protection des feuilles est assez risqué, dans la mesure où il faut bien penser à tous les paramètres (autorisez-vous ou non un filtre, l'insertion d'un hyperlink) et des cellules .....
2. Idem pour le workbook ( + le code VBA)
3.

Cependant lorsque je protège mon fichier de façon "simple" c'est à dire les onglets de gestion d'Excel mon code ne fonctionne plus.
Je dois donc me tourner vers un code VBA mais, pour l'instant, sans succès...

=> les cellules sont elles bien déprotégées?
4. Vous pouvez facilement tester la personne qui ouvre le classeur pour associer les privilèges par (VBA) , du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
   If Ucase(Application.UserName) = "TITI" Then ....
 
End Sub

P

Sur une problématique similaire, après quelques tatonnements ou errements, je suis arrivé à la conclusion qu'un autre modèle était bien plus sur:
- Tout ce qui est entrées utililsateurs est à mettre dans un fichier non protégé (et parfois en mode 'partagé' si il n'y pas de risques de téléscopage de champs
- Vous faites votre traitement VBA sur un fichier dédié, qui vient se servir dans ce fichier data

Bonne journée
Vincent