Bouton protection

Question

Protéger une feuille n'est pas très compliquée. Mais je voudrai le faire par un bouton Macro en entrant un mot de passe. J'ai essayé par l'automatisme ça marche quand j'enlève la protection ça marche aussi mais quand je reclique sur le bouton pour protection il me demande plus de taper mon mot de passe. Il y aurait-il une solution? Merci d'avance de l'aide que vous pourriez m'apporter. Amicalement Noel...

CB60 · Answer

Voici un fichier qui mets un mot de passe à la sauvegarde de celui ci et une macro qui enleve les protections de toutes les feuilles...

CB60 · Answer

Re

surprenant le fichier je l'utilise depuis des années, j'ai seulement changé le mot de passe que j'avais par "cfn3cfn".

sinon voici les macros,

la premiere à mettre dans un module, permet d'enlever le Mot de passe, la seconde à mettre dans thisworkook, elle permet de remettre le mot de passe lorsque l'on fais une sauvegarde le fichier.

Sub MotDePasse()
    Dim Reponse As String
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Do While Reponse <> "cfn3cfn"
        Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
        If Reponse = "" Then
        MsgBox " Annulé "
        Exit Sub
        Else
     For Each sh In ThisWorkbook.Sheets
         sh.Activate
         ActiveSheet.Cells.Locked = True
         sh.Unprotect Password:="cfn3cfn"
     Next
        End If
    Loop
    MsgBox "OK, MdP correct."
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     Dim sh As Worksheet
     Application.ScreenUpdating = False
     For Each sh In ThisWorkbook.Sheets
         sh.Activate
         ActiveSheet.Cells.Locked = True
         sh.Protect Password:="cfn3cfn", userinterfaceonly:=True
     Next
     Sheets(1).Activate
     [a1].Select
     Application.ScreenUpdating = True
End Sub