Bonjour à tous,

J'ai lu cette discussion.

J’utiliseune macro pour "cacher" des onglets afin que tout le monde n'y ait pas accès, sauf via une saisie de mot de passe.

Mon classeur est décomposé comme décrit ci-dessous :
- accueil (accessible à tous);
- structure (accessible à tous);
- locaux (accessible via MDP 1);
- développement (accessible via MDP 2);
- Matériel général (accessible via MDP 3);
- Matériel spécifique (accessible via MDP 3);
- Prestations (accessible via MDP 3).

Donc sur mon onglet accueil, j'ai mes boutons lançant les macros avec les bons MDP et ouvrant directement l'onglet concerné au click.


Pour exemple, le workbook contient l'écriture suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil3").Visible = xlVeryHidden
End Sub
Et le module 1, l'écriture suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Option Explicit
 
Sub voirfeuille()
If InputBox("Mot de passe ?") = "toto" Then
    Sheets("Matériel général").Visible = True
    Sheets("Matériel général").Select
End If
End Sub
Ma question étant la suivante : comment cacher le mot de passe ?

En effet, un peu de jujotte et de recherches permettent de trouver le mot de passe via un simple Alt + F11... Ce qui est dommageable vu le caractère confidentiel de mes données...

Une solution ?

Merci d'avance !