Cellules non cliquables

Bonjour,

J'ai un fichier avec plusieurs feuilles. Lors de l'ouverture, le login de l'utilisateur définit ce qu'il verra: il y a en gros 3 cas de figure, l'administrateur verra toutes les feuilles, les utilisateurs avec certains logins ne verront qu'une feuille portant leurs initiales, et tous les autres ne verront qu'une autre feuille leur disant qu'ils n'ont pas accès au fichier (ils ne peuvent cliquer que sur Ok, ce qui fait quitter le fichier).

Cette partie-là fonctionne bien. Mon problème arrive ensuite: toutes les feuilles des utilisateurs ont la même structure: une feuille avec des cellules verrouillées, et quelques cellules non verrouillées, où l'utilisateur a accès à des menus déroulants. Ma question: comment faire pour que, quel que soit l'utilisateur et les feuilles auxquels il aura acccès, il ne puisse cliquer que sur les cellules non verrouillées? Sur toutes les autres, il ne doit pas pouvoir cliquer. J'ai compris que cela doit passer par les instructions Locked, VeryHidden et Protect, mais je n'arrive pas à les utiliser correctement!

Merci de votre aide!

Bonjour
Avec l'enregistreur de macro
voici ce que nous obtenons en protégeant une feuille.

Code:

---

1 2 3 4 5

Sub Macro1() Sheets("Feuil1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells End Sub

---

Sur cette base tu dois pouvoir résoudre to probléme.

Merci a_diard,

J'ai réussi à trouver ce qui ne fonctionnait pas dans ma macro. La partie que j'ai décrite est résolue.

Mais j'ai un autre problème avec la fermeture, plus exactement avec les personnes n'ayant pas l'autorisation d'ouvrir le fichier. Excel les repère correctement en fonction du login, les prévient qu'ils n'ont pas accès au fichier, mais lorsqu'ils ont cliqué sur Ok, ils reçoivent tout de même un message leur demandant s'ils veulent enregistrer les modifications (message qu'ils ne devraient pas avoir).

J'ai essayé diverses choses, notamment
Application.DisplayAlerts = False, ou
ThisWorkbook.Close SaveChanges:=True,
mais rien n'y fait, Excel pose toujours la question!

J'avais demandé qu'Excel vérifie si plusieurs fichiers Excel sont ouverts (dans ce cas, il ferme le fichier). Si c'est le seul, il quitte.

J'ai même essayé de mettre dans tous les cas ThisWorkbook.Close, associé à l'événement Before.Close, l'embranchement 1 ou plusieurs fichierts ouvert étant fait ici. Mais rien ne change, j'ai toujours le message "Voulez-vous enregistrer les modifications?"

Si quelqu'un a une idée, merci d'avance!

Bonjour,
Il faut essayer

Code:

---

ThisWorkbook.Saved = True

---

.
Bonne continuation.