Ouvrir un fichier excel en lecture seule via VBA

Bonjour à tous !

J'ai un fichier monfichier.xls.

Comment faire pour qu'au moment où il est lancé, il s'ouvre en lecture seule. Actuellement l'option que j'ai trouvé est de modifier les attributs du fichier avant son ouverture mais cela me cause un problème car un utilisateur peut aussi modifier ces attributs.

Jer vous remercie de vos contributions.

J'utilise Excel 2000 et on SE est Windows 2000.

Bonjour,

Je te propose de l'ouvrir simplement en mode "protégé". L'utilisateur ne pourra enregistrer qu'une copie !

Pour cela, dans le menu Ouvrir, après avoir sélectionné ton fichier, au lieu de cliquer directement sur Ouvrir, clique sur la petite flèche sur la droite du bouton pour dérouler une liste de choix : tu choisis "Ouvrir de manière protégée" ou quelquechose comme ca.

En VBA, cela donne :

Code:

---

1 2 3 4

Workbooks.Open Filename:= _ "On a parcouru le chemin !", _ ReadOnly:=True

---

J'espère que cela pourra t'aider ;)

Regarde ReadOnly et IgnoreReadOnlyRecommended dans l'aide, à Open ;)

Merci flo_flo pour le code mais je l'ai déjà essayé et j'ai le message suivant

Citation:

---

Monfichier.xls est déjà ouvert. Si vous l'ouvrez à nouveau toutes vos modifications seront perdues. Voulez-vous rouvrir Monfichier.xls?

---

J'aimerais en fait inclure le code d'ouverture en lecture seule dans une procédure Auto_open ou Workbook_open de mon fichier tout en évitant ce message.
Les procédures que j'ai essayé actuellement impliquent de préciser le chemin au niveau du Filename d'où le message ci-dessus.

Ce que je veux faire est-il possible ?

Citation:

---

Envoyé par mbellemax

Merci flo_flo pour le code mais je l'ai déjà essayé et j'ai le message suivant


J'aimerais en fait inclure le code d'ouverture en lecture seule dans une procédure Auto_open ou Workbook_open de mon fichier tout en évitant ce message.
Les procédures que j'ai essayé actuellement impliquent de préciser le chemin au niveau du Filename d'où le message ci-dessus.

Ce que je veux faire est-il possible ?

---

Il faut passer l'argument False à la fonction ActiveSheet.Close comme suit :

Code:

---

ActiveSheet.Close (False)

---

De cette façon, on n'enregistre pas les modifications du fichier sans avoir à cliquer "Non" dans la fenêtre.

Il est à espérer que depuis 2007 mbellemax ait résolu son problème.
Inutile de déterrer de vieilles discussions.

Peut-être bien, mais si plusieurs années après, quelqu'un donne une réponse, ça peut en aider certains (dont l'humble débutant que je suis fait parti) ...
Ça m'est arrivé sur ce forum il y moins d'un mois. Déterrer de vieilles discussions pour y répondre évite de créer plusieurs fois le même sujet et facilite la recherche.