OVH Cloud OVH Cloud

[XL97] question pratique sur Scrollarea

2 réponses
Avatar
Orel
bonjour MPFE !

je suis a la phase "protection" de ma petite appli XL , et comme je ne peu
pas utiliser la fonction protection ,
je me suis rabattu sur la fonction scrollarea que j'aime bien d'ailleurs ...

en effet j'ai limité ma "region cliquable" a par exemple : A1:F20
ca c'est ok !

mais je voudrai que l'on ne puisse pas la modifier apres !!!
car la, en faisant propriété sur la feuille on peu zapper le scrollarea et
ca me plais pas .

donc comment faire pour OBLIGER COUTE que COUTE mon scrollarea a A1:F20 ou
tout du moins cacher la maniere de le changer ,le plus profond possible dans
les entraille d'excel ??

merci pour vos aides .

orel

2 réponses

Avatar
papou
Bonjour Orel
Verrouille ton projet VBA avec un mot de passe
Cordialement
Pascal

"Orel" <pub[ n o S p a m ] AT owel.ft.st> a écrit dans le message de
news:
bonjour MPFE !

je suis a la phase "protection" de ma petite appli XL , et comme je ne peu
pas utiliser la fonction protection ,
je me suis rabattu sur la fonction scrollarea que j'aime bien d'ailleurs
...


en effet j'ai limité ma "region cliquable" a par exemple : A1:F20
ca c'est ok !

mais je voudrai que l'on ne puisse pas la modifier apres !!!
car la, en faisant propriété sur la feuille on peu zapper le scrollarea et
ca me plais pas .

donc comment faire pour OBLIGER COUTE que COUTE mon scrollarea a A1:F20 ou
tout du moins cacher la maniere de le changer ,le plus profond possible
dans

les entraille d'excel ??

merci pour vos aides .

orel




Avatar
michdenis
Bonjour Orel,

Voici une façon de faire : à copier dans le ThisWorkbook.

'-----------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name = "Feuil1" And _
Intersect(Target, Range("A1:G25")) Is Nothing Then
Sh.ScrollArea = "A1:G25"
End If

End Sub
'-----------------------------

Cependant, via la fenêtre des propriétés de la feuille, il est toujours possible de modifier la propriété ScrollArea...
et ce même si la feuille est protégée. Ce faisant, l'utilisateur pourra toujours en utilisant les ascenseurs "vertical
et horizontal" visualiser le contenu de la feuille. La procédure va remettre la propriété "ScrollArea" à sa valeur
initiale dès que l'usager sélectionnera une cellule à l'extérieur de la plage définie en supposant s'il s'avise
d'utiliser la fenêtre des propriétés pour en modifier l'étendue.

Pour rendre la chose totalement impossible, Il faudrait que tu crées ton propre menu avec les commandes que tu juges
essentiels et que tu fasses disparaître toutes les barres d'outils. Est-ce que cela en vaut la peine ? À toi d'y
répondre !!!


Salutations!







"Orel" <pub[ n o S p a m ] AT owel.ft.st> a écrit dans le message de news:
bonjour MPFE !

je suis a la phase "protection" de ma petite appli XL , et comme je ne peu
pas utiliser la fonction protection ,
je me suis rabattu sur la fonction scrollarea que j'aime bien d'ailleurs ...

en effet j'ai limité ma "region cliquable" a par exemple : A1:F20
ca c'est ok !

mais je voudrai que l'on ne puisse pas la modifier apres !!!
car la, en faisant propriété sur la feuille on peu zapper le scrollarea et
ca me plais pas .

donc comment faire pour OBLIGER COUTE que COUTE mon scrollarea a A1:F20 ou
tout du moins cacher la maniere de le changer ,le plus profond possible dans
les entraille d'excel ??

merci pour vos aides .

orel