Protection de feuille par macro

[Rick@]

Bonjour,

J'ai peut-être mal cherché mais pas trouver réponse satisfaisante...

Voilà: J'ai enregistrer deux petites macros, une pour protéger et l'autre pour dé-protéger la feuille sélectionnée. Le problème c'est que tous peuvent déprotéger en sélectionnant OUTIL/PROTECTION/ÔTER LA PROTECTION, et sans mot de passe...

Voici les macros:
Option Explicit

Sub Julie11Dpro()
'
' Julie11Dpro Macro
' Macro enregistrée le 2012-06-20 par bh7997
'
ActiveSheet.Unprotect
End Sub

Sub Julie11Pro()
'
' Julie11Pro Macro
' Macro enregistrée le 2011-04-06 par bh7997
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merci à l'avance.

 

[tototiti2008]

Re : Protection de feuille par macro

Bonjour Rick,

Alors peut-être envisager de mettre un mot de passe ?

Sub Julie11Dpro()
'
' Julie11Dpro Macro
' Macro enregistrée le 2012-06-20 par bh7997
'
ActiveSheet.Unprotect Password := "toto"
End Sub

Sub Julie11Pro()
'
' Julie11Pro Macro
' Macro enregistrée le 2011-04-06 par bh7997
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password := "toto"
End Sub

 

[Rick@]

Re : Protection de feuille par macro

Bonjour Rick,

Alors peut-être envisager de mettre un mot de passe ?

Bonjour Tototiti2008,

J'ai enregistrer cette macro en mode "enregistrer une macro" et j'ai bien mis le mot de passe (Julie11) 2 fois comme demandé... Mais l'enregistreur de macro ne semble pas l'indiquer... Excuse mon ignorance...

 

[tototiti2008]

Re : Protection de feuille par macro

Re,

Désolé si je t'ai froissé 🙂
En effet, l'enregistreur n'enregistre pas les mots de passe de protection
La bonne habitude après avoir enregistré et découvert une nouvelle méthode VBA (comme Protect ou Unprotect), c'est de sélectionner le mot dans le code puis d'appuyer sur la touche F1
L'aide VBA te donnera des exemples de son utilisation, ainsi que les arguments que l'on peu fournir à la méthode (dont l'argument Password)

 

[Rick@]

Re : Protection de feuille par macro

Pas froissé du tout, bien au contraire! J'apprécie tellement d'apprendre et tu y as contribué à ton tour...

Merci pour le truc,

Au plaisir!!!