Bonjour, j'ai d=E9j=E0 post=E9 plusieurs message ici con=E7ernant=20
un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses r=E9ponses, mais je n'arrive=20
toujours pas =E0 le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e-
mail un document Excel avec le bouton "Options..." cach=E9?=20
Comme =E7a je n'aurais qu'a copier le code exact dans mon=20
Workbook...
Mon adresse si jamais: andrew.weber@gmnefr.migros.ch
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
papou
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open : Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news: 086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
Bonjour
Place ces deux procédures dans un module standard
Sub OterOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False
End Sub
Sub RemettreOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True
End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
:
Private Sub Workbook_Open()
OterOptions
End Sub
Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemettreOptions
End Sub
Cordialement
Pascal
"Andrew" <andrew.weber@gmnefr.migros.ch> a écrit dans le message de news:
086a01c4b670$f3192400$a601280a@phx.gbl...
Bonjour, j'ai déjà posté plusieurs message ici conçernant
un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive
toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e-
mail un document Excel avec le bouton "Options..." caché?
Comme ça je n'aurais qu'a copier le code exact dans mon
Workbook...
Mon adresse si jamais: andrew.weber@gmnefr.migros.ch
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open : Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news: 086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
gilbert
bonjour
essaie ceci
Application.CommandBars("Tools").Controls(20).Visible = False pour remettre Application.CommandBars("Tools").Controls(20).Visible = True
regarde avant si option correspond bien à la position (20) bien entendu
Gilbert
"Andrew" a écrit dans le message de news:086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
bonjour
essaie ceci
Application.CommandBars("Tools").Controls(20).Visible = False
pour remettre
Application.CommandBars("Tools").Controls(20).Visible = True
regarde avant si option correspond bien à la position (20) bien entendu
Gilbert
"Andrew" <andrew.weber@gmnefr.migros.ch> a écrit dans le message de
news:086a01c4b670$f3192400$a601280a@phx.gbl...
Bonjour, j'ai déjà posté plusieurs message ici conçernant
un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive
toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e-
mail un document Excel avec le bouton "Options..." caché?
Comme ça je n'aurais qu'a copier le code exact dans mon
Workbook...
Mon adresse si jamais: andrew.weber@gmnefr.migros.ch
Application.CommandBars("Tools").Controls(20).Visible = False pour remettre Application.CommandBars("Tools").Controls(20).Visible = True
regarde avant si option correspond bien à la position (20) bien entendu
Gilbert
"Andrew" a écrit dans le message de news:086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
gilbert
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
: Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news: 086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:etrw4OotEHA.2520@tk2msftngp13.phx.gbl...
Bonjour
Place ces deux procédures dans un module standard
Sub OterOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False
End Sub
Sub RemettreOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True
End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement
Wordkbook_Open
:
Private Sub Workbook_Open()
OterOptions
End Sub
Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemettreOptions
End Sub
Cordialement
Pascal
"Andrew" <andrew.weber@gmnefr.migros.ch> a écrit dans le message de news:
086a01c4b670$f3192400$a601280a@phx.gbl...
Bonjour, j'ai déjà posté plusieurs message ici conçernant
un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive
toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e-
mail un document Excel avec le bouton "Options..." caché?
Comme ça je n'aurais qu'a copier le code exact dans mon
Workbook...
Mon adresse si jamais: andrew.weber@gmnefr.migros.ch
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
: Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news: 086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
papou
Bonjour Tu peux les récupérer en bouclant sur chaque contrôle : Dim Ctr As CommandBarControl Dim i As Long i = 0 For Each Ctr In CommandBars("Tools").Controls i = i + 1 ActiveSheet.Cells(i, 1) = Ctr.ID ActiveSheet.Cells(i, 2) = Ctr.Caption Next Ctr
Cordialement Pascal
"gilbert" a écrit dans le message de news: Oq%23t$
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
: Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news: 086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
Bonjour
Tu peux les récupérer en bouclant sur chaque contrôle :
Dim Ctr As CommandBarControl
Dim i As Long
i = 0
For Each Ctr In CommandBars("Tools").Controls
i = i + 1
ActiveSheet.Cells(i, 1) = Ctr.ID
ActiveSheet.Cells(i, 2) = Ctr.Caption
Next Ctr
Cordialement
Pascal
"gilbert" <stpspamgilbert.roinel@wanadoo.fr> a écrit dans le message de
news: Oq%23t$jotEHA.1720@TK2MSFTNGP14.phx.gbl...
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:etrw4OotEHA.2520@tk2msftngp13.phx.gbl...
Bonjour
Place ces deux procédures dans un module standard
Sub OterOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False
End Sub
Sub RemettreOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True
End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement
Wordkbook_Open
:
Private Sub Workbook_Open()
OterOptions
End Sub
Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemettreOptions
End Sub
Cordialement
Pascal
"Andrew" <andrew.weber@gmnefr.migros.ch> a écrit dans le message de news:
086a01c4b670$f3192400$a601280a@phx.gbl...
Bonjour, j'ai déjà posté plusieurs message ici conçernant
un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive
toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e-
mail un document Excel avec le bouton "Options..." caché?
Comme ça je n'aurais qu'a copier le code exact dans mon
Workbook...
Mon adresse si jamais: andrew.weber@gmnefr.migros.ch
Bonjour Tu peux les récupérer en bouclant sur chaque contrôle : Dim Ctr As CommandBarControl Dim i As Long i = 0 For Each Ctr In CommandBars("Tools").Controls i = i + 1 ActiveSheet.Cells(i, 1) = Ctr.ID ActiveSheet.Cells(i, 2) = Ctr.Caption Next Ctr
Cordialement Pascal
"gilbert" a écrit dans le message de news: Oq%23t$
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
: Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news: 086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
gilbert
Merci
salutations
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Tu peux les récupérer en bouclant sur chaque contrôle : Dim Ctr As CommandBarControl Dim i As Long i = 0 For Each Ctr In CommandBars("Tools").Controls i = i + 1 ActiveSheet.Cells(i, 1) = Ctr.ID ActiveSheet.Cells(i, 2) = Ctr.Caption Next Ctr
Cordialement Pascal
"gilbert" a écrit dans le message de news: Oq%23t$
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
: Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news:
086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
Mon adresse si jamais:
Merci d'avance!
Merci
salutations
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:u2Sd3BqtEHA.3872@TK2MSFTNGP15.phx.gbl...
Bonjour
Tu peux les récupérer en bouclant sur chaque contrôle :
Dim Ctr As CommandBarControl
Dim i As Long
i = 0
For Each Ctr In CommandBars("Tools").Controls
i = i + 1
ActiveSheet.Cells(i, 1) = Ctr.ID
ActiveSheet.Cells(i, 2) = Ctr.Caption
Next Ctr
Cordialement
Pascal
"gilbert" <stpspamgilbert.roinel@wanadoo.fr> a écrit dans le message de
news: Oq%23t$jotEHA.1720@TK2MSFTNGP14.phx.gbl...
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:etrw4OotEHA.2520@tk2msftngp13.phx.gbl...
Bonjour
Place ces deux procédures dans un module standard
Sub OterOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False
End Sub
Sub RemettreOptions()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True
End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement
Wordkbook_Open
:
Private Sub Workbook_Open()
OterOptions
End Sub
Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemettreOptions
End Sub
Cordialement
Pascal
"Andrew" <andrew.weber@gmnefr.migros.ch> a écrit dans le message de
news:
086a01c4b670$f3192400$a601280a@phx.gbl...
Bonjour, j'ai déjà posté plusieurs message ici conçernant
un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive
toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e-
mail un document Excel avec le bouton "Options..." caché?
Comme ça je n'aurais qu'a copier le code exact dans mon
Workbook...
Mon adresse si jamais: andrew.weber@gmnefr.migros.ch
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Tu peux les récupérer en bouclant sur chaque contrôle : Dim Ctr As CommandBarControl Dim i As Long i = 0 For Each Ctr In CommandBars("Tools").Controls i = i + 1 ActiveSheet.Cells(i, 1) = Ctr.ID ActiveSheet.Cells(i, 2) = Ctr.Caption Next Ctr
Cordialement Pascal
"gilbert" a écrit dans le message de news: Oq%23t$
Bonjour
Comment trouve-t-on l' ID du control ?
Merci
Gilbert
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ces deux procédures dans un module standard Sub OterOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False End Sub Sub RemettreOptions() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True End Sub
Ensuite tu appelles la procédure OterOptions dans l'évènement Wordkbook_Open
: Private Sub Workbook_Open() OterOptions End Sub Et la procédure RemettreOptions dans l'évènement Workbook_BeforeClose : Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreOptions End Sub
Cordialement Pascal
"Andrew" a écrit dans le message de news:
086a01c4b670$f3192400$ Bonjour, j'ai déjà posté plusieurs message ici conçernant un code qui pourrait cacher le bouton "Options..."
Merci pour les nombreuses réponses, mais je n'arrive toujours pas à le cacher!
Est-ce que quelqu'un d'aimable pourrait m'envoyer par e- mail un document Excel avec le bouton "Options..." caché? Comme ça je n'aurais qu'a copier le code exact dans mon Workbook...
