Bonjour,

J'ai un petit souci inattendu avec la protection d'une feuille Excel qui est protégée par un petit bout de VBA qui déverrouille toute les cellules puis qui verrouille les cellules qui contiennent une formule.
Lorsque je copie/colle une valeur extérieure au classeur sur une cellule sans formule (donc dévérouillée), Madame se verrouille "toute seule" sans raison.

Je planche là dessus mais un petit coup de main m'aiderait bien.

Voilà le code qui s'exécute à l'ouverture du classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = Sheets("Adhérents")
    'if ws.Protect
    ws.Unprotect
    With ws
        .Cells.Locked = False
        .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
        .Protect UserInterfaceOnly:=True, _
                    AllowFormattingCells:=True, _
                    AllowFormattingColumns:=True, _
                    AllowInsertingHyperlinks:=True, _
                    AllowFiltering:=True
        .EnableSelection = xlUnlockedCells
    End With
End Sub
Merci.