Bloquer écriture de cellules en VBA
Bonjour !
J'ai pu trouver ces informations sur la FAQ d'Excel :
"Comment empêcher l'écriture dans une cellule ?
Sélectionner la (les) cellule(s).
Menu Données.
Validation
Dans la liste déroulante "Autoriser:", choisissez "Personnaliser".
Dans le champ "Formule:", saisissez =""
Cliquez sur le bouton OK pour valider."
C'est exactement ce qu'ile me faut mais j'aimerais l'adapter en VBA pour mon fichier. J'ai donc utiliser l'enregistrement de macros et j'ai obtenu ce ci:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Columns("K:K").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="="""""
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With |
J'ai par contre la selection qui s'affiche à l'écran ce qui visuellement n'est vraiment pas top. Y a t-il un moyen qu'il fasse la protection s'en qu'on s'en aperçoivent ? (Sans avoir la colonne K grisée)
