Sécurisation fichier excel - VBA

remse1 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
remse1 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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 :)
A voir également:

1 réponse

Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonjour
ça ne serait pas plus simple d'utiliser les moyens de protection feuille et classeur?
Crdlmnt
0
remse1 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Oui mais les barres de menus resteront affichées et disponibles. Pour le côté esthétique c'est pas terrible.
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
... et vous avez essayé l'affichage en plein écran qui masque tout?
0
remse1 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0