macrro pour cacher les feuilles

Re : macrro pour cacher les feuilles

Salu,nrdz83

Voila une macro pour cacher les feuille :


Cordialement

Re : macrro pour cacher les feuilles

je te remercie SAID , mais je n'arrive pas a ce que ça fonctionne en fait j'ai deja ça comme formule que j'ai récupéré
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 = "choix"
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 = xlSheetVisible
Next I
CB_1.Caption = "Masquer les feuilles"
CB_1.BackColor = 255
' Déprotéger le code VBA
UnprotectVBProject ThisWorkbook, "nrdz83"
Else
For I = 0 To UBound(TSht)
Sheets(TSht(I)).Visible = xlSheetVeryHidden
Next I
CB_1.Caption = "Afficher les feuilles"
CB_1.BackColor = 32768
' Protéger le code VBA
ProtectVBProject ThisWorkbook, "nrdz83"
End If
Range("A1").Select
End Sub
j'arrive a afficher l'userform et c'est tout . T'aurais pas une idéer d'ou ça bug ? merci d'avance

Re : macrro pour cacher les feuilles

ré, nrdz83

dans ton code de l'usf le mdp c'est "essai"
dans le vbproject le mdp "nrdz83"

Franchement j'ai rien compris tu veut cacher les feuilles ou tous le Vbprojet la il y a nuance

Cordialement

Re : macrro pour cacher les feuilles

juste la feuille choix les codes c'est ce que j'ai glané je sais plus ou et suis planté je voudrais mettre mon mot de passe "nrdz83"
voila j'espere etre assez clair desolé sinon , bye

Re : macrro pour cacher les feuilles

bonjour à tous toujours besoins d'un peu d'aide pour finaliser ma macrro afin de pouvoir cacher ma feuille choix d'avance merci à tous

Re : macrro pour cacher les feuilles

Bonsoir ndzr83,

Peut_être en utilisant le code suivant:

Application.ScreenUpdating = False 'l'action est invisible à l'oeil
Sheets("Choix").Visible = xlSheetHidden 'Masque la feuile "Choix.
Application.ScreenUpdating = True

Puis le code inverse:
Sheets("Choix").Visible = xlSheetVisible 'Affiche la feuile "Choix.

Cliquez pour agrandir...

Ton code mdp n'avait aucun effet, peu importe le mdp que l'on inscrivait.

J"ai repris l'excellent code de staple1600. mdp: "ndzr83"

En conclusion pour afficher la feuile "choix" il faut un mdp sinon masqué par défaut.
J'ai donc inclus dans thisworkbook
Private sub workbook_open le code "masquer" ci-dessus,

puis dans bnValider de ton USF_mdp le code "visible"

Ci-joint ton fichier modifié

J'éspère avoir pu répondre à ta demande, malgré mes faibles connaissance.
En tout cas je vois que ton projet a bien avancé.

Re : macrro pour cacher les feuilles

BonjourTous,

le code donné dans le fichier joint peut facilement se transformer si on veut afficher plus d'une feuille.