protection a l'aide du clavier

[Steph]

Bonjour le forum

Comment deproteger une feuille a l'aide du clavier.

je voudrais Ctrl w deprotege la feuille et Ctrl x la reprotege

mon mot de passe est 381622

Merci de votre aide

Steph

 

[PascalXLD]

Bonjour

il va falloir trouver autre chose car

Ctrl W : ferme la fenêtre active

Ctrl X : couper

Bon courage

 

[andré]

Salut Steph et Pascal76,
Salut le forum,

Alt+o+e+f
Tenir la touche clavier Alt enfoncée et taper successivement les lettres oef.
Taper le mot de passe et valider.

Il y a aussi moyen d'enregistrer une macro en lui donnant un raccourci clavier (autre que ceux existants, par exemple par Ctrl+Shift) mais il n'est pas prudent de mettre le mot de passe dans une macro.

Â+

EDITION :

Oups, José, je ne t'avais pas vu !

Message édité par: andré, à: 07/02/2006 15:39

 

[Steph]

Rebonjour le forum
Merci de vos réponse

Ok W et X pose problème mais ce n'etait qu'un exemple je peux utiliser n'importe quelles autres lettres


Merci


Steph

 

[andré]

Salut,

Il suffit d'employer l'enregistreur de macro.
Moi je ne m'y connais pas du tout, mais voici ce que cela donne comme code :

Sub Macro1()
'
' Macro1 Macro
' protection de la feuille
'
' Touche de raccourci du clavier: Ctrl+x
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Il te suffit maintenant d'enregistrer la même pour déprotéger.
Je croyais que le mot de passe allait apparaître dans la macro !
Eh bien non.

Si quelqu'un peut me dire où il se cache, je m'endormirai un peu moins bête ce soir.
(Ne riez pas, je sais que ce n'est pas bien difficile !).

 

[Steph]

Merci andré, j'ai déja essayé cette méthode mais elle ne fonctionne pas je dois ecrire une macro avec le code de protection
ActiveSheet.protect password:='381622'

il me manque le morceau de code pour activer cela avec le clavier


Merci quand même

Steph

 

[PascalXLD]

Bonjour

essaies

Sub ProtectSheet()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:='381622'

End Sub

Sub UnprotectSheet()
ActiveSheet.Unprotect Password:='381622'

End Sub

Bon courage

 

[andré]

Salut José,

Je souhaite mettre ton idée en valeur.

Il y a depuis longtemps, façon de parler, que nous nous connaissons.
A part quelques-un(e)s d'entre nous (les trois miss), personne n'a de surnom, si ce n'est le pseudo qu'il s'est personnellement attribué.

Je propose donc de passer au stade suivant.
Je trouve que le pseudo de 'coyotte' est bien plus parlant que 'Pascal76'.
Je lui proposerai donc d'en changer.
N'ai-je pas aussi entendu parler d'un certain 'cactus' ?

Et si on en faisait un petit post à ce sujet sur le 'salon' ?

Faudrait encore que DavidXLD trouve le moyen de pouvoir modifier nos pseudos.
Mais là je lui fais confiance.

De beaux moments en perspective !

Â+

 

[Steph]

Bonjour le forum

Jose j'ai du mal a comprendre, j'ai essayé mais négatif


Steph