XL 2016 VBA - Accès aux options de protection de la feuille

[danielco]

Bonjour,

Est-ce qu'il y a un moyen de déterminer si les options :

- Sélectionner les cellules verrouillées
- Sélectionner les cellules déverrouillées

Sont cochées ? Si oui, comment ? (sauf à sélectionner une cellule pour voir)

Merci d'avance.

Daniel

 

[Phil69970]

Bonjour Danielco, le forum

Essaye ceci :

Sub Verif()

If Range("A1").Locked = True Then
        MsgBox "La cellule " & "A1" & " est verrouillée"
End If

End Sub

@Phil69970

 

[Phil69970]

Bonjour Danielco, le forum

En complément de mon post précèdent :
Tu testes la feuille et après tu testes la cellule.

Sub Verif()

If Worksheets("Feuil1").ProtectContents = True Then 'Teste la feuille
    MsgBox "Le contenu de la Feuil1 est protégé."
    If Range("A1").Locked = True Then 'Teste le cellule
        MsgBox "La cellule " & "A1" & " est verrouillée"
     Else
        MsgBox "La cellule " & "A1" & " est non verrouillée"
    End If
End If

End Sub

@Phil69970

 

[danielco]

Bonjour @Phil69970 ,
Je n'ai sans doute pas compris. Le fait que la cellule soit ou non verrouillée ne m'indique pas que j'ai le droit de la sélectionner.
Daniel

 

[Phil69970]

Bonjour Danielco, le forum

Cela permet par du code VBA de savoir si telle ou telle cellule est verrouillée ou non comme demandé dans le titre
"VBA - Accès aux options de protection de la feuille" et dans le corps de ta demande.

Est-ce qu'il y a un moyen de déterminer si les options :

- Sélectionner les cellules verrouillées
- Sélectionner les cellules déverrouillées

Sont cochées ? Si oui, comment ? (sauf à sélectionner une cellule pour voir)

Donc le code te permets bien de savoir si la feuille et la cellule X est ou non verrouillé après toujours par le code tu peux faire l'action que tu veux en sachant son état.
Les messages (msgbox) sont juste ici pour illustrer la réponse.

@Phil69970

 

[danielco]

Ce n'est pas une option de protection de la feuille mais une option de verrouillage de cellule.
Daniel

 

[danielco]

En fait, tu m'as donné la solution. C'est "ProtectContents" qui donne cette option.

Daniel

 

[Phil69970]

Pour moi ce que tu demandes est ici :

If Worksheets("Feuil1").ProtectContents = True Then 'Teste la feuille

Les options de protection de la feuille de calcul Excel

Pour protéger votre feuille de calcul, Excel propose les options suivantes :

fr.officetooltips.com

Et avec l'enregistreur de macro j'ai tout ça comme réponse :

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

@Phil69970

 

[danielco]

et plus précisément :

ActiveSheet.EnableSelection = xlUnlockedCells

pour la sélection des cellules déverrouilléess ou

ActiveSheet.EnableSelection = xlNoRestrictions

pour la sélection de toutes les celluless.
Daniel