Masquer barres, entêtes, onglets et quadrillage

Fat17 Messages postés 90 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

  1. Raymond PENTIER Messages postés 58226 Date d'inscription   Statut Contributeur Dernière intervention   17 490
     
    Bonjour.

    Je ne comprends pas :
    Pourquoi te faut-il une macro alors qu'il te suffit de quelques clics dans l'onglet AFFICHAGE ?
    1
    1. Fat17 Messages postés 90 Statut Membre
       
      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
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
  3. Fat17 Messages postés 90 Statut Membre
     
    Merci Le Pivert, mais je ne saurai pas faire la macro manuellement.
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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