Sécurisation fichier excel - VBA

Bonjour,

J'ai créé une macro de traitement de données et je souhaiterais la sécuriser. L'objectif est de minimiser les possibilités de modification pour l'utilisateur. J'ai fait le tour de plusieurs forums afin de pouvoir masquer les menus suivants:
- Ruban
- Menu "fichier", "edition",...
- Onglets
- Commandbar, ouverture, reduction....

Finalement je n'arrive pas à masquer le - Menu "fichier", "edition",... ; ruban, et fermeture fichier

Voici mon bout de code à l'ouverture :

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars 'Supprime tous les menus
CmdB.Reset
CmdB.Enabled = False
Next CmdB
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.WindowState = xlNormal
.Width = 586
.Height = 490
End With

et à la fermeture:

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars 'Supprime tous les menus
CmdB.Reset
CmdB.Enabled = True
Next CmdB

With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With

J'espère que vous pourrez m'aider, je galère trop! Merci :)

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour
    ça ne serait pas plus simple d'utiliser les moyens de protection feuille et classeur?
    Crdlmnt
    1. Oui mais les barres de menus resteront affichées et disponibles. Pour le côté esthétique c'est pas terrible.
    2. Contributeur
      ... et vous avez essayé l'affichage en plein écran qui masque tout?
    3. Oui j'étais parti sur cette voie. Par contre j'ai une taille de fenêtre qui doit être fixe or le fullscreen agrandi la page.