XL 2021 Fichier ouvert en lecture seule : La cellule B1 affiche un text

[Lionel69890]

Bonjour à tous,

J'aimerai qu'une cellule prenne comme valeur "LE FICHIER EST OUVERT EN LECTURE SEULE, VOS MODIFICATIONS NE SERONT PAS ENREGISTRÉES"
Si est seulement si, vous l'aurez compris l'utilisateur du fichier l'a ouvert en lecture seule.
Peut-on le faire sans VBA ? Sinon quel serait le code ? Et comme faire pour que le code s'exécute automatiquement à l'ouverture du fichier ?

Merci d'avance de votre aide
Lionel

 

[Gégé-45550]

Bonjour à tous,

J'aimerai qu'une cellule prenne comme valeur "LE FICHIER EST OUVERT EN LECTURE SEULE, VOS MODIFICATIONS NE SERONT PAS ENREGISTRÉES"
Si est seulement si, vous l'aurez compris l'utilisateur du fichier l'a ouvert en lecture seule.
Peut-on le faire sans VBA ? Sinon quel serait le code ? Et comme faire pour que le code s'exécute automatiquement à l'ouverture du fichier ?

Merci d'avance de votre aide
Lionel

Bonjour

Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then
Range("la cellule voulue") = "Le fichier est en lecture seule"
Else
Range("la cellule voulue") = "Fichier en écriture"
End If
End Sub

Cordialement

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Lionel69890
Avec l'utilisation de la macro fonction EXCEL4 LIRE.DOCUMENT(5) qui renvoie vrai si le document est en lecture seule.
Mettre cette fonction dans un nom défini pour l'utiliser, exemple

Nom	Définition
Si_Lecture_Seule	=SI(LIRE.DOCUMENT(5);"LE FICHIER EST OUVERT EN LECTURE SEULE, VOS MODIFICATIONS NE SERONT PAS ENREGISTRÉES";"Document modifiable")

Il n'y a pas de VBA mais l'utilisation des Macro-fonctions EXCEL4 contraint à enregistrer le fichier en xlsm.

voir PJ (avec mise en forme conditionnelle pour rehausser le message)
A bientôt

 

[Lionel69890]

Trop fort ! Ca fonctionne merci à vous deux

 

[Gégé-45550]

Trop fort ! Ca fonctionne merci à vous deux

Re Bonjour Lionel69890, AtTheOne
Désolé mais je ne suis pas sûr que la méthode EXCEL4 fonctionne lorsque le fichier est vraiment en lecture seule à l'ouverture, voir PJ.
Cordialement,