Protection automatique feuille Excel

Question

Je souhaiterais pouvoir mettre une protection automatique via mot de passe sur une feuille particulière dans un classeur Excel à la fermeture du fichier Je voudrais également à l'ouverture suivante avoir une boite de dialogue automatique qui s'affiche demandant le mot de passe afin de pouvoir déverrouiller la feuille sans passer par l'onglet de protection Enfin il faudrait que les personnes sans le mot de passe puissent tout de même accéder à cette feuille et pouvoir utiliser la fonction de filtre. Est-ce qu'il existerait une macro permettant d'obtenir ces différents paramètres ? Merci d'avance de vos informations...

Jean-Eric · Accepted Answer

Bonjour, Une petite mise à jour ? Cdlt...

Xmenpl · Answer

Un fichier exemple afin d'avoir le même modèle que votre fichier final nous faciliterait la tache...

Jean-Eric · Answer

Bonjour,
Un début de réponse !?
La feuille protégée est Sheet3 et le mot de passe @!7Mm9c62_#
Cdlt.

7lydecker.xlsm (21.71 Ko)

Option Explicit

Private Sub Workbook_Open()
    Application.Run "UnProtectWorksheet"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Run "ProtectWorksheet"
    If Me.Saved = False Then Me.Save
End Sub

Dim wb As Workbook
Dim ws As Worksheet

Private Sub ProtectWorksheet()
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets(3)
    ws.EnableAutoFilter = True
    ws.Protect _
            Password:=PWD, _
            userinterfaceonly:=True, _
            AllowFiltering:=True
    Set ws = Nothing: Set wb = Nothing
End Sub

Private Sub UnProtectWorksheet()
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets(3)
    ws.Unprotect
    Set ws = Nothing: Set wb = Nothing
End Sub

Jean-Eric · Answer

...