Discussion :

[DJO2020]

Bonsoir,

J'aimerais savoir il y a-t-il un moyen de cacher les données d'une feuille .
En fait, j'ai un fichier qui contient plusieurs feuilles et je voudrais cacher les données d'une feuille par mot de passe avant de le partager sur le réseau.
Je souhaiterais dés l'ouverture de cette feuille, une demande de mot de passe sera obligatoire pour que uniquement les utilisateurs concernés puissent voir le contenu de cette feuille.

Merci

[Jean-Philippe André]

Bonjour,

le sujet étant assez large, je suggère un peu de littérature :
https://laurent-ott.developpez.com/t...vba-tome-5/#LI

[Pierre Fauconnier]

Salut.

deux solutions:

• Masquer la feuille puis dans l'onglet Révision > Protéger le classeur, saisir un mot de passe. La structure du classeur ne pourra plus être modifiée sans mot de passe. Il ne sera donc plus possible d'ajouter ou de supprimer des feuilles, ni d'en afficher ou d'en masquer sans d'abord ôter la protection;
• Passer dans l'éditeur VBA et, dans la fenêtre de l'arborescence du projet, cliquer sur la feuille à protéger. Dans ses propriétés (F4 si non visibles), choisir Visible = xlVeryHidden. Il faut alors protéger le code par mot de passe (clic droit sur le projet, Propriétés, Protection, et saisir le mot de passe). A la prochaine ouverture, le code ne sera plus accessible que par mot de passe, et il sera nécessaire d'accéder au code pour rendre à nouveau la feuille visible pour la modifier manuellement.

Ces "protections" peuvent sauter en 10 secondes grâce à des logiciels que l'on peut trouver sur le net.

[BENNASR]

Bonjour DJO2020, le forum

Je sais pas si ma proposition va t'aider ou non ...d'ailleurs je suis qu'un autodidacte VBA ... aussi j'ai pas testé la proposition sur un réseau multi-utilisateurs
donc à tester avec prudence
Je propose de masquer, à l'ouverture du fichier, toutes les onglets à l'exception de la feuille nommée BASE et en même temps désactiver le clic droite souris pour empêcher l'affichage de l'onglet souhaité via le souris. Code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "BASE" Then .Visible = False
  End With
 Next
End Sub

activé le mode clic droite souris lors de la fermeture de fichier

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True
End Sub

Sur l'onglet base tu insère des bouton pour chacun clic sur l'onglet souhaité en ce moment il recevra un input box pour saisir le mot de passe et si le mot de passe est correcte il accède à l'onglet souhaité si non un message box lui demandant de contacter l'administrateur de base des données
code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton1_Cliquer()
Dim VALEUR As String
MotDePasse = Application.InputBox("merci de saisir votre mot de passe : ", "titre le l'inputbox", , , , , , 3)
If MotDePasse = "PPPP" Then
Sheets("PRODUCTION").Visible = True
Sheets("PRODUCTION").Select
Else
MsgBox "Mot de passe invalide...veuillez contacter l'administrateur de la base des données"
End If
End Sub

dans l'exemple ci joint l'accès à l'onglet PRODUCTION mot de passe "PPPP"
l'onglet COMMERCIAL mot de passe "CCCC"