Microsoft 365 Excel VBA ouverture en lecture seul d'un fichier verrouillé sans intervention humaine

chez_salah · 30 Mai 2022

Bonjour,

J'ai un fichier excel avec tout les droits sur mon pc.
J'exécute divers code dont un est de copier un autre fichier excel du réseau entreprise, dont je ne suis quand lecture sur ce répertoire vers mon pc dont j'ai tout les droits (sauf admin).
Je l'ouvre pour pouvoir récupérer le planning. Mais un popup me demande soit un mot de passe pour pouvoir le modifier ou de cliquer sur lecture seul.

Comment peut on en VBA simuler le clique sur le bouton lecture seul ?

chez_salah · 30 Mai 2022

Merci pour votre aide, après quelques galères c'est tout bon.

Set wb = Workbooks.Open((classeurcible), ReadOnly:=True) 'on ouvre le fichier sans popup

Hasco · 30 Mai 2022

Bonjour,

Essayez la méthode Open de la collection Workbooks en mettant son paramètre ReadOnly à True.
Workbooks.Open FileName:= "CheminEtNomCompletDuFichier", ReadOnly := True

cordialement

chez_salah · 30 Mai 2022

Hasco à dit:
Bonjour,

Essayez la méthode Open de la collection Workbooks en mettant son paramètre ReadOnly à True.
Workbooks.Open FileName:= "CheminEtNomCompletDuFichier", ReadOnly := True

cordialement

Bonjour, déjà fait sans succes.

vgendron · 30 Mai 2022

Bonjour

Avant d'ouvrir le fichier, essai avec la ligne application.displayalerts=false

chez_salah · 30 Mai 2022

Merci pour votre aide, après quelques galères c'est tout bon.

Set wb = Workbooks.Open((classeurcible), ReadOnly:=True) 'on ouvre le fichier sans popup

Hasco · 31 Mai 2022

Bonjour,

chez_salah à dit:
Merci pour votre aide, après quelques galères c'est tout bon.

Set wb = Workbooks.Open((classeurcible), ReadOnly:=True) 'on ouvre le fichier sans popup

N'est-ce pas ce que je vous disais au post 2 ?

chez_salah · 31 Mai 2022

Pb de parenthèse. Et oui. Merci encore.

Microsoft 365 Excel VBA ouverture en lecture seul d'un fichier verrouillé sans intervention humaine

chez_salah

XLDnaute Nouveau

chez_salah

Hasco

XLDnaute Barbatruc

chez_salah

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

chez_salah

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

chez_salah

XLDnaute Nouveau

Discussions similaires