Fenetre lecture seule

Version imprimable

18/04/2019, 15h48
chipster62

Fenetre lecture seule

bonjour à tous,

j'ai mis un fichier en lecture seule.
Lorsqu'on ouvre ce fichier, j'ai le message :
"L'auteur souhaite que vous ouvriez " test.xlsm" en lecture seule, à moins que vous ne devriez y apporter des modifications. Voulez-vous l'ouvrir en lecture seule ?
avec 3 choix : Oui, Non, Annuler

Je ne veux pas que cette fenêtre s'affiche et qu'automatiquement ce fichier s'ouvre en lecture seule (donc clik virtuel sur oui)

Comment procéder ?

merci bien
18/04/2019, 16h03
Trystan441

Bonjour,

Tu ne veux pas que cette fenêtre s'affiche juste pour toi ?

SI non, il faut que tu ailles dans l'éditeur VBA, que tu trouves la ligne de code provoquant cette fenêtre et que tu supprimes cette/ces lignes.

Ensuite, tu fermes le fichier -> Clic doit sur le fichier -> Propriété -> Lecture Seule
18/04/2019, 16h04
Menhir

Ne coche pas l'option "Lecture seule recommandée" quand tu sélectionnes les options d'enregistrement.
La formulation de cette option est trompeuse.

Contente-toi de mettre un mot de passe dans "Mot de passe pour la modification".
18/04/2019, 16h10
chipster62

Lecture seule recommandé faite sur les options d'enregistrements

En fait c'est un document avec différents éléments à saisir dedans.

Le but de l'ouvrir en lecture seule (en étant vierge d'informations) c'est de forcer le changement de nom pour ne pas avoir des éléments saisis à l'ouverture du fichier vierge sauvegardé.
18/04/2019, 18h16
eriiic

Bonjour,

Enregistre-le en tant que modèle xltx ou xltm alors.
A l'ouverture ça sera une copie qu'il sera obligé d'enregistrer sous...
eric

merci c'est la logique d'Excel

mais je n'arrive pas utiliser une macro pour sauvegarder en fichier xlsx (j'ai plus besoin des macros à la sauvegarde du fichier) avec le code suivant :
Code:

1 2 3 4 5 6 7 8 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & _ Format(Range("I8"), "yyyymmdd") _ & " - " & UCase(Range("E12")) _ & " " & UCase(Range("H12")) _ & " " & Range("E10") _ & " " & Range("E18") _ & " " & " - Fiche" & _ ".xlsx"
merci bien

20/04/2019, 09h52
eriiic

Bonjour,

fais-le en enregistrement de macro, tu verras les paramètres à mettre.
eric
20/04/2019, 09h55
Patrice740

Bonjour,

Regardes ce fil :
https://www.developpez.net/forums/d1.../#post10755750

Tu peux adapter le fichier exemple à ton besoin.

Attention pour modifier ce xltm, il faut :
1) Désactiver toutes les macros, pour éviter que l'évènement BeforeSave se produise lors de l'enregistrement.
2) Ouvrir le xltm (ne pas double cliquer (ça ferait Nouveau) mais clic droit, ouvrir)
3) Faire les modifs, l'enregistrer et le fermer
4) Réactiver les macro

Citation:
Envoyé par chipster62
mais je n'arrive pas utiliser une macro pour sauvegarder en fichier xlsx (j'ai plus besoin des macros à la sauvegarde du fichier) avec le code suivant :
Code:

1 2 3 4 5 6 7 8 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & _ Format(Range("I8"), "yyyymmdd") _ & " - " & UCase(Range("E12")) _ & " " & UCase(Range("H12")) _ & " " & Range("E10") _ & " " & Range("E18") _ & " " & " - Fiche" & _ ".xlsx"
Avant d'utiliser une construction aussi compliquée dans un SaveAs, commence par la mettre dans une variable String et vérifie le contenu de cette variable (par exemple avec un Debug.Print) pour voir si le chemin qui en résulte est correct.