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?