Code pour protection complète

[cococh8]

Bonjour à tous,

J'ai un petit souci avec un code VBA, si quelqu'un peut m'aider, ce serait super sympa! 🙂

Ma macro commence par une "unprotect..." et fini par un "protect...."

Cela me permet de lever la protection de la feuille le temps que la macro travaille.
En temps normal, la protection se passe bien mais uniquement si j'ai protégé la feuille une fois manuellement en décochant bien toutes les exceptions.

Sinon, si j'ouvre mon fichier et l'utilise directement, la protection fonctionne mais les exception de sélection (sélectionner les cellules verrouillées et non verrouillées)sont cochées; ce que je ne souhaite pas.

Avez-vous une idée de comment remédier à tout cela?

Merci beaucoup à tous d'avance et bonne matinée!

modif:


Voici le code VBA complet:

Sub droit2()
'
' droit2 Macro
' Macro enregistrée le 23/11/2009 par cochard
'

'
ActiveSheet.Unprotect
Range("O10").Select
Selection.Copy
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("K9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("I7:J7").Select
ActiveSheet.Protect
End Sub

 

[Pierrot93]

Re : Code pour protection complète

Bonjour cococh

Par sûr d'avoir bien saisi ton problème, mais essaye peut être en protégeant ainsi :

With Sheets("Feuil1")
    .EnableSelection = xlNoSelection
    .Protect "toto"
End With

bonne journée
@+

 

[cococh8]

Re : Code pour protection complète

Bonjour pierrot!

Voici un petit fichier qui explique mon problème.

Je ne vois pas bien comment utiliser ta macro

 

[jeanpierre]

Re : Code pour protection complète

Bonjour cococh8, Bonjour Pierrot,

As-tu fais cette manip.en utilisant l'enregistreur, ainsi tu verras ce qu'il te raconte.

Sur un classeur vierge, tu protèges ta feuille, tu coches ou décoches selon tes souhaits.

Il te suffira de reproduire son code en fin de macro et tester.

Bonne journée.

Jean-Pierre

 

[Pierrot93]

Re : Code pour protection complète

Re, bonjour Jean-Pierre🙂

positionnes le code que je t'ais donné dans ta macro, en lieu et place de cette ligne :

ActiveSheet.Protect

nom de la feuille à adapter...

@+

 

[cococh8]

Re : Code pour protection complète

Super, ton code marche bien.

merci beaucoup.

Par contre, j'aimerais l'intégrer dans la macro d'ouverture du classeur car elle ne fonctionne que lorsque j'ai activé au moins une fois une macro.

Savez ou se trouve la macro de démarrage?

modif:

C'est bon j'ai trouvé (this workbook....)

 

[Pierrot93]

Re : Code pour protection complète

Re,

placé dans l'événement "open" du module "thisworkbook" en utilisant l'argument "userinterfaceonly", tu n'as plus besoin de déprotéger / protéger lors de l'excécution de macro ...

Option Explicit
Private Sub Workbook_Open()
With Sheets("Feuil1")
    .EnableSelection = xlNoSelection
    .Protect "toto", userinterfaceonly:=True
End With
End Sub

@+

 

[cococh8]

Re : Code pour protection complète

exacte! cela allège les macros en plus!
merci beaucoup