Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro cacher plusieurs feuilles

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

ced91300

XLDnaute Occasionnel
bonjour à tous,

j'ai une macro pour cacher 1 page (nommée "tab") elle fonctionne très bien, je voudrais y rajouter une 2eme page (nommée "graph") mais je n'y arrive pas afin que la macro me cache tab et graph


merci
cordialement


Sub Cache()
For i = 1 To 5
Worksheets("tab").Visible = xlSheetHidden
Next i
End Sub
Sub Décache()
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
For i = 1 To 5
Worksheets("tab").Visible = xlSheetVisible
Next i
For Each Ctrl In Sheets("Tab").OLEObjects
If Ctrl.progID = "Forms.CommandButton.1" Then Ctrl.Object.Caption = "Cacher les Feuilles"
Next Ctrl
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
End Sub
 
Trier par date Trier par votes
Bonjour,

Dans Sub Cache(), s'il n'y a qu'une ou deux feuilles à masquer, inutile d'utiliser une boucle de 5 itérations.


VB: 
Sub Cache()
Worksheets("tab").Visible = xlSheetHidden
Worksheets("graph").Visible = xlSheetHidden
End Sub

A+



Edit
Dans Sub Décache(), mêmes éléments :
Code: 
Worksheets("tab").Visible = xlSheetVisible
Worksheets("graph").Visible = xlSheetVisible

Re Edit : Bonjour Staple1600
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous, Paf

Une autre syntaxe
(Il faut au moins toujours une feuille visible dans un classeur)
VB: 
Sub demasque()
Feuil1.Visible = -1: Feuil2.Visible = -1
End Sub
Sub masque()
Sheets(Array("Feuil1", "Feuil2")).Visible = 0
End Sub
NB: changer les noms des feuilles dans la macro, selon les besoins.
 
Dernière édition:
Vote positif 0 Vote négatif

merci de ton aide,

j'ai corrigé ca fonctionne nickel

cordialement
 
Vote positif 0 Vote négatif

bonjour merci pour ta réponse,

c'est en fait une macro que j'ai récupéré sur le net, et que j'ai adapté à mon classeur

celui-ci comporte bien 5 feuilles au total
les 3 premieres reste visible en permanence

cordialement
 
Vote positif 0 Vote négatif
bonsoir,
merci pour vos réponse
par contre malgré le MDP, on peut ouvrir les feuilles cachées par le biais d'un clic droit sur une feuille, puis afficher puis selection de la feuille et elle s'ouvre
y'a t'il un moyen de bloquer cela?

cordialement
 
Vote positif 0 Vote négatif
Re, Bonjour Jacky67


y'a t'il un moyen de bloquer cela?
Cliquez pour agrandir...
Oui mais non 😉
Oui en mettant un mot de passe sur le projet VBA.

Non parce que ce verrou peut s'ôter sans connaitre le mot de passe en moins de 27 secondes
(13 les nuits sans lune)

NB: On peut aussi simplement enregistrer une copie du classeur en *.xlsx puis afficher les feuilles.
Et si les feuilles sont protégées par un mot de passe, là aussi on peut supprimer la protection sans connaitre le mot de passe.
 
Dernière édition:
Vote positif 0 Vote négatif
RE...
Remplace
Code: 
Sub Cache()
    Sheets("tab").Visible =0
    Sheets("graph").Visible = 0
End Sub
par
Code: 
Sub Cache()
    Sheets("tab").Visible = xlSheetVeryHidden
    Sheets("graph").Visible = xlSheetVeryHidden
End Sub
 
Vote positif 0 Vote négatif

re bonjour,

j'ai adapté cela à mon tableau, mais en passant par une des feuilles avec un simple clic droit "afficher feuille" on peu ouvrir les feuilles masquée par code bva

Sub Cache()
Worksheets("tab").Visible = xlSheetHidden
Worksheets("graph").Visible = xlSheetHidden

End Sub
Sub Décache()
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 = "luca" Then
For i = 1 To 5
Worksheets("tab").Visible = xlSheetVisible
Worksheets("graph").Visible = xlSheetVisible
Next i
For Each Ctrl In Sheets("Tab").OLEObjects
If Ctrl.progID = "Forms.CommandButton.1" Then Ctrl.Object.Caption = "Cacher les Feuilles"
Next Ctrl
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
End Sub
 
Vote positif 0 Vote négatif
Staple1600 à dit:
Re

Jacky67
Cela n’empêche pas le clic-droit-> Visualiser le code -> aller sur la feuille masquée et remettre la propriété de la feuille sur Visible= True
(d'ou mon précédent message)
Cliquez pour agrandir...
Bonsoir Staple1600
Nos messages se sont croisés, je n'avais pas vu le tien, désolé
Il y a aussi
Code: 
Private Sub Workbook_Open()
Call Cache
Application.CommandBars("ply").Enabled = False
End Sub
Qui empêche le clic droit sur un onglet.
Mais bon, je ne pense pas... qu'un MDP dans un code vba soit une bonne protection.
Mais y a t'il une bonne protection 🙄
 
Vote positif 0 Vote négatif
Re

Jacky67
Plus de clic-droit
C'est pas grave : ALT+F11
ou ouvrir la copie *.xlsx toute fraîche du classeur "sensible".

Et on est bien d'accord sur le mot de passe sur le projet VBA 😉
Non parce que ce verrou peut s'ôter sans connaitre le mot de passe en moins de 27 secondes
(13 les nuits sans lune)
Cliquez pour agrandir...

La bonne protection c'est ne pas utiliser Excel en y mettant des données sensibles. 😉
Ou alors créer des copies expurgées donc diffusables à tous vents.
 
Vote positif 0 Vote négatif
pour demasquer les feuilles j'utilise ca:

VB: 
 Sub Afficher_Feuilles_Masquées()
Dim Feuille As Object
For Each Feuille In ActiveWorkbook.Sheets
Feuille.Visible = xlSheetVisible
Next
End Sub

si ca peut servir 😀
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
4 5 6
Réponses
80
Affichages
1 K
fanch55
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
330
thunder23
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
200
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
123
patricktoulon
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
210
patricko-13
P
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
129
job75
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
242
job75
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
212
sylvanu
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
275
TooFatBoy
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
203
kiki29
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
220
jurassic pork
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
218
KTM
N
  • Question Question
Listbox click
Réponses
10
Affichages
292
ChTi160
  • Résolu(e)
XL 2021 Taille de la feuille à l'ouverture
Réponses
11
Affichages
205
guy72
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
484
job75
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
337
Piment
P
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
309
fanch55
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
598
vgendron
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
532
tnion
T
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…