aide sur code lecture seule

[Wachoo31]

Bonsoir le forum

J'ai un bouton sur une feuille qui execute ce code :

Private Sub CommandButton1_Click()
Verrou = True
CreeBarreMenu
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
With C
.Visible = True
.Activate
End With

End Sub

Mon problème est que avant de passé en lecture seule, j'ai un message qui me demande si je veux enregistrer le fichier avent d'effectué le changement et là je voudrais supprimer cette alerte sans enregistrer

D'avance merci de vous penché sur mon problème

 

[JeanMarie]

Bonsoir

Essaye ceci

Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
Application.DisplayAlerts = True

@+Jean-Marie

 

[wachoo31]

Bonsoir Jean_Marie, Re le forum

Jean-Marie, tu est génial, non seulement ta proposotion est ce que je cherchais, mais le délai de réponse est plus que rapide.

C'est grace a toi et au gens comme toi que ce forum est génial

Encore merci et bonne soirée

Wachoo31