Verrouiller un classeur sauf une page

Mlanie_Angers

Copper Contributor

Sep 22, 2020

NikolinoDE

Merci pour votre réponse, mais de ce que je vois je ne peux pas verrouiller le classeur en entier sauf une feuille...

Je devrai me résigner à entrer un mot passe à chaque feuille.

Bonne journée

Bennadeau

Iron Contributor

Sep 22, 2020

Bonjour Mlanie_Angers,

Le code VBA suivant devrait pouvoir vous aider.

Par contre, au contraire d'une saisi de mot de passe régulière les caractères que vous entrerez ne seront pas masqué par un astérix.

Ce code va tout verouiller sauf la feuille nommé "DataInput" que vous pouvez modifier directement dans le code (6 lignes avant la fin)

Private Sub ProtectAll()
    Dim ws As Worksheet
    Dim userpassword1 As String
    Dim userpassword2 As String
    
    userpassword1 = ""
    userpassword2 = ""
        
PasswordInput:
    
    userpassword1 = InputBox("Type in the lock password here", "Type in the lock password here")
    userpassword2 = InputBox("Confirm the lock password here", "Confirm the lock password here")
    
    If Not userpassword1 = userpassword2 Then
        MsgBox "Your password doesn't match. Please try again"
        GoTo PasswordInput
    End If
    
    For Each ws In ActiveWorkbook.Worksheets
'Change the sheet name below to match the one you don't want to lock
        If Not ws.Name = "DataInput" Then
            ws.Protect Password:=UserPassword, DrawingObjects:=True, Contents:=True, Scenarios:=False
        End If
    Next ws
    
    ActiveWorkbook.Protect Password:=UserPassword, Structure:=True, Windows:=False
End Sub

Forum Discussion

Protéger une feuille de calcul