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.