Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Re: cacher VBA et Options...

Re: cacher VBA et Options...

2 réponses
Avatar
Apfel Strudel
hello, tu m'as donn=E9 ce code pour cacher le bouton=20
options...:

Sub CacherBoutonOptions()
Application.CommandBars(1).Controls("&Outils").Controls
("&Options...").Visible =3D False
End Sub

Cependant =E7a ne marche pas, le bouton "Options..." est=20
toujours l=E0 et je sais pas pourquoi! il faut dire que=20
j'ai d=E9j=E0 plusieurs autres codes dans ThisWorkbook! voici=20
tous les codes que j'ai

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As=20
Object _
, ByVal Target As Hyperlink)
If Sh.Name =3D "Feuil2" Then
Select Case Target.TextToDisplay
Case Is =3D "Cliquez ici si vous refusez les conditions"
Application.DisplayAlerts =3D False
Application.Quit
Application.DisplayAlerts =3D True
Case Else: ThisWorkbook.Save
End Select
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved =3D True
End Sub

Normalement un code ne devrait pas en g=EAner un autre,=20
mais je vois pas d'autre possibilit=E9!

J'esp=E8re qu'on pourra m'aider! (ou alors mettre un mot de=20
passe sur le bouton "options..." si j'arrive pas a le=20
cacher)

Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
BJ
Normal que cela ne marche pas si tu ne lance pas la macro
Le plus simple est de la mettre lors des événements du classeur
cela à l'ouverture pour masquer et à la fermeture pour remettre visible
Il est trés important de remettre visible le menu Option à la fermeture
en projet 2 clicks sur workbook et trouve Open et insere la ligne, pour le
beforeclose
insere également la ligne au dessus de celle que tu as déja.

Private Sub Workbook_Open()
Application.CommandBars(1).Controls("&Outils").Controls("&Options...").Visib
le = False
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(1).Controls("&Outils").Controls("&Options...").Visib
le = True
ThisWorkbook.Saved = True
End Sub


PS si un jour tu as un plantage et que le menu Option à disparu d'Excel tu
devras
ouvrir et refermer ton classeur pour retrouver ce menu

Bonne réussite
Bruno
Apfel Strudel a écrit dans le message
: 0dfc01c4b53b$693cb2a0$
hello, tu m'as donné ce code pour cacher le bouton
options...:

Sub CacherBoutonOptions()
Application.CommandBars(1).Controls("&Outils").Controls
("&Options...").Visible = False
End Sub

Cependant ça ne marche pas, le bouton "Options..." est
toujours là et je sais pas pourquoi! il faut dire que
j'ai déjà plusieurs autres codes dans ThisWorkbook! voici
tous les codes que j'ai

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil2" Then
Select Case Target.TextToDisplay
Case Is = "Cliquez ici si vous refusez les conditions"
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
Case Else: ThisWorkbook.Save
End Select
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Normalement un code ne devrait pas en gêner un autre,
mais je vois pas d'autre possibilité!

J'espère qu'on pourra m'aider! (ou alors mettre un mot de
passe sur le bouton "options..." si j'arrive pas a le
cacher)

Merci d'avance
Avatar
Quelle macro est-ce que je dois lancer? HELP!

Je suis nul en macro et VBA! il me faut une aide très
détaillée!

-----Message d'origine-----
Normal que cela ne marche pas si tu ne lance pas la macro
Le plus simple est de la mettre lors des événements du
classeur

cela à l'ouverture pour masquer et à la fermeture pour
remettre visible

Il est trés important de remettre visible le menu Option
à la fermeture

en projet 2 clicks sur workbook et trouve Open et insere
la ligne, pour le

beforeclose
insere également la ligne au dessus de celle que tu as
déja.


Private Sub Workbook_Open()
Application.CommandBars(1).Controls("&Outils").Controls
("&Options...").Visib

le = False
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(1).Controls("&Outils").Controls
("&Options...").Visib

le = True
ThisWorkbook.Saved = True
End Sub


PS si un jour tu as un plantage et que le menu Option à
disparu d'Excel tu

devras
ouvrir et refermer ton classeur pour retrouver ce menu

Bonne réussite
Bruno
Apfel Strudel a
écrit dans le message

: 0dfc01c4b53b$693cb2a0$
hello, tu m'as donné ce code pour cacher le bouton
options...:

Sub CacherBoutonOptions()
Application.CommandBars(1).Controls("&Outils").Controls
("&Options...").Visible = False
End Sub

Cependant ça ne marche pas, le bouton "Options..." est
toujours là et je sais pas pourquoi! il faut dire que
j'ai déjà plusieurs autres codes dans ThisWorkbook! voici
tous les codes que j'ai

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil2" Then
Select Case Target.TextToDisplay
Case Is = "Cliquez ici si vous refusez les conditions"
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
Case Else: ThisWorkbook.Save
End Select
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Normalement un code ne devrait pas en gêner un autre,
mais je vois pas d'autre possibilité!

J'espère qu'on pourra m'aider! (ou alors mettre un mot de
passe sur le bouton "options..." si j'arrive pas a le
cacher)

Merci d'avance


.