mot de passe onglet caché

[phil69]

bonjour le forum



voilà ,j'ai trouvé sur le forum (de BrunoM45)un moyen de proteger par mot de passe une feuille en la cachant ,le probléme ,je suis nul en VBA et j'ai essayé de copier les macros pour les mettre dans un fichier assez gros mais je ne comprent rien à la demarche. je vous joint le fichier d'origine et un fichier d'essai,
je ne veux pas qu'on me fasse functionnner le fichier ,je voudrai qu'on m'explique comment faire le bouton et ce que je n'ai pas fais dans VBA,pour que je comprene le comment du porqu'oi ,afin que je puisse reproduire le tous dans mon classeurs.

merci

phil69

 

[phil69]

Re : mot de passe onglet caché

er

excuses, j'ai oublié les fichier

 

[phil69]

Re : mot de passe onglet caché

re


c'est pas mon jour ,voilà le fichier de BrunoM45

 

[Compte Supprimé 979]

Re : mot de passe onglet caché

Salut Phil69,

Tu as plusieurs choses à mettre dans ton fichier

1) Le code dans la feuille ou se trouve le bouton

Option Explicit
Private Sub CB_1_Click()
    Dim I As Integer, MesSht As String, TSht() As String
  ' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
  MesSht = "Feuil2,Feuil4,Feuil5,Feuil7"
  TSht = Split(MesSht, ",")
  '
  If CB_1.Caption = "Afficher les feuilles" Then
    ' Demander le mot de passe
    USF_Mdp.TextBox1.Value = ""
    USF_Mdp.Show
    If FlgOk = False Then
      MsgBox "Mot de passe érroné !"
      Exit Sub
    End If
    ' Si OK, masquer les feuilles
    For I = 0 To UBound(TSht)
      Sheets(TSht(I)).Visible = True
    Next I
    CB_1.Caption = "Masquer les feuilles"
    CB_1.BackColor = 255
  Else
    For I = 0 To UBound(TSht)
      Sheets(TSht(I)).Visible = False
    Next I
    CB_1.Caption = "Afficher les feuilles"
    CB_1.BackColor = 32768
  End If
  Range("A1").Select
End Sub

Tu affiche la barre d'outils controles
Tu cliques sur l'icone "Bouton de commande"
Tu cliques sur ta feuille
Un bouton est créé, tu renommes celui-ci en "CB_1", pas obligatoire
Tu fais un clique droit sur ton bouton -> Visualiser le code
Le code ci-dessus doit figurer dedans.

2) Il faut mettre mettre l'UserForm pour la saisie du Mot de passe (fichier joint)
Dans l'éditeur VBA -> Menu Fichier -> Importer

Pour exporter un USF d'un fichier vers un autre, il suffit de faire un clique droit dessus dans l'éditeur VBA -> puis de choisir "Exporter un fichier"

3) Dans un module, tu mets la déclaration de la variable publique "FlgOK"

Voilà, ce devrait être bon 😉

A+

 

[phil69]

Re : mot de passe onglet caché

re

merci pour ta reponce j'aissai tout de suite


Phil69

 

[nrdz83]

Re : mot de passe onglet caché

bonsoir Bruno m45 ce post correspondais a une de mes demande , donc j'ai lu et essayé d'appliquer tes conseils, malheureusement ça bug chez moi , en fait l'affichage de l'userform et la saisie du mot de passe c'est ok, par contre ma feuille "choix" ne se cache pas , le mot de passe que je souhaite mettre c'est "nrdz83"
d'avance merci je te joint mon fichier afin que tu puisses y voir plus clair lol, D'avnace un grand merci,
mes amitiés

 

[Compte Supprimé 979]

Re : mot de passe onglet caché

Salut Nrdz83,

Dans tes modules, tu oublies le traitement après validation du mot de passe.

La variable FlgOk est à vrai, il faut ensuite effectuer le traitement.

Voir ton fichier modifié 😉

A+

 

[nrdz83]

Re : mot de passe onglet caché

Un grand merci Bruno m45 je pensais pourtant avoir fait tout ce que tu expliquais, c pas grave la je comprend pas trop le "FlgOK" mais je vais essayer de comprendre. Encore un grand merci , mes amitiés bye 🙄