Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Comment interdire par VBA l'ajout d'un onglet dans un classeur.

243 views
Skip to first unread message

Sarrel

unread,
Feb 26, 2010, 2:44:01 AM2/26/10
to
Bonjour la communauté,

dans un classeur excel 2007, je voudrais interdire l'insertion
d'une nouvelle feuille dans le classeur (donc rendre inopérant Majuscule+F11
par exemple)
ou désactiver le petit onglet qui est à la fin des feuille qui permet de
faire la même chose.
à l'aide de Code VBA si possible.

Merci de votre support

Daniel.C

unread,
Feb 26, 2010, 4:16:50 AM2/26/10
to
Bonjour.
Ce qui suppose que les macros soient activï¿œes.
Mets cette macro dans le module "ThisWorkBook" :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel

> Bonjour la communautￜ,


>
> dans un classeur excel 2007, je voudrais interdire l'insertion

> d'une nouvelle feuille dans le classeur (donc rendre inopï¿œrant Majuscule+F11
> par exemple)
> ou dￜsactiver le petit onglet qui est ￜ la fin des feuille qui permet de
> faire la mï¿œme chose.
> ￜ l'aide de Code VBA si possible.
>
> Merci de votre support


Sarrel

unread,
Feb 26, 2010, 5:35:01 AM2/26/10
to
Merci pour ta proposition ça marche très bien.

"Daniel.C" a écrit :

> Bonjour.
> Ce qui suppose que les macros soient activées.


> Mets cette macro dans le module "ThisWorkBook" :
>
> Private Sub Workbook_NewSheet(ByVal Sh As Object)
> Application.DisplayAlerts = False
> Sh.Delete
> Application.DisplayAlerts = True
> End Sub
>
> Cordialement.
> Daniel
>

> > Bonjour la communauté,


> >
> > dans un classeur excel 2007, je voudrais interdire l'insertion

> > d'une nouvelle feuille dans le classeur (donc rendre inopérant Majuscule+F11
> > par exemple)

> > ou désactiver le petit onglet qui est à la fin des feuille qui permet de
> > faire la même chose.
> > à l'aide de Code VBA si possible.
> >
> > Merci de votre support
>
>
> .
>

Blaise Cacramp

unread,
Feb 26, 2010, 12:49:08 PM2/26/10
to
Bonjour,

Ce serait bien d'expliquer un peu !

cdt

"Daniel.C" <dcolard...@gmail.com> a �crit dans le message de news:
ueZjrRst...@TK2MSFTNGP02.phx.gbl...
> Bonjour.
> Ce qui suppose que les macros soient activ�es.


> Mets cette macro dans le module "ThisWorkBook" :
>
> Private Sub Workbook_NewSheet(ByVal Sh As Object)
> Application.DisplayAlerts = False
> Sh.Delete
> Application.DisplayAlerts = True
> End Sub
>
> Cordialement.
> Daniel
>

>> Bonjour la communaut�,


>>
>> dans un classeur excel 2007, je voudrais interdire l'insertion d'une

>> nouvelle feuille dans le classeur (donc rendre inop�rant Majuscule+F11
>> par exemple)
>> ou d�sactiver le petit onglet qui est � la fin des feuille qui permet de
>> faire la m�me chose.
>> � l'aide de Code VBA si possible.
>>
>> Merci de votre support
>
>


Daniel.C

unread,
Feb 26, 2010, 1:00:40 PM2/26/10
to

Bonjour.
J'explique si on me le demande, ne sachant pas le degrￜ de connaissance
de l'interlocuteur (3types : soit ils comprennent, soit ils s'en
foutent, soit ils demandent des explications).
Est-ce que tu es du troisiï¿œme type ?
Cordialement.
Daniel

> Bonjour,
>
> Ce serait bien d'expliquer un peu !
>
> cdt
>

> "Daniel.C" <dcolard...@gmail.com> a ï¿œcrit dans le message de news:
> ueZjrRst...@TK2MSFTNGP02.phx.gbl...
>> Bonjour.
>> Ce qui suppose que les macros soient activï¿œes.


>> Mets cette macro dans le module "ThisWorkBook" :
>>
>> Private Sub Workbook_NewSheet(ByVal Sh As Object)
>> Application.DisplayAlerts = False
>> Sh.Delete
>> Application.DisplayAlerts = True
>> End Sub
>>
>> Cordialement.
>> Daniel
>>

>>> Bonjour la communautￜ,


>>>
>>> dans un classeur excel 2007, je voudrais interdire l'insertion d'une

>>> nouvelle feuille dans le classeur (donc rendre inopï¿œrant Majuscule+F11 par
>>> exemple)
>>> ou dￜsactiver le petit onglet qui est ￜ la fin des feuille qui permet de
>>> faire la mï¿œme chose.

>>> ￜ l'aide de Code VBA si possible.
>>>
>>> Merci de votre support
>>
>>


michdenis

unread,
Feb 27, 2010, 9:00:35 AM2/27/10
to
Bonjour,

Il y a une autre alternative, la protection du classeur -Structure
(non la protection de la feuille)

"MotDePasse" si nécessaire

ThisWorkbook.Protect "MotDePasse", True

"Sarrel" <Sar...@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 53BCEFE2-52A4-48D3...@microsoft.com...

konetenon

unread,
Apr 16, 2018, 9:26:10 PM4/16/18
to
Le vendredi 26 Février 2010 à 08:44 par Sarrel :
merci frere c'est super

konetenon

unread,
Apr 16, 2018, 9:45:56 PM4/16/18
to
Le vendredi 26 Février 2010 à 08:44 par Sarrel :
Ce code peut te servir,J'ai travaillé un peu sur l'idée de Michdenis



Sub interdictionajouOnglet()

Dim MotDePasse As Variant

ThisWorkbook.Protect "MotDePasse", True
MotDePasse = InputBox("entrer votre mot de passe")
If MotDePasse = "1234" Then
ThisWorkbook.Protect "MotDePasse", False
End If

End Sub

konetenon

unread,
Apr 16, 2018, 9:51:01 PM4/16/18
to
Le vendredi 26 Février 2010 à 08:44 par Sarrel :
0 new messages