Message Protection

[BS]

Bonjour,

J'ai protegé la feuille de mon classeur et j'ai empeché la selection.

Maintenant, quand je clique à une endroit , j'ai le message qui me dit que les cellules sont protégées.
J'aimerai savoir comment éviter d'erreur ?

De plus quand on a ce message il ramène la vue à la cellule A1 ( j'avais selectionné A1 à l'ouverture du fichier) .
Comment laisser le fichier à l'endroit où il était ?

Merci d'avance de votre aide.

BS

 

[@+Thierry]

Re Salut BS, le Forum

Où je n'ai pas compris où c'est simple !

Le classeur Non Protégé...Une fois les cellules sélectionnée...

Menu / Format / Cellule => Onglet Protection : Décoché "Verouillée"

Re-Protéger le Classeur... Les cellules ainsi traitées sont accessibles...

Re Bon App
@+Thierry

 

[BS]

Bonjour @+Thierry,

Oui en efeft, je me suis mal exprimée !
En fait, j'aimerai garder mes cellules protégées mais supprimer le message d'erreur qui apparait quand on clique sur une cellule.

BS.

PS: je vais finir par t'appeler "mon sauveur" , tu est toujours présent pour un coup de main )) J'espère pouvoir te rendre l'appareil un jour !

 

[Pierre]

Bonjour,
Il me semble normal que si tu souhaites protéger ton fichier, excel en interdise les modifications. Je trouve aussi logique que l'utilisateur sache que par la protection imposée, il ne peut mofifier la cellule.
Je suis comme @+Thierry, (mais non pas sauveur...) je ne vois pas où le bas blesse.

(Et au fait c'est quoi cet appareil??;o)))))


Pierre

 

[@+Thierry]

Re BS, le Forum

Merci du compliment.

Et maintenant ta question est plus claire, donc voici une réponse claire aussi !

A ma connaissaince, je ne suis jamais arrivé à intercepter ce message...
Lien supprimé

Mais entretemps, j'ai eu recours à d'autres méthodes...

La meilleure que j'ai découvertes depuis peu est de faire ceci :

Sub ProtectionUnEnableSelection ()
With Worksheets(1)
.EnableSelection = xlUnlockedCells
.Protect Contents:=True
End With
End Sub

Tu n'auras aucun message d'allerte si le User tente de clicker en dehors des cellules non-protégées... Puisque qu'il ne pourra pas cliquer de toute façon sur ces cellules protégées!!! (radical !!!)

Sinon il y a aussi la méthode "ScrollArea" (mais c'est moins bien !! lol)
Lien supprimé

Bonne Soirée et Bon Week End à tous et à Toutes ! T.G.F.

@+Thierry


PS je profite de ce code pour refiler aussi un code cousin :

With Worksheets(1)
.EnableSelection = xlNoSelection
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Là seules les macro sont authorisées à travailler sue la feuille(1), celà peut servir....

Bye

 

[BS]

Coucou Pierre , @+Thierry, et le forum

j'ai tenté avec ton code (en fait je l'avais déjà indiqué dans la fenêtre propriétés ) :
With Worksheets(1)
.EnableSelection = xlNoSelection
.Protect Contents:=True, UserInterfaceOnly:=True
End With

mais même si la personne ne peut pas selectionner une cellule, le message peut néanmoins apparaitre si il y a un double-clic accidentel. Dans mon cas, par exemple, j'ai des Cases à cocher sur la feuille (et non pas dans un Usf) et du coup si la personne clique à coté , le message Protection apparait.

Enfin bon , finalement si il n'y a pas de solution, comme dirait Pierre, la personne est au moins au courant de la Protection )

Reste ma seconde question à résoudre puisque après le message, l'"attention" du fichier ce fait au début (au niveau de A1 probablement).
Je me demande si ça ne vient pas du fait que dans une procédure Workbook_open , j'avais ajouté :
Worksheets("Feuil1").Range("A1").Select

Quoiqu'il en soit, ça peut attendre lundi ! )
Je vous souhaite à tous un bon Week end !

BS

 

[@+Thierry]

Attention BS,

Je t'ai pas parlé de ".EnableSelection = xlNoSelection" pour le message !! Faut pas tout mélanger !! lol

Essaie ceci :

Private Sub Workbook_Open()
With Worksheets(1)
.Unprotect
.Range("A1:A10", "B5:E5").Locked = False
.EnableSelection = xlUnlockedCells
.Protect
.Range("A1").Activate
End With
End Sub

(Quoique ce n'est pas nécessaire que ce soit dans this workbook, mais bon !)

Bon Week End
@+Thierry

Bon Week End