macro pour masquer et afficher des feuille

Pierrot93

XLDnaute Barbatruc

• 3 Octobre 2008

• #2

Re : macro pour masquer et afficher des feuille

Bonsoir,

sans plus de détail, regarde les macros ci dessous, si cela peut t'aider :

cache toutes les feuilles sauf la feuille active.

Code:

Sub masquefeuille()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Name <> ActiveSheet.Name Then sh.Visible = xlSheetHidden
Next sh
End Sub

affiche toutes les feuilles

Code:

Sub affichefeuille()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Visible = xlSheetVisible
Next sh
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 3 Octobre 2008

• #3

Re : macro pour masquer et afficher des feuille

mais le probleme c'est que moi je doit cacher just certaine feuille et nom pas toutes cad est ce que on lui donnant le nom de ces feuilles paut marcher????

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Octobre 2008

• #4

Re : macro pour masquer et afficher des feuille

Re,

pour masquer une feuille d'après son nom :

Code:

Sheets("nomdelafeuille").Visible = xlSheetHidden

@+

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 6 Octobre 2008

• #5

Re : macro pour masquer et afficher des feuille

Bonjour
Mais moi je veut masquer 5 feuillle en méme temps est ces feuille sont nommer comme suite
TM001,TM002,TM003,TM004,TM005 .

comment faire svp

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 6 Octobre 2008

• #6

Re : macro pour masquer et afficher des feuille

Salut akramenergie, Pierrot , le Forum

Essaye ces lignes de Code pour cacher les Feuilles

Code:

Sub Cache()
Dim i As Byte
For i = 1 To 5
    Worksheets("TM00" & i).Visible = xlSheetHidden
Next i

End Sub

et pour les rendre visible

Code:

Sub Décache()
Dim i As Byte
For i = 1 To 5
    Worksheets("TM00" & i).Visible = xlSheetVisible
Next i
End Sub

Bonne Journée

 

Dernière édition: 6 Octobre 2008

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 6 Octobre 2008

• #7

Re : macro pour masquer et afficher des feuille

merci le probleme et résolu pour masquer et afficher les feuille
mais j'ai un autre petit souci je voudrais savoire est ce que c'est paussible on cliquon sur un bouton il faut entrer un mot de passe pour que la macro du bouton s'exécute
Meerci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 6 Octobre 2008

• #8

Re : macro pour masquer et afficher des feuille

Re le Fil

Si j'ai bien compris, teste le Fichier Joint

Mot de Passe toto

Bonne Journée

 

Pièces jointes

• CommanButton1.zip

  17.7 KB · Affichages: 562

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2008

• #9

Re : macro pour masquer et afficher des feuille

Bonjour à tous


Message édité

Voir suggestions et liens dans mes messages suivants

 

Dernière édition: 18 Janvier 2015

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 6 Octobre 2008

• #10

Re : macro pour masquer et afficher des feuille

une dérniere question
lorsque je tappe le mot de passe il est pas cripter cad on peut le voir
y a t'il un moyen pour le cripter avec des *

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2008

• #11

Re : macro pour masquer et afficher des feuille

Re


Oui c'est possible

Voir la proposition de MyDearFriend Lien supprimé

(Utilises le moteur de recherche du site pour retrouver le fil)

 

Dernière édition: 6 Octobre 2008

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 6 Octobre 2008

• #12

Re : macro pour masquer et afficher des feuille

méme dans ce fils le mot de passe il est visible lorsque on le tape
cad lorsque je tape le mot de passe qui est "mot" on voi mot et non pas ***
comment faire ????

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2008

• #13

Re : macro pour masquer et afficher des feuille

Re


Tu parles que quel fil?


Regardes attentivement ma réponse précédente

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 6 Octobre 2008

• #14

Re : macro pour masquer et afficher des feuille

oui j'ai vu votre dérniere réponse mais comme je début en vba excel j'ai pas compris grand chose???
la partie ou j'ai introdui le mot de passe dans mon code vba est la suivant:


Private Sub CommandButton1_Click()
Dim nbressais As Byte
Dim Mdp
retour:
Mdp = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux Feuilles est sécurisé ")
If Mdp = "" Then Exit Sub
If Mdp = "toto" Then
Call Cache1
Call Cache3
Call Décache2

Else
nbressais = nbressais + 1
If nbressais = 3 Then
MsgBox "Ce classeur va se fermer."
ThisWorkbook.Close SaveChanges:=False
End If
MsgBox "Mot de passe incorrect."
GoTo retour
End If

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2008

• #15

Re : macro pour masquer et afficher des feuille

RE

Tu avais mal vu alors


Lien supprimé​

 

Vote positif 0 Vote négatif