Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
elu%23vcN1FHA.3376@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" a écrit dans le message de news:
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" a écrit dans le message de news:Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
u0cAjqO1FHA.3660@TK2MSFTNGP15.phx.gbl...
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
ONNwgmO1FHA.3180@TK2MSFTNGP14.phx.gbl...
Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
elu%23vcN1FHA.3376@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" a écrit dans le message de news:
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" a écrit dans le message de news:Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" a écrit dans le message de news:
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" a écrit dans le message de news:Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
u0cAjqO1FHA.3660@TK2MSFTNGP15.phx.gbl...
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
ONNwgmO1FHA.3180@TK2MSFTNGP14.phx.gbl...
Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
elu%23vcN1FHA.3376@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" a écrit dans le message de news:
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" a écrit dans le message de news:Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
C'est quand même plus ardu que l'utilisation de la protection du classeur
!
Effectivement Chris,
mais il faudrait aussi prévoir quelques lignes de code dans le cas où
l'usager insère une nouvelle feuille à son classeur...
C'est quand même plus ardu que l'utilisation de la protection du classeur
!
;-)
Salutations!
"ChrisV" a écrit dans le message de news:
Ofw%
Salut Denis,
Effectivement, cette possibilité m'avait échapper... merci de l'avoir
rappeler.
Celà dit, il me semble que ce type de restrictions est d'avantage destinée
à
"pallier" aux erreurs ou étourderies d'utilisateurs distraits, plutôt
qu'une
mise en place d'une stratégie de sécurité du classeur, qui quelque soit
son
niveau d'expertise, ne résistera de toute façon pas longtemps face à un
utilisateur avancé...
Maintenant, et en ce qui concerne la sélection d'un groupe de travail,
supprimer cette possibilité pour l'onglet concerné ne devait pas être trop
complexe, tout au plus 3 ou 4 lignes de code supplémentaires... non ?
ChrisV
"michdenis" a écrit dans le message de news:
%Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" a écrit dans le message de news:
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" a écrit dans le message de news:Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
C'est quand même plus ardu que l'utilisation de la protection du classeur
!
Effectivement Chris,
mais il faudrait aussi prévoir quelques lignes de code dans le cas où
l'usager insère une nouvelle feuille à son classeur...
C'est quand même plus ardu que l'utilisation de la protection du classeur
!
;-)
Salutations!
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
Ofw%23kQP1FHA.3504@TK2MSFTNGP10.phx.gbl...
Salut Denis,
Effectivement, cette possibilité m'avait échapper... merci de l'avoir
rappeler.
Celà dit, il me semble que ce type de restrictions est d'avantage destinée
à
"pallier" aux erreurs ou étourderies d'utilisateurs distraits, plutôt
qu'une
mise en place d'une stratégie de sécurité du classeur, qui quelque soit
son
niveau d'expertise, ne résistera de toute façon pas longtemps face à un
utilisateur avancé...
Maintenant, et en ce qui concerne la sélection d'un groupe de travail,
supprimer cette possibilité pour l'onglet concerné ne devait pas être trop
complexe, tout au plus 3 ou 4 lignes de code supplémentaires... non ?
ChrisV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23e6H36O1FHA.3300@TK2MSFTNGP15.phx.gbl...
Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
u0cAjqO1FHA.3660@TK2MSFTNGP15.phx.gbl...
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
ONNwgmO1FHA.3180@TK2MSFTNGP14.phx.gbl...
Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
elu%23vcN1FHA.3376@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
C'est quand même plus ardu que l'utilisation de la protection du classeur
!
Effectivement Chris,
mais il faudrait aussi prévoir quelques lignes de code dans le cas où
l'usager insère une nouvelle feuille à son classeur...
C'est quand même plus ardu que l'utilisation de la protection du classeur
!
;-)
Salutations!
"ChrisV" a écrit dans le message de news:
Ofw%
Salut Denis,
Effectivement, cette possibilité m'avait échapper... merci de l'avoir
rappeler.
Celà dit, il me semble que ce type de restrictions est d'avantage destinée
à
"pallier" aux erreurs ou étourderies d'utilisateurs distraits, plutôt
qu'une
mise en place d'une stratégie de sécurité du classeur, qui quelque soit
son
niveau d'expertise, ne résistera de toute façon pas longtemps face à un
utilisateur avancé...
Maintenant, et en ce qui concerne la sélection d'un groupe de travail,
supprimer cette possibilité pour l'onglet concerné ne devait pas être trop
complexe, tout au plus 3 ou 4 lignes de code supplémentaires... non ?
ChrisV
"michdenis" a écrit dans le message de news:
%Bonjour ChrisV,
Malgré l'effort louable, il est toujours possible de supprimer ladite
feuille en créant un groupe de travail incluant cette feuille
et en supprimant le groupe de feuilles.
En fait, ta procédure démontre très bien la complexité de la tâche... car
cela doit être applicable à l'ensemble des feuilles du
classeur. Il n'est pas dit cependant que la tâche est non réalisable !
Salutations!
"ChrisV" a écrit dans le message de news:
Un exemple ici...
http://cjoint.com/?ktwsGaKQKK
ChrisV
"ChrisV" a écrit dans le message de news:Bonjour Nico,
En supposant que l'onglet pour lequel il faille appliquer ces
restrictions
se nomme "zaza"...
Insérer au préalable dans le classeur un nouvel onglet qui aura sa
propriété Visible à xlsheetveryHidden, et dans lequel on trouvera une
cellule contenant la formule =MAINTENANT()
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Feuil1.Name <> "zaza" Then
With Application
.EnableEvents = False
Feuil1.Name = "zaza"
.EnableEvents = True
End With
End If
End Sub
Dans la feuille de code de l'onglet concerné (zaza)
Private Sub Worksheet_Activate()
With Application
.CommandBars("Ply").Controls(3).Delete (True)
.CommandBars(1).Controls(2).Controls(12).Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.CommandBars("Ply").Reset
.CommandBars(1).Controls(2).Controls(12).Enabled = True
End With
End Sub
ChrisV
"Nico" a écrit dans le message de news:
elu%Bonsoir,
Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !
Merci
Nico
