Discussion :

[danyocean]

Bonjour,

J'ai un fichier excel qui a plusieurs feuilles, les utilisateurs qui ont l'accès dessus sont nombreux et certains n'ont pas à voir ce que contiennent certaines feuilles.

Je souhaite donc que les onglet des feuilles soit visible mais que lorsqu'un utilisateur choisit une feuille l'on ne puisse voir son contenu uniquement après avoir rentré le mot de passe qui le permet. Il faudrait un mot de passe différent pour chaque onglet.

Je n'ai jamais touché au VBA et espère que vous pourriez m'aider à appliquer cette stratégie sur mon fichier.

Cordialement

Dany

[pgz]

Bonsoir.

Une proposition. J'imagine ici que le classeur a 3 feuilles, la première est libre d'accès et les 2 suivantes protégées. Le code est à placer dans le module associé au Workbook

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
26
27
28
29
30
31
32
33
34
Option Explicit
 
Public oFeuilleActive As Excel.Worksheet
Const sMdP2 As String = "toto"
Const sMdP3 As String = "tata"
 
Private Sub Workbook_Open()
ThisWorkbook.Worksheets("Feuil1").Activate
Set oFeuilleActive = ThisWorkbook.Worksheets("Feuil1")
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sReponse As String
 
Application.EnableEvents = False
oFeuilleActive.Activate
 
Select Case Sh.Name
    Case "Feuil1"
        Set oFeuilleActive = Sh
    Case "Feuil2"
        sReponse = InputBox("Mot de passe?")
        If sReponse = sMdP2 Then Set oFeuilleActive = Sh
 
    Case "Feuil3"
        sReponse = InputBox("Mot de passe?")
        If sReponse = sMdP3 Then Set oFeuilleActive = Sh
 
End Select
 
oFeuilleActive.Activate
Application.EnableEvents = True
 
End Sub

A adapter à la configuration de ton classeur, et avec les bons mots de passe.

PGZ