Discussion :

[bonilla]

Bonjour a tous et a toute !
J'ai une question en Vba sur Excel.
J'ai mis en place une petite macro qui lorsqu'on active la feuille A ,deprotege les cellules de toutes les feuilles,fais un recalculate sur toutes les feuilles de mon classeur, pour ensuite les reproteger.

Ma question est la suivante :Est-il possible d'aller sur une feuille (pour reproteger toutes les cellules de ma feuille+FormulaHidden=False) sans activer la feuille (car sinon ca relance la macro vu qu'on 'active' la feuille A)

J'ai cherché mais j'ai pas trouvé .Quelqu'un aurait une solution?
Merci d'avance!

[ouskel'n'or]

Sans problème. Il suffit que tu la désignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Worksheets(NomDeLaFeuille).Cells.Locked = True
    Worksheets(NomDeLaFeuille).Cells.FormulaHidden = True
    Worksheets(NomDeLaFeuille).Protect DrawingObjects:=True, _
         Contents:=True, Scenarios:=True

A+

[bonilla]

Merci pour cette indication.

Mais y'a un petit hic

y'a 3 feuilles : A B C
qd on va sur la feuille A(donc worksheet_activate),ca lance la macro qui deprotege toutes les feuilles (A B C),recalcule ,et reprotege

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False

Avec ta macro ca marche ,mais a la fin ,je tombe sur la feuille C (car il va pas sur la feuille A en dernier)
Je pensais a 2 choses:

C'est possible de faire un truc pour me laisser sur la cellule A1 de la feuille A sans la reactiver?
ou alors ,dans le cas ou je fais pas d'activate sur les feuilles B et C (quand ca déprotege), mettre les memes lignes que ce que tu m'as donné ,mais j'arrive pas a mettre un Worksheets(NomDeLaFeuille).Cells.Select

Comment faire?

[conconbrr]

Honnêtement j'ai vaguement lu en diagonale mais je peux te proposer qqch qui marche pas mal.
Declare une variable booleenne en globale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
public boContinuer as boolean

Ensuite dans ta procédure événementielle de page, tu rajoutes au début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if bocontinuer=false then exit sub

Finalement dans ta procédure de protection tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
bocontinuer=false
TONCODE
bocontinuer=true

N'oublie pas de remettre bocontinuer a true car vu que c'est une variable globale elle garde sa valeur même à la fin des procédures. C'est un peu comme application.displayalerts ou application.screenupdating...

[ThierryAIM]

j'arrive pas a mettre un Worksheets(NomDeLaFeuille).Cells.Select

Comment faire?

ben evidement, .Select ne fonctionne que sur une feuille active et tu ne veux pas l'activer, alors, faudrait savoir ?

ouskelnor n'utilise pas de Activate ni de Select dans son code !

[ouskel'n'or]

Pour abonder dans le sens de Thierry (salut Thierry, tu vas ?) juste une question :

Worksheets(NomDeLaFeuille).Cells.Locked = True
Worksheets(NomDeLaFeuille).Cells.FormulaHidden = True
Worksheets(NomDeLaFeuille).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False

Tu verrais pas une différences, des fois ?