Vérouillage d'une feuille

[Eny]

Bonjour à tous,

Certains d'entre vous m'ont particulièrement bien aidé quand à la réalisation du fichier Excel ci joint, et je les remercie.

Je suis maintenant confronté à un problème de verrouillage.
Sur une feuille de mon classeur, j'ai un code qui permet de mettre à jour automatiquement un TCD.
Le problème est que quand je souhaite verrouiller la feuille (pour empecher que les utilisateurs effacent des cellules ou des formules), la mise à jour automatique du TCD ne marche plus.

J'ai essayé en déverrouillant les cellules du TCD, mais le problème reste le même.

Quelqu'un aurait-il une solution svp ?

Merci

 

[phlaurent55]

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

 

[Paritec]

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

 

[Eny]

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à.

 

[Paritec]

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

 

[Eny]

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 😉

 

[Paritec]

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