Discussion :

[mikoto96]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"...

[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".

[mikoto96]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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.