XL 2019 Protection classeur

[KTM]

Bonjour chers tous
J'utilise le code ci dessous pour protéger mon classeur.
j'aimerais savoir comment l'ajuster pour autoriser la sélection des cellules. Merci

Sub Protect()
Application.ScreenUpdating = False
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        With sh
            .Visible = xlSheetVisible
            .Unprotect Password:="0000"
            .EnableAutoFilter = True
            .EnableOutlining = True
            .Cells.Locked = False
            On Error Resume Next
            .Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
            .Cells.SpecialCells(xlCellTypeConstants, 2).Locked = False
            On Error GoTo 0
            .Protect Password:="0000", _
                     AllowFormattingCells:=True, _
                     AllowFormattingColumns:=True, _
                     AllowFormattingRows:=True, _
                     AllowInsertingColumns:=True, _
                     AllowInsertingRows:=True, _
                     AllowInsertingHyperlinks:=True, _
                     AllowDeletingColumns:=True, _
                     AllowDeletingRows:=True, _
                     AllowSorting:=True, _
                     AllowFiltering:=True, _
                     AllowUsingPivotTables:=True, _
                     userinterfaceonly:=True
        End With

 

[Bernard_XLD]

Bonjour Ktm, le forum

Vite fait, ajoute .EnableSelection = xlNoRestrictions à ton with

Bien cordialement, @+

 

[KTM]

Bonjour Ktm, le forum

Vite fait, ajoute .EnableSelection = xlNoRestrictions à ton with

Bien cordialement, @+

ok merci