Vérouillage d'une feuille

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Janvier 2009

• #2

Re : Vérouillage d'une feuille

Bonjour Eny,

sans avoir réussi à ouvrir tes fichiers

dans ton code ( au début), tu déverrouilles tes feuilles
ensuite....... ApplicationScreenUpdating= False
et puis la suite de ton code,
ensuite, reverrouille tes feuilles,
et enfin, ........ApplicationScreenUpdating= True juste avant la fin de ta procédure

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 8 Janvier 2009

• #3

Re : Vérouillage d'une feuille

Bonjour Phlaurent Eny,
c'est pas facile avec ton archive fractionnée, poste sur Cjoint est tu colles le lien et tu auras des réponses
a+
Papou

 

Vote positif 0 Vote négatif

E

Eny

Guest

• 8 Janvier 2009

• #4

Re : Vérouillage d'une feuille

En fait, le fichier excel fait 180 Ko je crois. C'est pour ça que je l'ai fractionné en 3 pour pouvoir l'héberger sur mon poste. Pour l'ouvrir, il faut télécharger les 3 fichiers zip et en extraire 1 seul, normalement, winrar extrait les 3 pour recréer un fichier unique, qui n'est autre que mon fichier excel ! 🙂

J'ai essayé la solution de phlaurent55, mais ça ne change rien ! :s

Si vous n'arrivez toujours pas a télécharger et ouvrir le fichier ... je l'hébergerai ailleurs.

Merci pour votre aide déjà.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 8 Janvier 2009

• #5

Re : Vérouillage d'une feuille

Bonsoir Eny, Phlaurent , le forum
alors tu modifies comme suit et c'est bon.
si tu veux le fichier donnes moi une adresse email a+

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
Application.EnableEvents = False
ActiveSheet.PivotTables("Affectation comptable").RefreshTable
Application.EnableEvents = True
ActiveSheet.Protect
End Sub

Bonne soirée
a+
Papou

 

Vote positif 0 Vote négatif

E

Eny

Guest

• 8 Janvier 2009

• #6

Re : Vérouillage d'une feuille

Merci Paritec,

Ton code ne suffisait pas, car ça posait un autre problème à la première partie du code de la feuille également, mais j'ai copier :
- ActiveSheet.Unprotect
...
- ActiveSheet.Protect

La ou ça posait problème, et ça a tout réglé ! Merci 😉

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Janvier 2009

• #7

Re : Vérouillage d'une feuille

Bonjour Eny, le forum
oui mais j'ai modifié là ou tu disais que ça coincais après j'ai pas éssayé alors
l'essentiel et que cela marche, l'idée était là.
a+
Papou

 

Vote positif 0 Vote négatif