Bonjour à tous,

J'ai mis en place ce code qui permet de mettre une protection à la désactivation de certaines feuilles. Le mot de passe et ensuite retiré avec le 2ème code qui se trouve être dans un formulaire.
Est-il possible de mettre ces 2 codes dans un module qui servira pour toutes les feuilles concernées.
Le formulaire de mot de passe est appelé par un bouton à chaque fois que l'utilisateur souhaitera modifier la feuille activée.
Merci par avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True, userinterfaceonly:=True
        Application.ScreenUpdating = True
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
If Me.TxtMpasse.Text <> Sheets("Données").Range("Mpasse") Then
MsgBox ("Mot de passe incorrect... Veuillez recommencer !")
Me.TxtMpasse.SetFocus
Else
    Sheets("Données").Visible = True 'le nom de la feuille sera différente en fonction de l'ouverture souhaitée
    Sheets("Données").Activate
    Sheets("Données").Unprotect 'On enlève la protection de la feuille - Protection mise au Desactivate
End If
Unload Me
End Sub