Masquer barres, entêtes, onglets et quadrillage

Signaler
Messages postés
81
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
13 février 2021
-
Messages postés
7275
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
27 février 2021
-
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

3 réponses

Messages postés
53349
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
27 février 2021
15 368
Bonjour.

Je ne comprends pas :
Pourquoi te faut-il une macro alors qu'il te suffit de quelques clics dans l'onglet AFFICHAGE ?
Messages postés
81
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
13 février 2021

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.
Messages postés
7275
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
27 février 2021
616
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à

Messages postés
81
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
13 février 2021

Merci Le Pivert, mais je ne saurai pas faire la macro manuellement.
Messages postés
7275
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
27 février 2021
616
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