XL 2016 Verrouiller les formules de plusieurs feuilles excel sans verrouiller les macros et les boutons

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #2

Bonjour kamal.elkakiri,
Une petite macro :

VB:

Sub VerrouilleToutesFeuilles()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
    Sheets(Sh.Name).Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Next Sh
End Sub

Elle protège les feuilles sans les boutons.
On peut ensuite l'enrichir pour faire exactement ce qu'on désire.

 

Vote positif 0 Vote négatif

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #3

Bonjour Sylvanu
ce code marche bien pour deux feuilles mais pour un troisième avec le même type de checkbox que j’utilise pour masquer ou démasquer des colonnes, j'ai ue erreur 1004 : impossible de définir la propriété Hidden de la classe Range et le code s’arrête à la ligne : Columns.Hidden = False
Vois tu une chose qui pourrait poser problème car je n'arrive pas à détecter ou est l'erreur état donné que ce même code fonctionne très bien pour toutes mes feuilles.
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Columns.Hidden = False
Range("J:R").EntireColumn.Hidden = CheckBox1
Application.ScreenUpdating = True
End Sub

Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #4

Re Bonjour,
Quel rapport entre protéger de multiples feuilles et avoir l'erreur que vous décrivez ?
Que peux bien vouloir dire : Range("J:R").EntireColumn.Hidden = CheckBox1 ?
Pouvez vous m'éclairer ?

 

Vote positif 0 Vote négatif

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #5

Bonjour Sylvanu
le code ci dessous me permet de masquer et démasquer les colonnes de J à R via une checkbox1.
J'ai trois feuilles excel dans lesquelles je donne la possibilité de cacher certaines colonne (en fonction des pages).
Mon souci c'est qu'avec le code que vous m'avez donné, j'arrive très bien à protéger les formules et les macros (dont celle pour masquer et démasquer les colonnes) fonctionnent bien sauf pour une feuille ou l'erreur se produit sur la 3e ligne ( Columns.Hidden = False)


Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Columns.Hidden = False
Range("J:R").EntireColumn.Hidden = CheckBox1
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #6

J'ai testé ça :

VB:

Sub essai()
    Columns.Hidden = False
End Sub

Il y a erreur 1004 ... si la feuille est protégée.

 

Vote positif 0 Vote négatif

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #7

Sur ce code je ne peux pas définir les colonnes à masquer.
Ce qui est bizarre c'est que le code tu vous m'avez donné fonctionne sans problème sur deux feuilles du même classeur et pas sur la troisième

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #8

... pouvez vous transmettre un petit fichier.
Ma macro marche sur toutes les feuilles. Donc si ça coince sur l'une d'elles c'est qu'in y a un autre souci spécifique à cette feuille.

 

Vote positif 0 Vote négatif

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #9

Bonjour Sylvanu
Le voici

 

Pièces jointes

• Contrats_Modalité version25052020.xlsm

  439.1 KB · Affichages: 11

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #10

Si vos feuilles sont protégées en amont, il faut les déverrouillées avant de travailler dessus, et penser à les reverrouiller après.
J'ai fait cet essai qui semble donner satisfaction.

VB:

Private Sub CheckBox1_Click()
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    Columns.Hidden = False
    Range("M:U").EntireColumn.Hidden = CheckBox1
    Application.ScreenUpdating = True
    ActiveSheet.Protect
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #11

Comme dit précédemment ce n'est pas que Checkbox1 soit verrouillé mais que vous essayez de toucher à la page qui , elle, est verrouillée.
Si vous ne faites rien d'autre que de masquer des colonnes alors lors de la protection, acceptez qu'on puisse toucher aux colonnes :

Lors de la protection, il y a plein de paramètres possibles. Dans votre cas cocher Format de ligne et de Colonne.
dans ce cas, la macro peut rester dans l'état.
Ce qui vous fait deux solutions pour résoudre votre problème.

 

Vote positif 0 Vote négatif

Solution

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #12

Bonjour Sylvanu
Après avoir cocher les modifications des lignes et des colonnes, cela fonctionne très bien.
Merci beaucoup

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2020

• #13

Ce n'est pas obligatoirement la bonne solution dans votre cas.
Car pour revenir au post #1 vous allez rendre les colonnes et lignes modifiables sur toutes les pages si vous utilisez une macro globale. Ce n'est peut être pas ce que vous voulez.
L’avantage de la macro du post #10 c'est que vous décidez sur quel page et à quel moment vous déverrouillez une page.
Tout dépend de votre application.

 

Vote positif 0 Vote négatif

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #14

Dans ce cas, dois je l'attacher à un bouton?

 

Vote positif 0 Vote négatif

K

kamal.elkakiri

XLDnaute Nouveau

• 25 Mai 2020

• #15

En plus, le post 10 ne protège pas les formules.

 

Vote positif 0 Vote négatif