Discussion :

[ncazanav]

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 :

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

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 :

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

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?

[Pierre Fauconnier]

Bonsoir

Code :

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

ReadOnly

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

Code :

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

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?

[ncazanav]

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 :

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

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?