Verrouiller un classeur sauf une page

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