Microsoft 365 Verrouiller des colonnes dans un document contenant une macro

[baguihome]

Bonjour,

J'ai créé un fichier avec une macro qui permet de colorer les cellules de colonnes D, E et F en utilisant des clics droits sucessifs. J'aimerai protéger les autres colonnes (A, B, C) avec un code de déverrouillage, mais quand je protège la feuille, la maccro ne fonctionne plus (erreur 1004).

Pourriez vous m'aider SVP ?

Merci d'avance

(ci-joint une feuille de mon fichier excel avec le code VBA)

 

[sylvanu]

Bonjour Baguihome,
Une possibilité est de protéger votre feuille Essai.
Et dans le code Déprotéger Faire l'action puis reprotéger.
Déverrouillage : Sheets("Essai").Unprotect
Reverrouillage : Sheets("Essai").Protect

 

[jm.andryszak]

Bonjour
Essaez ceci : UserInterfaceOnly := True
Sub Protege()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True
End Sub

 

[sylvanu]

Re,
Ou peut être tout simplement d'interdire tout accès aux colonnes DEF.
Le clic droit fait son office puis sélectionne la cellule à droite.
Un clic gauche sélectionne la cellule à droite, donc la cellule cliquée n'est pas accessible.

 

[baguihome]

Bonjour,

Merci beaucoup pour vos réponses. La dernière solution correspond bien à ce que je souhaite faire. Est-il possible, de la même façon, d'interdire tout accès aux lignes 1, 2 et 3 ?

Merci d'avance.

 

[sylvanu]

Bonjour,
Une possibilité avec :

If Not Intersect(Target, [D:F]) Is Nothing Or _
    Not Intersect(Target, [1:3]) Is Nothing Then

 

[baguihome]

C'est nickel !!!

Un très grand merci à toi pour ton aide !