xlReadOnly et retour

[wachoo31]

Bonsoir a toutes et tous,

Mon problème du jour est simple pour vous mais moi je ne retrouve pas la formule pouvez vous m'aider...

Voila dans un fichier, a l'ouverture j'ai une macro qui suivant le mot de passe ouvre le fichier normalement ou en lecture seule par cette ligne

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

Je voudrais s'avoir quelle ligne je doit mettre dans une autre macro pour pouvoir retourné au fichier en accès complet sans devoir le fermer et le réouvrir

Merci pour vos solutions a venir

 

[wachoo31]

Bonsoir josé, le forum

Grand merci à toi

Comme toujours sur ce forum, rapide et précis

 

[poipoi59]

Re : xlReadOnly et retour

Bonjour à tous,

Meilleurs voeux pour cette nouvelle année.

Peut-être la réponse a été transmise en MP ?

J'ai la même question :

Comment enlever par macro une lecture seule soit le contraire de ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly


Merci à vous,

poipoi

 

[poipoi59]

Re : xlReadOnly et retour

La réponse serait celle-ci peut-être :

ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite

 

[Pierrot93]

Re : xlReadOnly et retour

Bonjour,

essaye ceci :

ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite

bon après midi
@+

 

[poipoi59]

Re : xlReadOnly et retour

Merci Pierrot,

Mais finalement, cela ne marche pas

ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite

Alors que le fichier est bien en lecture seule

kesako ???

 

[Pierrot93]

Re : xlReadOnly et retour

Re,

Mais finalement, cela ne marche pas

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ? Chez moi sous 2003 fonctionne parfaitement... code exécuté dans un module standard, le fichier étant bien sur enregistré sur disuqe dur....

 

[poipoi59]

Re : xlReadOnly et retour

J'ai le message suivant :

Erreur d'éxécution '1004':

La méthode 'ChangeFileAccess' de l'objet '_workbook' a échoué

 

[Pierrot93]

Re : xlReadOnly et retour

Re,

et le fichier est bien enregistré sur le DD ? sinon comprends pas, sans plus de détails difficile d'en dire plus....

 

[poipoi59]

Re : xlReadOnly et retour

Oui le fichier est bien enregistré sur le DD

La commande peut-être dans un module ?

 

[Pierrot93]

Re : xlReadOnly et retour

Re,

un exemple ci-joint fonctionnel sous 2003.

 

[poipoi59]

Re : xlReadOnly et retour

Merci Pierrot,

Voici ce que ton fichier me donne (en PJ) comme réponse lorsque j'appuie sur le bouton "Read/Write"

 

[Pierrot93]

Re : xlReadOnly et retour

Re,

si tu as enregistré mon fichier sur ton disque, je ne comprends pas, pas ce sousi chez moi sous 2003....

 

[poipoi59]

Re : xlReadOnly et retour

Finalement ton outil marche bien

mais à quoi sert "option explicit" et où le mettre, module, this workbook... ?

Merci

 

[Pierrot93]

Re : xlReadOnly et retour

Re,

"option explicit"

oblige à la déclaration de toutes les variables...

et où le mettre

sur la première ligne de tous les module (stadard, de feuille,de classe, userform, thisworkbook)