Lecture seule

[Tungstene]

Bonjour,

Pour des fichiers qui doivent être ouverts, je veux les mettre es lecture seule, afin que l'utilisateur puisse ne pas modifier quoique ce soit.

Or est il possible de lui dire par un code VBA de s'ouvrir en lecture seule, et de répondre systématiquement oui lorsqu'il m'informe que ce fichier va s'ouvrir en lecture seule, et que je dois donc choisir entre oui ou non?

Merci

 

[Temjeh]

Bonjour le forum
Bonjour Tungstene

À mettre dans thisworkbook pour un évennement à l'ouverture

Private Sub Workbook_Open()


Select Case MsgBox(' Voulez-vous mettre en lecture seule ? ', vbYesNo)

Case vbYes
For Each Sh In ActiveWorkbook.Worksheets
Sh.Protect
Next

Case vbNo
For Each Sh In ActiveWorkbook.Worksheets
Sh.Unprotect
Next

End Select
End Sub

A+

Temjeh

 

[Tungstene]

Ok mais je me suis peut ête mal expliqué.

En fait je sélectionne l'option lecture seul lorsque je fait enregistrer sous, option générale, lecture seule.

Mais qd j'ouvre mon fichier excel m'inforem de l'ouverture en lecture seule et me demande de confirmer ou non.

Ce que je veux c'est zappé cette étape, de manière à ce que systématiquement la réponse soit oui.