VBA Workbook_Open, ReadOnly, et "rouverture"

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je souhaite laisser la possibilité à l'utilisateur d'ouvrir un fichier Excel en mode "lecture seule".

Le problème que je rencontre, c'est qu'à l'ouverture de mon fichier j'appelle une sub (située dans un module): Call Init.

Pour une ouverture classique du fichier, la sub Init () se lance. Mais quand on accepte de "rouvrir" le fichier en lecture seule, la sub ne se lance plus!

Ci dessous mon code dans le Wokbook_Open:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub Workbook_Open() Dim fichier As String Dim fichierlong As String fichierlong = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name fichier = ActiveWorkbook.Name If Workbooks(fichier).ReadOnly = True Then Call Init Else If MsgBox("Si le répertoire est ouvert pour consultation, merci de cliquer sur oui pour l'ouvrir en lecture seule!", vbYesNo + vbExclamation + vbDefaultButton1, "Ouverture en lecture seule") = vbYes Then Workbooks.Open Filename:=fichierlong, ReadOnly:=True Else Call Init End If End If End Sub
Je vous mets en pièce jointe un petit fichier Excel pour exemple.

Merci par avance pour vos réponses. J'ai beau chercher sur les Forum, je ne trouve pas d'aide sur ce problème particulier!

09/01/2014, 15h07
defluc

Hello, Il y a un truc qui m'échappe dans la logique.

Pourquoi demander de prendre telle option si le fichier est en lecture/écriture puisque la macro détermine au préalable si il est en lecture seule ?
09/01/2014, 16h31
mikoto96
On a le choix de se mettre en lecture seule par le If MsgBx("...") vbYes

Si on dit oui au message, on passe en lecture seule, sinon, on reste en lecture/écriture. Je suis obligée car il faut pouvoir modifier le fichier. Mais comme il est sur mon réseau et qu'il va être souvent consulté, et ce, par plusieurs personnes en même temps, je propose l'ouverture en lecture seule pour les personnes qui ne l'utilise qu'en consultation.

Si tu répond "Non" à la MsgBx, alors ça appelle la Sub Init.
Mais quant on répond "Oui" et qu'on passe en lecture seule, on dirait qu'il ne recommence pas la lecture du Sub Workbook_Open.
Ou alors, c'est cette partie du code qui ne marche pas:
Code:

1 2 If Workbooks(fichier).ReadOnly = True Then Call Init
Mais à ce moment là, je ne comprend pas comment peut apparaitre la MsgBox à la première ouverture et pas à la "réouverture"...
09/01/2014, 18h46
Daniel.C

Bonjour,

Le classeur ne se ferme pas, aussi la macrp "Workbook_Open" ne se réexécute pas (tu peux le vérifier en mettant un msgbox dans la macro "Workbook_BeforeClose".

Effectivement, j'ai testé et le fichier ne se ferme pas. Mais je n'ai pas réglé mon problème pour autant.

J'ai rajouté mon "Call Init" apres le ReadOnly=True et rien ne se passe (j'ai fait un test avec une MsgBox et effectivement elle n'apparait pas).
Code:

1 2 3 4 5 6 7 If MsgBox("Si le répertoire est ouvert pour consultation, merci de cliquer sur oui pour l'ouvrir en lecture seule!", vbYesNo + vbExclamation + vbDefaultButton1, "Ouverture en lecture seule") = vbYes Then Workbooks.Open Filename:=fichierlong, ReadOnly:=True Call Init Else Call Init End If
Du coup, est-ce qu'il y aurait une astuce pour que ma Sub Init se lance automatiquement après passage en lecture seule?

10/01/2014, 16h50
defluc

Ce que je voulais dire, c'est qu'il me semblait plus sûr de forcer l'ouverture en lecture seule si le classeur est déjà ouvert.

Pour le reste et sans garantie pour ton appli mais j'ai voulu faire un truc similaire il y a plusieurs années et j'ai placé mon code dans Auto_Open plutôt que dans Workbook_Open et cela fonctionnait.

Pas terrible, mais ça dépanne :

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    fichierlong = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    fichier = ActiveWorkbook.Name
    If MsgBox("Si le répertoire est ouvert pour consultation, merci de cliquer sur oui pour l'ouvrir en lecture seule!", vbYesNo + vbExclamation + vbDefaultButton1, "Ouverture en lecture seule") = vbYes Then
        Application.OnTime Now + TimeValue("0:0:3"), "init"
        Workbooks.Open Filename:=fichierlong, ReadOnly:=True
    End If
End Sub

14/01/2014, 13h56
mikoto96

Bonjour,

Merci pour les réponses.

Je vais privilégier la tempo qui me laisse le temps d'exécuter ma macro Init avant la mise en lecture seule. Ca marche très bien!

Je garde cependant l'Auto_Open en tête car je ne connaissais pas.

Encore merci!