Bonjour
La suite du post du 5/1 8:23
J'ai bien fait ce que Vncnet m'a dit et ça marche (voir ci-dessous)
sauf que , lorsque je ferme le classeur et que je le réouvre,
le paramètre EnableSelection est revenu à 0.
Comment faire pour qu'il soit à 1 quand on ouvre ce classeur
et ce, quelque soit l'ordi sur lequel on l'ouvre ?
Merci d'avance
>Une autre possibilité est de faire la même manip, mais de
>n'autoriser que la sélection des cellules non
>verrouillées. C'est un paramètre que tu trouves dans les
>propriétés VB de la feuille de calcul : ouvre Visual Basic
>Editor d'un coup de Alt+F11, et dans les propriétés de la
>feuille, passe le paramètre EnableSelection à :
>1 - xlUnlockedCells
>Voilà, la ça devrait mieux convenir
Comment faire pour qu'il soit à 1 quand on ouvre ce classeur et ce, quelque soit l'ordi sur lequel on l'ouvre ?
Tu fais comme je te l'ai indiqué dans le fil précédent ! Réponse qui, d'ailleurs, ne t'avais pas beaucoup ému ......
Private Sub Workbook_Open() With Sheets("Feuil1") .Protect Contents:=True, UserInterfaceOnly:=True .EnableSelection = xlUnlockedCells End With End Sub
AV
denis
Excuse-moi, AV, mais ce n'est pas qu'lle ne m'a pas bcp émue, c'est que c'est du chinois, pour moi ! A part taper une formule, je ne sais pas faire qrand chose d'autre dans excel
"AV" a écrit dans le message de news:
Comment faire pour qu'il soit à 1 quand on ouvre ce classeur et ce, quelque soit l'ordi sur lequel on l'ouvre ?
Tu fais comme je te l'ai indiqué dans le fil précédent ! Réponse qui, d'ailleurs, ne t'avais pas beaucoup ému ......
Private Sub Workbook_Open() With Sheets("Feuil1") .Protect Contents:=True, UserInterfaceOnly:=True .EnableSelection = xlUnlockedCells End With End Sub
AV
Excuse-moi, AV, mais ce n'est pas qu'lle ne m'a pas bcp émue,
c'est que c'est du chinois, pour moi !
A part taper une formule, je ne sais pas faire qrand chose d'autre dans
excel
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
O4lOZuI9EHA.3840@tk2msftngp13.phx.gbl...
Comment faire pour qu'il soit à 1 quand on ouvre ce classeur
et ce, quelque soit l'ordi sur lequel on l'ouvre ?
Tu fais comme je te l'ai indiqué dans le fil précédent !
Réponse qui, d'ailleurs, ne t'avais pas beaucoup ému ......
Private Sub Workbook_Open()
With Sheets("Feuil1")
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
End With
End Sub
Excuse-moi, AV, mais ce n'est pas qu'lle ne m'a pas bcp émue, c'est que c'est du chinois, pour moi ! A part taper une formule, je ne sais pas faire qrand chose d'autre dans excel
"AV" a écrit dans le message de news:
Comment faire pour qu'il soit à 1 quand on ouvre ce classeur et ce, quelque soit l'ordi sur lequel on l'ouvre ?
Tu fais comme je te l'ai indiqué dans le fil précédent ! Réponse qui, d'ailleurs, ne t'avais pas beaucoup ému ......
Private Sub Workbook_Open() With Sheets("Feuil1") .Protect Contents:=True, UserInterfaceOnly:=True .EnableSelection = xlUnlockedCells End With End Sub
