macro pour masquer et afficher des feuille

[akramenergie]

Bonjour tous le monde
j'ai un fichier excel et je voudrais faire une macro par le quel je peut masquer et afficher des feuilles commant faire svp

 

[Pierrot93]

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.

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

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

bonne soirée
@+

 

[akramenergie]

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????

 

[Pierrot93]

Re : macro pour masquer et afficher des feuille

Re,

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

Sheets("nomdelafeuille").Visible = xlSheetHidden

@+

 

[akramenergie]

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

 

[Dull]

Re : macro pour masquer et afficher des feuille

Salut akramenergie, Pierrot , le Forum

Essaye ces lignes de Code pour cacher les Feuilles

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

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

Bonne Journée

 

[akramenergie]

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

 

[Dull]

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

 

[Staple1600]

Re : macro pour masquer et afficher des feuille

Bonjour à tous


Message édité

Voir suggestions et liens dans mes messages suivants

 

[akramenergie]

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 *

 

[Staple1600]

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)

 

[akramenergie]

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 ????

 

[Staple1600]

Re : macro pour masquer et afficher des feuille

Re


Tu parles que quel fil?


Regardes attentivement ma réponse précédente

 

[akramenergie]

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

 

[Staple1600]

Re : macro pour masquer et afficher des feuille

RE

Tu avais mal vu alors


Lien supprimé​