OVH Cloud OVH Cloud

Ouverture en lecture seul

16 réponses
Avatar
GilSe
Bonjour à tous.
Je souhaite qu'à l'ouverture de mon fichier, par defaut protégé, le fichier
soit automatiquement en lecture seule, sans aucun message d'avertissement.
Dans le cas qu'un utilisateur clique sur certains des boutons executant des
macros, et seulement certains, une fenêtre s'ouvre demandant le mot de passe
pour dévérouiller le tableau.
Merci pour votre aide.
Gilles

6 réponses

1 2
Avatar
twinley
Hum, hum,

j'ai vu des questions à propos de

Application.DisplayAlerts = False

pour excel97. Je coprend de moins en moins ce refus de fonctionner dans
des versions plus récentes.
Pourtant je constate que en version 9 (xl2000 je suppose), ça ne passe
pas. Pe une option ou une référence manquante ?
En version 10 (xl2002 je suppose) ça passe les doigts dans le nez, les
pouces ou je pense.

Je vais m'orienter vers des sendkeys, pas toujours fiable, mais bon. En
attendant mieux.

à+twinley

twinley wrote:
Salut aA,

et oui, cette commande qui n'agit pas, pourtant c'est une question de
version.

Le plus beau, c'est que j'ai trouvé du premier coup le tableau des
versions MS, il y a une semaine, et ce soir, impossible.
Je pense aussi à un pb de package, selon que c'est premium ou pro ou je
ne sais quoi... Pas très logique, mais quand j'ai ouvert les XL ,
c'était du 2000 tous les deux. L'un en 9 l'autre en 10.
Ca me rappelle la chanson, l'un au printemps, l'autre en hiver.

Un upgrade sur un autre qui peut ne pas bien se mettre à jour ?!
Ou mieux XL installé seul, venant d'un CD, une version 10 et une
installe office 2000 pro venant d"un CD complet. Ce serait la version 9.
Office s'installe avec les autres composants mais il ne downgrade pas
XL, qui reste en 10 à son coeur et qui affiche 2000 en surface.

Il faut déjà que je mette la main sur ce tableau des verions
4,5,6,7,8,9,10,11

à+twinley

anonymousA wrote:

salut twinley,

alors là c'est le type de colle à laquelle je n'ai aucune réponse. Il
faudra attendre qu'un autre contributeur t'informe.

Cordialement,



Bonsoir à tous

Comme quoi, je viens de buter sur ce point aujourd'hui.
Je n'ai pas encore fait le point sur les versions, mais j'avais posé
cette question il y a une semaine, sur le Application.DisplayAlerts
= False qui ne fait rien.

En version 9 il n'est pas actif, alors que en XL 10 il fonctionne.
Je dis que je n'ai pas fais le point parce que cette aprème je
pensais avoir deux machines en XL2000. Et je pensais aussi qu'elles
étaient toutes les deux en SR3 (maj pour office 2000, pas seulement
XL 2000).

Est ce possible que XL soit en 9 et 10 en XL 2000 ?

à+twinley

anonymousA wrote:

ben , c'est peut-être un supplément d'intelligence pour 2003. Moi
sur 2000, si j'enregistre le fichier avec un mdp pour l'écriture ,
pas moyen de l'empêcher de me demander si je veux ouvrir en lecture
seule ou pas.
Bon, ne cherchons pas trop.

Cordialement,



Bonjour, *anonymousA*

j'ai vérifié que,
dans un module standard (Alt+F11, insertion, module) :

Private Sub Workbook_open()
Application.DisplayAlerts = False
End Sub

Chez moi, ça marche.
Excel 2002 SP3.





re,

la solution la plus simple c'est d'ouvrir le fameux fichier par un
l'intermédiaire d'un autre en écrivant l'instruction suivante toute
bête
Workbooks.Open "C:toto.xls", , True

En effet, il ne m'a pas été possible d'ouvrir le fichier lui-même en
contrant le message d'alerte du fichier protégé en écriture y. en
bricolant des trucs dans le workbook_open du fichier.

A+



Bonjour, *GilSe*

dans un module standard (Alt+F11, insertion, module) :

Private Sub Workbook_open()
Application.DisplayAlerts = False
End Sub

permet de ne pas afficher le message.
Cela te convient-il ?





















Avatar
anonymousA
pas essayé avec des sendkeys . A voir.

Cordialement,


Hum, hum,

j'ai vu des questions à propos de

Application.DisplayAlerts = False

pour excel97. Je coprend de moins en moins ce refus de fonctionner dans
des versions plus récentes.
Pourtant je constate que en version 9 (xl2000 je suppose), ça ne passe
pas. Pe une option ou une référence manquante ?
En version 10 (xl2002 je suppose) ça passe les doigts dans le nez, les
pouces ou je pense.

Je vais m'orienter vers des sendkeys, pas toujours fiable, mais bon. En
attendant mieux.

à+twinley

twinley wrote:

Salut aA,

et oui, cette commande qui n'agit pas, pourtant c'est une question de
version.

Le plus beau, c'est que j'ai trouvé du premier coup le tableau des
versions MS, il y a une semaine, et ce soir, impossible.
Je pense aussi à un pb de package, selon que c'est premium ou pro ou
je ne sais quoi... Pas très logique, mais quand j'ai ouvert les XL ,
c'était du 2000 tous les deux. L'un en 9 l'autre en 10.
Ca me rappelle la chanson, l'un au printemps, l'autre en hiver.

Un upgrade sur un autre qui peut ne pas bien se mettre à jour ?!
Ou mieux XL installé seul, venant d'un CD, une version 10 et une
installe office 2000 pro venant d"un CD complet. Ce serait la version 9.
Office s'installe avec les autres composants mais il ne downgrade pas
XL, qui reste en 10 à son coeur et qui affiche 2000 en surface.

Il faut déjà que je mette la main sur ce tableau des verions
4,5,6,7,8,9,10,11

à+twinley

anonymousA wrote:

salut twinley,

alors là c'est le type de colle à laquelle je n'ai aucune réponse. Il
faudra attendre qu'un autre contributeur t'informe.

Cordialement,



Bonsoir à tous

Comme quoi, je viens de buter sur ce point aujourd'hui.
Je n'ai pas encore fait le point sur les versions, mais j'avais posé
cette question il y a une semaine, sur le Application.DisplayAlerts
= False qui ne fait rien.

En version 9 il n'est pas actif, alors que en XL 10 il fonctionne.
Je dis que je n'ai pas fais le point parce que cette aprème je
pensais avoir deux machines en XL2000. Et je pensais aussi qu'elles
étaient toutes les deux en SR3 (maj pour office 2000, pas seulement
XL 2000).

Est ce possible que XL soit en 9 et 10 en XL 2000 ?

à+twinley

anonymousA wrote:

ben , c'est peut-être un supplément d'intelligence pour 2003. Moi
sur 2000, si j'enregistre le fichier avec un mdp pour l'écriture ,
pas moyen de l'empêcher de me demander si je veux ouvrir en lecture
seule ou pas.
Bon, ne cherchons pas trop.

Cordialement,



Bonjour, *anonymousA*

j'ai vérifié que,
dans un module standard (Alt+F11, insertion, module) :

Private Sub Workbook_open()
Application.DisplayAlerts = False
End Sub

Chez moi, ça marche.
Excel 2002 SP3.





re,

la solution la plus simple c'est d'ouvrir le fameux fichier par un
l'intermédiaire d'un autre en écrivant l'instruction suivante toute
bête
Workbooks.Open "C:toto.xls", , True

En effet, il ne m'a pas été possible d'ouvrir le fichier lui-même en
contrant le message d'alerte du fichier protégé en écriture y. en
bricolant des trucs dans le workbook_open du fichier.

A+



Bonjour, *GilSe*

dans un module standard (Alt+F11, insertion, module) :

Private Sub Workbook_open()
Application.DisplayAlerts = False
End Sub

permet de ne pas afficher le message.
Cela te convient-il ?
























Avatar
anonymousA
bonjour,

tu as raison sur la mise en lecture seule obligatoire du fichier, mais
comment faire pour eviter le message te demandant le mdp à l'ouverture?
Je n'y suis pas arrivé en dehors d'un artifice.

A+

Bonsoir GilSe;

Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub

MP

"GilSe" a écrit dans le message de news:


Bonjour à tous.
Je souhaite qu'à l'ouverture de mon fichier, par defaut protégé, le


fichier

soit automatiquement en lecture seule, sans aucun message d'avertissement.
Dans le cas qu'un utilisateur clique sur certains des boutons executant


des

macros, et seulement certains, une fenêtre s'ouvre demandant le mot de


passe

pour dévérouiller le tableau.
Merci pour votre aide.
Gilles







Avatar
Michel Pierron
Bonjour anonymousA;

Lorsqu'un fichier est protégé par mot de passe à l'ouverture, le mot de
passe est demandé avant même toute exécution partielle de macro. Donc, le
seul moyen que je connaisse pour by-passer la boîte de message de demande de
mot de passe est de l'ouvrir comme tu l'a écrit, au travers d'un classeur
annexe ou bien à l'aide d'un script vbs.
De fait, l'instruction Application.DisplayAlerts = False dans une macro
d'auto ouverture ne devrait rien changer puisque cette macro n'est même pas
exécutée tant que la boîte de saisie du message n'est pas validée d'une
façon ou d'une autre. C'est le cas chez moi et apparemment, chez toi aussi
et même SendKey ne changera rien, car il faut bien placer cette instruction
dans une procédure.

Dans le cas de GilSe, puisque le fichier est ouvert en lecture seule, il n'y
a pas lieu d'avoir la ceinture plus les bretelles; il lui suffit de placer
la demande de mot de passe dès lors que l'utilisateur envoie une demande
d'exécution d'une macro avec un switch boolean pour que la demande n'ait
lieu qu'une fois.

MP

"anonymousA" a écrit dans le message de news:
42e34b19$0$22313$
bonjour,

tu as raison sur la mise en lecture seule obligatoire du fichier, mais
comment faire pour eviter le message te demandant le mdp à l'ouverture?
Je n'y suis pas arrivé en dehors d'un artifice.

A+

Bonsoir GilSe;

Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub

MP

"GilSe" a écrit dans le message de
news:




Bonjour à tous.
Je souhaite qu'à l'ouverture de mon fichier, par defaut protégé, le


fichier

soit automatiquement en lecture seule, sans aucun message
d'avertissement.



Dans le cas qu'un utilisateur clique sur certains des boutons executant


des

macros, et seulement certains, une fenêtre s'ouvre demandant le mot de


passe

pour dévérouiller le tableau.
Merci pour votre aide.
Gilles









Avatar
anonymousA
ok. te remercie pour tes compléments d'info.

A+


Bonjour anonymousA;

Lorsqu'un fichier est protégé par mot de passe à l'ouverture, le mot de
passe est demandé avant même toute exécution partielle de macro. Donc, le
seul moyen que je connaisse pour by-passer la boîte de message de demande de
mot de passe est de l'ouvrir comme tu l'a écrit, au travers d'un classeur
annexe ou bien à l'aide d'un script vbs.
De fait, l'instruction Application.DisplayAlerts = False dans une macro
d'auto ouverture ne devrait rien changer puisque cette macro n'est même pas
exécutée tant que la boîte de saisie du message n'est pas validée d'une
façon ou d'une autre. C'est le cas chez moi et apparemment, chez toi aussi
et même SendKey ne changera rien, car il faut bien placer cette instruction
dans une procédure.

Dans le cas de GilSe, puisque le fichier est ouvert en lecture seule, il n'y
a pas lieu d'avoir la ceinture plus les bretelles; il lui suffit de placer
la demande de mot de passe dès lors que l'utilisateur envoie une demande
d'exécution d'une macro avec un switch boolean pour que la demande n'ait
lieu qu'une fois.

MP

"anonymousA" a écrit dans le message de news:
42e34b19$0$22313$

bonjour,

tu as raison sur la mise en lecture seule obligatoire du fichier, mais
comment faire pour eviter le message te demandant le mdp à l'ouverture?
Je n'y suis pas arrivé en dehors d'un artifice.

A+


Bonsoir GilSe;

Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub

MP

"GilSe" a écrit dans le message de



news:




Bonjour à tous.
Je souhaite qu'à l'ouverture de mon fichier, par defaut protégé, le


fichier


soit automatiquement en lecture seule, sans aucun message




d'avertissement.

Dans le cas qu'un utilisateur clique sur certains des boutons executant


des


macros, et seulement certains, une fenêtre s'ouvre demandant le mot de


passe


pour dévérouiller le tableau.
Merci pour votre aide.
Gilles













Avatar
twinley
Bonjour MP

ce qui est différent du pb que je rencontre, je n'ai pas de mot de
passe, je cherche seulement à shunter le message de confirmation.
Merci pour l'aide.

à+twinley

Michel Pierron wrote:
Bonjour anonymousA;

Lorsqu'un fichier est protégé par mot de passe à l'ouverture, le mot de
passe est demandé avant même toute exécution partielle de macro. Donc, le
seul moyen que je connaisse pour by-passer la boîte de message de demande de
mot de passe est de l'ouvrir comme tu l'a écrit, au travers d'un classeur
annexe ou bien à l'aide d'un script vbs.
De fait, l'instruction Application.DisplayAlerts = False dans une macro
d'auto ouverture ne devrait rien changer puisque cette macro n'est même pas
exécutée tant que la boîte de saisie du message n'est pas validée d'une
façon ou d'une autre. C'est le cas chez moi et apparemment, chez toi aussi
et même SendKey ne changera rien, car il faut bien placer cette instruction
dans une procédure.

Dans le cas de GilSe, puisque le fichier est ouvert en lecture seule, il n'y
a pas lieu d'avoir la ceinture plus les bretelles; il lui suffit de placer
la demande de mot de passe dès lors que l'utilisateur envoie une demande
d'exécution d'une macro avec un switch boolean pour que la demande n'ait
lieu qu'une fois.

MP

"anonymousA" a écrit dans le message de news:
42e34b19$0$22313$

bonjour,

tu as raison sur la mise en lecture seule obligatoire du fichier, mais
comment faire pour eviter le message te demandant le mdp à l'ouverture?
Je n'y suis pas arrivé en dehors d'un artifice.

A+


Bonsoir GilSe;

Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub

MP

"GilSe" a écrit dans le message de



news:




Bonjour à tous.
Je souhaite qu'à l'ouverture de mon fichier, par defaut protégé, le


fichier


soit automatiquement en lecture seule, sans aucun message




d'avertissement.

Dans le cas qu'un utilisateur clique sur certains des boutons executant


des


macros, et seulement certains, une fenêtre s'ouvre demandant le mot de


passe


pour dévérouiller le tableau.
Merci pour votre aide.
Gilles













1 2