Une msgBox lorsque le fichier est en lecture seule..

Bonjour,

je souhaite afficher un message sous Excel lorsque l'utilisateur ouvre un fichier en lecture seule.

Sous word c'est tres simple, il suffit d'implementer l'evenement Open du modèle normal.dot

Code:

---

1 2 3 4 5

Private Sub Document_Open() If ReadOnly Then MsgBox "Attention, le document est en lecture seule!" End If End Sub

---

sous Excel, je n'arrive pas à faire la même chose car il n'existe pas de modèle comme sous Word. J'ai créé un *.xla avec le code suivant

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() If ActiveWorkbook.ReadOnly Then MsgBox "Attention, le document est en lecture seule!" End If End Sub

---

mais qui ne fonctionne pas car ActiveWorkbook n'a pas de valeur (je suppose qu'a l'initilisation Excel charge les macros complémentaires avant le document à ouvrir)

Comment pourrais-je faire?

Bonsoir

Code:

---

ReadOnly

---

est une propriété de ThisWorkbook. Il faut donc préciser l'objet pour utiliser sa propriété

Code:

---

1 2 3 4

Private Sub Workbook_Open() If Me.ReadOnly Then MsgBox "Lecture seule" End Sub

---

Cela étant, cela n'est intéressant que si le classeur est ouvert pas code, en ayant basculé Application.DisplayAlerts à True avant la ligne qui ouvre le classeur. Dans les autres cas, Excel avertira l'utilisateur de l'ouverture en lecture seule, et il y aura redondance...

Ok?

merci pour la réponse, mais je ne suis pas sur d'avoir tres bien compris. Disons que le code que vous proposé soit placé dans un fichier DetecteLectureSeule.xla, qui est chargé automatiquement au démarrage d'Excel):

Code:

---

1 2 3

Private Sub Workbook_Open() If Me.ReadOnly Then MsgBox "Lecture seule" End Sub

---

Ce code va tester uniquement si mon fichier DetecteLectureSeule.xla est en lecture seule, ce qui ne m'interrese pas.

Ce que je souhaite, c'est qu'a chaque ouverture d'un fichier xls (quelqu'il soit!) j'affiche une msgbox si ledit fichier est en lecture seule (et sans mettre le code précédent dans tous les fichiers xls que j'ai!).

Il doit bien y avoir un moyen a l'ouverture d'un fichier de pouvoir récupérer son nom par exemple et de tester s'il est en lecture seule, non?