Bonjour le forum,

A l'ouverture de mon fichier, il y a une Msg Box qui demande à l'utilisateur s'il veut se mettre en lecture seule ou non.
S'il dit oui, pas de soucis, le fichier s'ouvre simplement en lecture seule, et tout fonctionne.

En revanche, s'il dit non, j'aimerai qu'un Userform s'affiche automatiquement.

Mon code est le suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
 
If MsgBox("Entrer en lecture seule? Vous aurez tout de même accès aux filtres", 4) = 6 Then _
Workbooks.Open Me.Path & "\" & Me.Name, ReadOnly:=True
 
If ThisWorbook.ReadOnly = False Then
UserForm_RULES.Show
End If
 
End Sub
quand je clique sur "Non" (donc ne pas se mettre en lecture seule), un message d'erreur s'affiche
Erreur d'exécution 424
La ligne 6 If ThisWorbook.ReadOnly = False Then s'illumine alors.

Quelqu'un aurait-il une solution ?

Merci d'avance