Protection cellules sous VBA

Bonjour

Mon soucis actuel est comment verrouiller ou protéger les cellules de A1 à D7 sachant qu'en début de macro je unprotect le classeur et la feuille et protect idem en fin de macro

'Protection feuille OFF

ActiveWorkbook.Unprotect Password:="PROTECTION"

ActiveSheet.Unprotect "PROTECTION"

?????????????

' Protection ON

ActiveSheet.Protect "PROTECTION"

ActiveWorkbook.Protect Password:="PROTECTION"

Merci

Bonjour la bricole,

Voici ce que donne l'enregistreur de macro :

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1:D7").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.Locked = True
    Selection.FormulaHidden = False
End Sub

en code optimisé, ça donne ça :

Range("A1:D7").Locked = True

Cette propriété Locked correspondant à la propriété "Verrouillée" lorsque tu fais clic droit sur la cellule / Format de cellule / onglet Protection.

Bonjour

désolé mais cette fonction j'ai déjà testé et fonctionne pas.

vba-new cette fonction a mon avis sert pour neutraliser la protection de cellule quand la feuille est protégée, mais je voudrais l'inverse.

J'attire l'attention que ma feuille et carnet sont déprotégé pendant la macro et que pendant celle-ci je voudrait verrouiller les cellules de A1 à D7

Merci

Bonjour et bonne année,

Que penses-tu de l'idée de joindre un petit fichier avec des explications claires?

Cdlt.

voici comme tu demandes Jean-Eric

mot de passe pour cet exemple est PROTECTION en maj.

donc lors de l'exécution de la macro je voudrais rendre impossible de sélectionner les cellule de A1 à D7

Re,

Essaie ceci en début de procédure :

Set ACell = ActiveCell
    Set rng = Range("A1:D7")
    If Not Intersect(rng, ACell) Is Nothing Then
        MsgBox "La sélection n'est pas valide", vbOKOnly
        Exit Sub
    End If

ok parfait merci Jean-Eric

juste modifié Acell par ma variable

Merci