Macro bloqué dans une feuille Excel protégée.

Question

Salut &#224; tous, j'ai besoin d'aide car j'ai un probl&#232;me avec macro. En fait, ce macro consiste &#224; masquer des lignes inutiles dans une feuille proteg&#233;e.
lorsque j'enleve la protection de la feuille, le Macro marche mais dans le cas contraire le Macro est bloqu&#233;.

Merci de votre aide



<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTABLE="of

cs_eldim · Answer

Bonjour,
D&#233;bloque ta feuille par macro
Ensuite Ex&#233;cute ta macro
Puis rebloque ta feuille par macro

(Pour connetre la syntaxe, lance l'enregistrement de macro puis bloque et d&#233;bloque ta feuille, arrete l'enregistrement,  et va voir le module g&#233;n&#233;r&#233;)

Lutchiano · Answer

Merci de cette reponse, mais mon probl&#232;me, c'est que je ne veux pas que les autres utilisateurs de ce fichier touchent aux formules.
j'ai utiliser la formule si apr&#232;s (Ce n'est qu'une partie) :

Private Sub ZoneCombin&#233;e3_QuandChangement()
Sheets("Feuil2").Select
If Range("A1300") = 1 Then
    Rows("8:248").Select
    Selection.EntireRow.Hidden = False
    Range("A7").Select
    Rows("21:98").Select
    Selection.EntireRow.Hidden = True
       Range("F10:F17").Select
    Selection.Interior.ColorIndex = 6
    Range("A7").Select
    Else

Merci de votre aide

valtrase · Answer

Lut,
  
Private Sub ZoneCombin&#233;e3_QuandChangement() 


  With Sheets( "Feuil2" ) 


    If .Range( "A1300" ) = 1 Then 


      'On enl&#232;ve la protection de la feuille 


      .Unprotect Password:= "TonMotDePasse" 


      .Rows( "8:248" ).EntireRow.Hidden = False 


      .Rows( "21:98" ).EntireRow.Hidden = True 


      .Range( "F10:F17" ).Interior.ColorIndex = 6 


      .Range( "A7" ).Select 


      '........... 


      '........... 


      ' et on la remet 


      .Protect Password:= "TonMotDePasse" 


    Else 


    End With 


  End Sub 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;