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

Lutchiano
Messages postés
3
Date d'inscription
jeudi 5 janvier 2006
Statut
Membre
Dernière intervention
6 janvier 2006
- 6 janv. 2006 à 08:00
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
- 7 janv. 2006 à 19:20
Salut à tous, j'ai besoin d'aide car j'ai un problème avec macro. En fait, ce macro consiste à masquer des lignes inutiles dans une feuille protegée.
lorsque j'enleve la protection de la feuille, le Macro marche mais dans le cas contraire le Macro est bloqué.

Merci de votre aide



<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTABLE="of

3 réponses

cs_eldim
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
6 janv. 2006 à 09:29
Bonjour,
Débloque ta feuille par macro
Ensuite Exécute ta macro
Puis rebloque ta feuille par macro

(Pour connetre la syntaxe, lance l'enregistrement de macro puis bloque et débloque ta feuille, arrete l'enregistrement, et va voir le module généré)
0
Lutchiano
Messages postés
3
Date d'inscription
jeudi 5 janvier 2006
Statut
Membre
Dernière intervention
6 janvier 2006

6 janv. 2006 à 09:46
Merci de cette reponse, mais mon problè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ès (Ce n'est qu'une partie) :

Private Sub ZoneCombiné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
0
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
4
7 janv. 2006 à 19:20
Lut,

Private Sub ZoneCombinée3_QuandChangement()


With Sheets( "Feuil2" )


If .Range( "A1300" ) = 1 Then


'On enlè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é
0