Discussion :

[MarcoSam]

Bonjour,

J'essai de bloquer mes cellules entre chaque modification par mes macros, pour ce faire j'utilise les lignes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ActiveSheet.Unprotect
 
......
 
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True

Cela fonctionne très bien. Malheureusement lorsque l'utilisateur click sur une cellule bloquée, un popup apparaît lui indiquant la marche à suivre pour rendre actif les cellules ( commande ôter protection de la feuille, onglet révision, groupe modification).

Comment faire pour rendre impossible cette action?

En espérant avoir été assez clair,
un grand merci

MA

[alsimbad]

salut
je me rappelle plus de la syntaxe exacte, mais regarde du coté de
displayalert = false (ou true). par contre ce n'est peut etre que pour les message d'alerte
et tu as aussi la possibilité peut etre plus simple de décocher la case selectionner les cellule protégés au moment de la création de la protection

[Philippe Tulliez]

Bonjour,
Pour éviter le message d'alerte lorsque l'on sélectionne une cellule protégée, il suffit de décocher l'option Sélectionner les cellules verrouillées dans la boite de dialogue Protéger la feuille.
Ainsi seules les cellules non protégées sont accessibles.
De plus, il n'est pas utile de déprotéger et ensuite de reprotéger pour écrire dans une feuille protégée, il suffit en protégeant la feuille de donner la valeur True l'argument nommé UserinterfaceOnly
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil2")
 With sht
 .Protect Password:="toto", UserinterfaceOnly:=True
 .EnableSelection = xlUnlockedCells
 End With
 sht.Range("A1") = "Coucou"
End Sub

[MarcoSam]

Un grand merci pour cette réponse, ça va me faciliter grandement le travail!!!!