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 !