Empêcher la sélection de cellules
Le
rmill...

Bonjour,
J'utilise le code ci-dessous. Mais dans celui-ci je fais le tour de toutes =
les feuilles. N'y aurait-il pas un moyen d'en faire de même sans faire=
le tour des feuilles comme pour tout le classeur d'une seule commande?
Merci à l'avance.
'***************************************************
For Each Sheet In Workbooks(Var_NomFichier).Sheets
If Sheet.EnableSelection = xlNoRestrictions Then
Sheet.Unprotect "allo"
Sheet.EnableSelection = xlNoSelection
Sheet.Protect "allo"
End If
Next
J'utilise le code ci-dessous. Mais dans celui-ci je fais le tour de toutes =
les feuilles. N'y aurait-il pas un moyen d'en faire de même sans faire=
le tour des feuilles comme pour tout le classeur d'une seule commande?
Merci à l'avance.
'***************************************************
For Each Sheet In Workbooks(Var_NomFichier).Sheets
If Sheet.EnableSelection = xlNoRestrictions Then
Sheet.Unprotect "allo"
Sheet.EnableSelection = xlNoSelection
Sheet.Protect "allo"
End If
Next
Bonjour,
Même si tu n'as qu'une feuille dans un classeur, la procédure va
s'exécuter correctement.
Une autre manière d'écrire la même chose :
For Each Sheet In Workbooks(Var_NomFichier).Sheets
With Sheet
If .EnableSelection = xlNoRestrictions Then
.Unprotect "allo"
.EnableSelection = xlNoSelection
.Protect "allo"
End If
Next
Si tu veux le faire pour une seule feuille:
A ) si tu sais le nom de la feuille
With Workbooks(Var_NomFichier).Worksheets("SonNom")
If .EnableSelection = xlNoRestrictions Then
.Unprotect "allo"
.EnableSelection = xlNoSelection
.Protect "allo"
End If
End with
Au lieu d'écrire le nom de la feuille, tu peux aussi choisir d'utiliser
son index, c'est-à-dire sa position dans l'ordre des feuilles.
With Workbooks(Var_NomFichier).Worksheets(1)
Le reste du code.
MichD
Merci.