Discussion :

[aramge]

Bonjour,

je dispose d'un classeur contenant plusieurs pages. Certaines de ces pages ne sont autorisées qu'à un public restraint, il a donc fallu que je les caches à l'ouverture du classeur. Et pour l'afficher, j'ai utilisé un mot de passe :

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
Option Explicit
 
Sub autorisation()
    Dim i As Integer, j As Integer, temp As String
    i = 0
    temp = InputBox("Veuillez entrer votre mot de passe :")
    If Not IsNumeric(temp) Then Exit Sub
        i = CInt(temp)
'''''' autorisation CODIR '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If i = 12 Then
        Sheets("CODIR").Visible = True
        ThisWorkbook.Worksheets("CODIR").Activate
    Else
        MsgBox "Vous n'avez pas accès à la page CODIR.", vbExclamation
    End If
End Sub

Mon problème est qu'il est possible d'afficher cette page grâce à la barre d'outil. J'aimerai pouvoir la rendre inaccessible sans pour autant vérrouiller les autres feuilles.

Merci.

[Catbull]

Tu peux cacher ta feuille en définissant la propriété Visible de la feuille à xlSheetVeryHidden. Cela suffit-il à résoudre ton problème?

[aramge]

Je ne vois pas où et comment il faut faire;
Excuse moi, je ne pas le xlsheetveryhidden, ça sert à quoi?

[Catbull]

Les objets WorkSheets possèdent trois valeurs possibles pour la propriété Visible :

- xlSheetVisible : la feuille est visible
- xlSheetHidden : la feuille est cachée mais accessible via la barre de menu
- xlSheetVeryHidden : la feuille est caché et inaccessible

[aramge]

Salut,

j'ai écrit le code comme ça mais ça Boggue, j'ai du mal le taper mais je ne vois pas où est mon erreur.

Code :

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

Sheets("CODIR").xlSheetVeryHidden = True

j'ai aussi essayé avec Worksheets mais ça donne la même chose.

Merci.

[Catbull]

Je ne suis pas sûr que tu ais lu entièrement mon message :

Tu peux cacher ta feuille en définissant la propriété Visible de la feuille à xlSheetVeryHidden. Cela suffit-il à résoudre ton problème?

1. Je parle de la propriété Visible et de la valeur xlSheetVeryHidden et non de la propriété xlSheetVeryHidden et de la valeur True.

2. Il existe une aide associée à Excel.

Il faut écire :

Code :

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

WorkSheets("CODIR").Visible = xlSheetVeryHidden

[aramge]

Merci ca marche