Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Test de l'écriture/lecture

C

cactusx

Guest
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

Guest
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…