Discussion :

[rossemma]

Bonjour,
J'ai dans mon classeur plusieurs feuilles de calcul et une feuille de graphique.
J'ai crée ce petit code mais il n'affiche pas ma feuille de graphique, pq?
Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim ws As Worksheet
 
If TBPW.Value = PW Then
    Debug.Print PW
    ThisWorkbook.Unprotect Password:=PW
    For Each ws In ThisWorkbook.Worksheets
            ws.Visible = True
    Next ws
    Unload frm_Admin
Else
    With TBPW
        .PasswordChar = ""
        .Value = "Insert Password..."
    End With
End If

[Menhir]

Parce que les feuilles de graphiques ne sont pas des Worksheets mais des Charts.

Remplace Worksheets par Sheets dans ton For Each.

Lis ceci : https://docs.microsoft.com/fr-fr/off...i/excel.sheets

[rossemma]

cela ne fonctionne pas

[BENNASR]

bonjour
Pour cerner le prob ester simplement avec

Code :

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

1
2
3
4
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
            ws.Visible = True
    Next ws

[rossemma]

super cela fonctionne
j'avais pas déclaré la variable convenablement

[Menhir]

cela ne fonctionne pas

Si tu ne montres pas le code écrit, difficile de savoir ce que tu as fait de travers...
Tu as penser à modifier la déclaration de ws aussi ?

[rossemma]

voici mon code modifié et il fonctionne jusqu'à présent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim sh As Variant
 
If TBPW.Value = PW Then
    Debug.Print PW
    ThisWorkbook.Unprotect Password:=PW
    For Each sh In ThisWorkbook.Sheets
    sh.Visible = True
    Next
    Unload frm_Admin
Else
    With TBPW
        .PasswordChar = ""
        .Value = "Insert Password..."
    End With
End If

[rossemma]

j'ai fait +/- le même code pour l'effet inverse mais il y a une chose bizarre qui se produit.
Sur chaque feuille, il lance procédure activate alors que je veux juste les masquer.
ex : sur la sh_11xx, il lance le formulaire qui se trouve dans la procédure activate, etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CBUser_Click()
 
Dim ws As Variant
 
If TBPW.Value = PW Then
 
 
    For Each ws In ThisWorkbook.Sheets
        If ws.CodeName <> "sh_11xx" Or ws.CodeName <> "sh_12xx" Or ws.CodeName <> "sh_ab" Or ws.CodeName <> "sh_amif" _
        Or ws.CodeName <> "sh_amif" Or ws.CodeName <> "sh_dthw" Or ws.CodeName <> "sh_modif" Or ws.CodeName <> "sh_bdtablien" _
        Or ws.CodeName <> "sh_tablien" Or ws.CodeName <> "sh_cpk" Or ws.CodeName <> "grph_evomens" Then
            ws.Visible = False
        End If
    Next ws
 
    ThisWorkbook.Protect Password:=PW, Structure:=True, Windows:=False
    Unload frm_Admin
Else
   With TBPW
        .PasswordChar = ""
        .Value = "Insert Password..."
    End With
End If
 
End Sub