Ouverture lecture, écriture, mdp

Bonjour,

Private Sub Worksheet_Activate()

Dim Mdp As String

Mdp = Application.InputBox("Veuillez entrer le mot de passe :")
If Mdp <> "formationsD4" Then MsgBox "Accès refusé !": Sheets("Récapitulatif").Select

End Sub

Alors voilà, j'ai ce code sur une feuille(Diplome), j'aimerai que quand j'ouvre le fichier en lecture, il me demande le mdp au dessus mais par contre si le fichier est ouvert en écriture il ne me demande rien.

Cdlt.

Bonjour,

Ou si ce n'est pas possible, juste éviter de retaper plusieurs le mdp si le fichier reste ouvert.

Cdlt.

Bonjour,

pour tester si le classeur est ouvert en lecture seule :

MsgBox ThisWorkbook.ReadOnly

Espérant quecela puisse t'aider à avancer...

bonne journée

@+

[quote="Pierrot93"]Bonjour,

MsgBox ThisWorkbook.ReadOnly

Espérant quecela puisse t'aider à avancer...

quote]

Merci Pierrot93.

Juste à faire tout simplement ça :

Private Sub Worksheet_Activate()

If ThisWorkbook.ReadOnly Then MsgBox "Accès refusé !", vbOKOnly, "Attention": Sheets("Récapitulatif").Select

End Sub

Encore merci.