Test de l'écriture/lecture

[cactusx]

Bonsoir à tous.

Pour les besoins d'une application qui doit pouvoir conserver son format initiale après saisie et édition, je souhaite utiliser la fonction de protection en écriture/lecture.
Mais il me faut pouvoir tester son état.

Exemple :

If ActiveWorkbook.ChangeFileAccess = xlReadWrite Then
MsgBox "Non protégé"
Else
MsgBox "Protégée"
End If

Quelqu'un peut-il m'indiquer la syntaxe exacte ?

Merci.

 

[@+Thierry]

Bonsoir Cactus, le Forum

Essaie plutot

Sub test()

If ActiveWorkbook.ReadOnly = False Then
MsgBox "Non protégé"
Else
MsgBox "Protégée"
End If
End Sub


Bonne Nuit
@+Thierry

 

[cactusx]

Je n'en étais pas loin.

Merci et bonne nuit également à tous.