Protection de feuille active

[Amo]

Bonjour à tous,
je souhaiterai sur un fichier de travail excel que par défaut cela protège la feuille active et que par contre les autres ne soient pas protégées. Quelle macro dois je écrire et où dois je la placer ?
Dans l'attente je vous remercie d'avance pour vos réponses.

Amo.

 

[CBernardT]

Bonjour Amo et le forum,

Dans le module de feuille de chaque feuille, tu places les deux macros suivantes :


Private Sub Worksheet_Activate()
ActiveSheet.EnableSelection = xlNoSelection
ActiveSheet.Protect Password:='***', Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End Sub
Private Sub Worksheet_Deactivate()
ActiveSheet.EnableSelection = xlNoRestrictions
ActiveSheet.Unprotect Password:='***'
End Sub

La première protége la feuille à son activation ;
La seconde réalise l'inverse.

Un mot de passe est présent : trois étoiles ***

Cordialement

Bernard

 

[Amo]

Une fois encore, je ne suis pas déçu de la réponse apportée.
Merci Bernard passe un bon Week End.

 

[Tony]

Bonjour CBernardT
Dans un post du 23/09/2005, que je vient de découvrire en parcourant le forum.
Tu donne deux macros, et je n'arrive pas à déchifré les indications,
A la ligne ActiveSheet.EnableSelection = xINoSelection
le I est-il la lettre i majuscule ou la lettre l minuscule ou encor le chiffre 1.
merci pour la réponce à mon igniorance.
je pourrait peut-être résoudre un autre problème.
Tony