Discussion :

[lysere]

Bonjour à tous et à toutes.
Mon problème est le suivant :
J'ai un fichier qui fait appel à des cellules automatisées par des formules.
J'ai crée une petite macro qui a pour objectif d'accompagner des utilisateurs néophytes d'excel dans la saisie d'un série de données.
Celle-ci fonctionne parfaitement.
Mais... sinon je ne posterais pas, il faut bien un mais quelque part.

Ce fichier fait appel à de nombreuses données personnelles et à des fichiers agents. Les agents n'ont pas à connaître les données personnelles des autres agents celles-ci étant totalement confidentielles.
J'ai donc masqué les feuilles contenant les données servant aux calculs et aux insertions de données, j'ai verrouillé tout le bazar en lecture et en écriture pour ne laisser accessible qu'une feuille intitulée saisie ou les agents peuvent saisir les informations qui les concernent, vérifier les données saisies, éventuellement les corriger.

Or mon soucis, c'est que maintenant que les éléments sont verrouillés, forcément, ma macro ne s'execute plus... logique me direz-vous.
Je suis donc à la recherche d'une ligne d'instructions me permettant de déprotéger ma feuille sur laquelle il doit y avoir les modifications, procéder à mes modifications, puis reverrouiller la feuille avec le mot de passe. Ceci afin que la direction puisse accéder aux données finales avec le même mot de passe.

J'ai bien trouvé ceci :

Code :

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

1
2
3
4
5
6
7
 
ActiveSheet.Unprotect
 
ici l'exécution de la macro etc.
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Or cette manipulation ne fonctionne bien évidemment que quand la feuille est verrouillée initialement sans mot de passe ce qui me pose des problèmes
Avez-vous une idée quant à la manière d'insérer le mot de passe quelque part ? J'ai probablement loupé quelque chose...

[Philippe Tulliez]

Bonjour,
Si tu souhaites que ton code VBA fonctionne malgré la protection de la feuille, il te faut mettre la valeur True à la propriété userinterfaceonly.
Exemple d'une écriture sur la cellule A1 de la feuille Feuil1 après protection de la feuille

Code :

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

1
2
3
4
5
6
Sub t()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Feuil1")
  sht.Protect Password:="toto", userinterfaceonly:=True
  sht.Range("A1") = "Coucou"
End Sub

Tu peux aussi rendre la feuille invisible sans que l'utilisateur ne puisse la visualiser dans la liste des feuilles à afficher quand elles sont masquées.

Code :

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

sht.Visible =xlSheetVeryHidden

[lysere]

merci infiniment, cela fonctionne parfaitement et m'ôte une sacrée épine du flanc