Protection onglets Au Secours!

[Jack68]

Bonsoir

Je viens de découvrir ce Forum avec beaucoup de plaisir, peut-être que quelqu'un pourra m'aider.

J'ai un classeur avec 35 Onglets que je voudrais proteger et deproteger avec une macro. J'ai lancé une nouvelle macro, j'ai protegé tous mes onglets un par un et j'ai décoché "selectionner les cellules vérouillées", puis j'ai arrêté l'enregistrement. Jusque là tous va bien, celà fonctionne, mais dès que je ferme mon classeur et que je l'ouvre à nouveau 😡, mes onglets sont toujours protégés mais l'on peut à nouveau selectionner les cellules vérouillées 😡! C'est agaçant car à chaque fois qu'on clique sur une cellule vérouillée, il y a ce message "la cellule est protégée ou en lecture seule".
J'ai essayé plusieurs fois mais toujours le même résultat, je dois avouer que je ne suis pas habitué aux macros et en prime nul en anglais.
Merci d'avance pour votre aide 🙂
Jacky

 

[JCGL]

Re : Protection onglets Au Secours!

Bonjour à tous,
Bienvenue à Jack68,

Pas de réponse depuis 18:43... pas glop

Un essai avec :

Sub Test()
Dim WS As Worksheet

For Each WS In Worksheets
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
Next WS
End Sub

A placer dans un module et à appeler par F8 et Test et Exécuter

Si cela fonctionne, on automatisera la procédure à l'ouverture du classeur

Bien évidement sans certitude de réussite mais je ne voulais pas te laisser sans réponse... pour une première question

A+

 

[Jack68]

Re : Protection onglets Au Secours!

Salut JCGL

Merci beaucoup, Super sympa de ta part 🙂🙂
J'ai fais le Test mais malheureusement, le résultat est identique, à la réouverture du classeur les celulles sont selectionable malgré la protection 😡😡

@+
Jacky

 

[Dull]

Re : Protection onglets Au Secours!

Salut Jack68, Jean-Claude 🙂, le Forum

Essaye la Procédure de JCGL légèrement modifiée dans Private Sub Workbook_Open()
si j'ai bien compris

Private Sub Workbook_Open()
Dim WS As Worksheet

For Each WS In Worksheets
    WS.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    WS.EnableSelection = xlUnlockedCells
Next WS
End Sub

Bonne Journée

PS: JC j'avais pas vu

A placer dans un module et à appeler par F8 et Test et Exécuter

Si cela fonctionne, on automatisera la procédure à l'ouverture du classeur

😱 désolé

 

[Jack68]

Re : Protection onglets Au Secours!

Merci les gars 🙂

Mais Excel a décidé qu'il faut remettre la coche à chaque ouverture!😱
C'est un truc de fou 😕.
Amusez vous à faire le test. C'est ragant 😡

@+
Jacky

 

[JCGL]

Re : Protection onglets Au Secours!

Bonjour à tous,
Salut Dull🙂,

Jack68 : Peux-tu tester ce fichier ?

Normalement toutes les cellules de toutes les feuilles sont protégées...

Si ce n'est pas le cas, précise nous ta version d'XL

A+

 

[Jack68]

Re : Protection onglets Au Secours!

Bonjour JCGL, bonjour à tous les autres

Merci pour le mal que tu te donnes 🙂
Alors résultat, sur ton fichier impeccable, ca fonctionne, mais
sur le mien, chaque fois que j'ouvre même chose.
Parcontre je me suis rendu compte d'une chose. Ce ne sont que les classeurs qui ont des liaisons avec d'autres qui ne fonctionnent pas.
Le tout est un dossier de pointage d'heures, Janvier à Décembre avec 35 Onglets par mois et bizarrement Janvier fonctionne avec ton test et tout le reste non et le premier mois est le seul qui n'a pas de liaison.
Est ce que le Forum accepte des fichiers de 27Mo?

@+
Jacky

 

[JCGL]

Re : Protection onglets Au Secours!

Re,

Où as-tu mis le code ?

Dans quel module ?

Ce que je te conseille :

Mettre le code :

Option Explicit

Sub Test()
Dim WS As Worksheet

For Each WS In Worksheets
    WS.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    WS.EnableSelection = xlUnlockedCells
Next WS
End Sub

dans un module :



et ce code :

Option Explicit

Private Sub Workbook_Open()
Call Test
End Sub

dans le ThisWorkBook :



Si cela ne fonctionne toujours pas , APRES AVOIR FERME ET ENREGISTRE TON FICHIER et l'avoir ré ouvert, je ne vois rien d'autre à faire mais pense à communiquer ta version XL...

A+

 

[Jack68]

Re : Protection onglets Au Secours!

Salut JCGL

J'ai suivi tes indications mais j'ai du mettre ces formules dans chaque module de chaque mois (Normal?), mais ca fonctionne. 🙂🙂
J'ai XL Pro 2003

Jacky

Je me rends compte que je suis un tout petit avec Excel, il me reste bcp a apprendre 🙂