Masquer barres, entêtes, onglets et quadrillage

Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour tout le monde,

Je cherche la macro qui me permet de masquer :
- la barre d'état
- la barre de formule
- les entêtes des lignes et des colonnes
- le quadrillage
- les onglets (j'en ai 60) à l'exception de l'onglet "O" qui contient le menu (ouverture des onglets masqués par lien hypertexte)

Avec ça, mon fichier va se transformer en "application" verrouillée à l'exception des plages autorisées.
Mes tentatives avec VBA sont restées partielles du fait de mon tout petit niveau en macros.

Avec votre aide, petit oiseau deviendra (peut être) grand !
Merci d'avance pour votre contribution
Cordialement
Fat
A voir également:

3 réponses

Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
Bonjour.

Je ne comprends pas :
Pourquoi te faut-il une macro alors qu'il te suffit de quelques clics dans l'onglet AFFICHAGE ?
1
Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention  
 
Merci de m’orienter vers les clics, mais je souhaite ouvrir mon fichier sur différents PC qui ne peuvent pas être tous configurés pour ça.
Le clic ne me permet pas non plus d’isoler un seul onglet (menu) qui doit rester apparent alors que les 60 autres seront masqués.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,


Je cherche la macro qui me permet de masquer :
- la barre d'état
- la barre de formule
- les entêtes des lignes et des colonnes
- le quadrillage


pour cela tu le fais manuellement en te servant de l'enregistreur de macro

et pour cela

- les onglets (j'en ai 60) à l'exception de l'onglet "O" qui contient le menu (ouverture des onglets masqués par lien hypertexte)

voici le code:

Option Explicit
Sub test()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
   If Ws.Name <> "Feuil1" Then 'adapter le nom de la feuille visible
     Ws.Visible = False
    End If
Next Ws
End Sub


voilà

1
Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Le Pivert, mais je ne saurai pas faire la macro manuellement.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Tu demarres l enregistreur de macro et tu fais manuellement l action que tu désires.
Ensuite tu arrêtes l enregistreur et tu as ta macro dans un module
Voilà c est tout simple
0