Bug Excel VBA READ ONLY

Bonjour,

J'ai un soucis avec le mode lecture seul, il ne fonctionne pas tout le temps et je ne comprend pas pourquoi.

Voici le code en question (je ne peut pas vous filez le fichier entier)

Sub SetReadOnly()

If Not ActiveWorkbook.ReadOnly Then
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="admin", Notify:=False
End If
    Debug.Print "Is Read Only ? > " & ActiveWorkbook.ReadOnly
End Sub

Sub UnSetReadOnly()

If ActiveWorkbook.ReadOnly Then
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="admin", Notify:=False
End If
   Debug.Print "Is Read Only ? > " & ActiveWorkbook.ReadOnly
End Sub

Et le soucis c'est que dès fois ça marche parfaitement , ça alterne entre Vrai / Faux quand j’exécute les fonctions toutes seules (qui vous l'avez compris servent juste à changer le mode du fichier : mode lecture seule / mode normal ) Je ferme le fichier, je reviens ça marche toujours , je peux switcher entre les 2 modes et au bout d'un moment ça bug complétement et il ne veut plus changer de mode ! J'ai beau exécuter UnSetReadOnly() toute seule et en boucle , celà mets juste "Is Read Only ? > True " en boucle il refuse de changer de mode et je ne comprend pas pourquoi !

Rechercher des sujets similaires à "bug vba read only"