Macro pour supprimer lecture seule

Bonjour,

J'ai une macro qui ouvre un classeur excel en lecture seule:

Code:

---

1 2	Dim wbAllData As Workbook Set wbAllData = Workbooks.Open(Filename:="C:\Users\Stephane\Documents\Copie de Classeur11test.xlsm", ReadOnly:=True)

---

Maintenant, j'aimerai créer une macro qui, depuis un bouton, supprime la lecture seule du classeur déjà ouvert.

D'avance merci pour votre aide.:ccool:

A mon avis tu va être obligé de fermer le fichier puis de le rouvrir (tu peux le faire avec un programme bien sûr).

Bonjour,

Code:

---

wbAllData.ChangeFileAccess xlReadWrite

---

Cordialement.
ctac

j'ai mis le Bouton 1 sur la Feuil1 avec la macro mais cela ne fonctionne pas. La fenêtre débogage apparaît avec mention erreur d’exécution 424

la macro est écrite comme ceci:

Code:

---

1 2 3

Sub Bouton1_Cliquer() wbAllData.ChangeFileAccess xlReadWrite End Sub

---

Merci pour votre aide, je suis un novice dans ce domaine.

Bonjour,

le problème ne vient pas du fait que ta variable wbAllData ne soit pas reconnue, car non instanciée ?

si c'est bien ça, je pense que ce rectificatif devrait fonctionner :

Code:

---

1 2 3 4

Sub Bouton1_Cliquer() ThisWorkBook.ChangeFileAccess xlReadWrite End Sub

---