[VBA-E] Problème d'autorisation à certaines pages

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:

---

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.

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

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

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

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:

---

Sheets("CODIR").xlSheetVeryHidden = True

---

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

Merci.

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

Citation:

---

Envoyé par 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?

---

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:

---

WorkSheets("CODIR").Visible = xlSheetVeryHidden

---

Merci ca marche