Bloquer l'excecution d'une macro d'ouverture

[jpmasclet]

Bonjour à tous,

J'ai créer un fichier qui contient une macro d'ouverture, ce fichier est dupliqué sur 15 personnes.

Par aillerurs j'ai un autre fichier, qui lui est une synthese et j'ai une boucle de récupération de ses précédents fichiers.

Mon probleme est que pour toutes les personnes, ma macro de demarre se lance. Ais je possibilité de stopper cette macro ou d'indiquer dans les fichiers "source" que si le fichier est en lecture seule de ne pas lancer ma macro ?

Voici un extrait de ma boucle de récupération.

    MyFile = Dir(MyRep & "Suivi*.xls")
    Do While MyFile <> ""    ' Commence la boucle.
        Workbooks.Open MyRep & MyFile, ReadOnly:=True

Je suis désolé je ne vais pas pouvoir envoyé le fichier, trop lourd et confidentiel.

Merci a vous !

 

[smotty]

Re : Bloquer l'excecution d'une macro d'ouverture

Bonjour,

Si ça peut aider, j'ai eu le même type de problème et j'ai mis un repère dans le nom de fichier.

Cordialement

smotty

 

[Guest]

Re : Bloquer l'excecution d'une macro d'ouverture

bonjour Jp,

En début de macro essaie ceci:

IF Thisworkbook.ReadOnly then exit sub

A+

 

[Pierrot93]

Re : Bloquer l'excecution d'une macro d'ouverture

Bonjour jpmasclet, smooty

regarde le code ci-dessous, à adapter à ton fichier :

Option Explicit
Private Sub Workbook_Open()
If Not ThisWorkbook.ReadOnly Then
    MsgBox "pas en lecture seule"
    'ton code
End If
End Sub

bonne journée
@+

Edition : Aarf, bonjour Hasco, désolé pas raffraichi...