Microsoft 365 Verrouiller des colonnes dans un document contenant une macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Avril 2023

• #2

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

 

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 6 Avril 2023

• #3

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

 

Pièces jointes

• essaiV1.xlsm

  18.7 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Avril 2023

• #4

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.

 

Pièces jointes

• essai (2).xlsm

  16.4 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

B

baguihome

XLDnaute Nouveau

• 7 Avril 2023

• #5

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Avril 2023

• #6

Bonjour,
Une possibilité avec :

VB:

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

 

Pièces jointes

• essai (2) (2).xlsm

  16.5 KB · Affichages: 2

Vote positif 0 Vote négatif

B

baguihome

XLDnaute Nouveau

• 11 Avril 2023

• #7

C'est nickel !!!

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

 

Vote positif 0 Vote négatif