OVH Cloud OVH Cloud

masquer une feuille par du code

4 réponses
Avatar
malabar
Bonjour tout le monde


Je voudrais connaitre quel est le bout de code qui permet de masquer une
feuille excel sans donner à l'tilisateur la possibilité de la demasquer à la
main .


Merci tout le monde
Amicalement Francisco

4 réponses

Avatar
Jacky
Bonsoir Gros bras

Regarde le fil un peu plus bas
Objet: masquer un on glet .......de EFI à 16:22
Y a tout ce qu'il faut

Salutations
JJ
"malabar" a écrit dans le message de
news:426689b9$0$1208$
Bonjour tout le monde


Je voudrais connaitre quel est le bout de code qui permet de masquer une
feuille excel sans donner à l'tilisateur la possibilité de la demasquer
à la

main .


Merci tout le monde
Amicalement Francisco




Avatar
anonymousA
bonjour,

les différentes facons de masquer et rendre visible une feuille.

Sub afficher_masquer_feuilles()

'on masque ou on rend visible en 1 seule fois plusieurs feuilles

'tbl = Array("Feuil1", "Feuil2")
'Sheets(tbl).Visible = False

'feuille 1 cachée mais possible de réafficher par Format/feuille/Afficher

Sheets(1).Visible = xlHidden
Sheets(1).Visible = xlSheetHidden
Sheets(1).Visible = False
Sheets(1).Visible = 0

'feuille 1 cachée mais pas possible de réafficher par
Format/feuille/Afficher. Possible seulement par l'éditeur VBA ou par VBA.

Sheets(1).Visible = xlVeryHidden
Sheets(1).Visible = xlSheetVeryHidden
Sheets(1).Visible = 1

'rendre feuille 1 visible

Sheets(1).Visible = xlVisible
Sheets(1).Visible = xlSheetVisible
Sheets(1).Visible = True
Sheets(1).Visible = -1

End Sub

A+


Bonjour tout le monde


Je voudrais connaitre quel est le bout de code qui permet de masquer une
feuille excel sans donner à l'tilisateur la possibilité de la demasquer à la
main .


Merci tout le monde
Amicalement Francisco





Avatar
garnote
Salut,

Essaie ceci :

Sub Bonne_Cachette()
ActiveSheet.Visible = xlSheetVeryHidden
End Sub

Serge
Avatar
malabar
Merci Jacky , anonymousA et Garnote pour vos réponses ainsi qu'aux autres
membres de ce forum

Amicalement Francisco et encore merci pour vos réponses

"garnote" a écrit dans le message de news:

Salut,

Essaie ceci :

Sub Bonne_Cachette()
ActiveSheet.Visible = xlSheetVeryHidden
End Sub

Serge