Read Only!!!

[fixfull]

Hello,

Voila mon problème, s'il y a des pro dans le coin ;-)

J'utilise un fichier excel qui doit pouvoir être consulter par d'autre personne, par conséquent j'utilise un mot de pass et j'ai une boite qui me demande si je veux être en read only.

Mon problème c'est ques fois je suis aussi en read only et quand je lance la macro j'ai un bug des que j'arive sur ligne

ActiveSheet.Paste

J'aimerais donc faire un controle pour savoir si le fichier est ouvert en read only ou pas!

Du style:


If fichier read only -> msgbox "fichier read only"

else: suite de la macro

end if

Merci de votre aide

Fixfull

 

[pierrejean]

Re : Read Only!!!

bonjour fixfull

Extrait de l'aide:

ReadOnly, propriété - Exemple
Si le classeur actif est en lecture seule, cet exemple montre comment l'enregistrer sous Newfile.xls.
If ActiveWorkbook.ReadOnly Then ActiveWorkbook.SaveAs fileName:="NEWFILE.XLS"End If

 

[gilbert_RGI]

Re : Read Only!!!

Bonjour

avec ceci

If ActiveWorkbook.ReadOnlyRecommended = False Then
MsgBox "Ce fichier n'est pas en lecture seule"
End If

Cdlt

RGI

Edit: salut pierrejean

 

[fixfull]

Re : Read Only!!!

merci je vais essayer ça mais ça a l'air tout a fait bien!
A+