Masquer barres, entêtes, onglets et quadrillage

Fermé
Fat17 Messages postés 87 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021 - 13 févr. 2021 à 17:39
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 13 févr. 2021 à 20:03
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 58646 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 15 septembre 2024 17 195
13 févr. 2021 à 17:46
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 vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021
13 févr. 2021 à 17:59
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 jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 févr. 2021 à 19:00
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 vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021
13 févr. 2021 à 19:34
Merci Le Pivert, mais je ne saurai pas faire la macro manuellement.
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 févr. 2021 à 20:03
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