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 -
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 :)
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:
- Sécurisation fichier excel - VBA
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
1 réponse
Bonjour
ça ne serait pas plus simple d'utiliser les moyens de protection feuille et classeur?
Crdlmnt
ça ne serait pas plus simple d'utiliser les moyens de protection feuille et classeur?
Crdlmnt
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.
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?
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.