Sécurisation fichier excel - VBA
remse1
Messages postés
4
Statut
Membre
-
remse1 Messages postés 4 Statut Membre -
remse1 Messages postés 4 Statut Membre -
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 :)