OVH Cloud OVH Cloud

feuil

14 réponses
Avatar
Nico
Bonsoir,

Peut-on empecher de supprimer ou renommer une feuil ?
Et merci encore à Lsteph et ChrisV ca fonctionne trés bien !

Merci

Nico

10 réponses

1 2
Avatar
michdenis
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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
Avatar
Nico
en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais lorsque
j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le fichier
en question

Nico


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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





Avatar
michdenis
Bonjour Nico,

Si tu protège ton classeur (<> de la protection des feuilles du classeur), Structure seulement, tu ne pourras pas renommer tes
feuilles, les déplaces, les supprimer et en ajouter par les commandes du menu. Pour arriver au même résultat, il est possible peut
être de faire autrement, mais cela est beaucoup plus complexe et long à réaliser.


Salutations!



"Nico" a écrit dans le message de news: %
en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais lorsque
j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le fichier
en question

Nico


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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





Avatar
Nico
Je sais, tu as raison, mais si je protege le classeur, il y d'autres macros
qui ne pourront fonctionner à l'ouverture, je cherche une parade mais ne
trouve pas.

Nico

"michdenis" a écrit dans le message de news:

Bonjour Nico,

Si tu protège ton classeur (<> de la protection des feuilles du
classeur), Structure seulement, tu ne pourras pas renommer tes

feuilles, les déplaces, les supprimer et en ajouter par les commandes du
menu. Pour arriver au même résultat, il est possible peut

être de faire autrement, mais cela est beaucoup plus complexe et long à
réaliser.



Salutations!



"Nico" a écrit dans le message de news:
%

en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais
lorsque

j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le
fichier

en question

Nico


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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










Avatar
anonymousA
Bonjour

pour abonder dans le même sens, il est beaucoup plus simple de controler
suite à une protection de classeur, le renommage ou la suppression
d'une feuille que de se lancer dans ces options si le classeur n'est pas
protégé. Le jeu en vaut-il la chandelle ?

A+


en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais lorsque
j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le fichier
en question

Nico


"michdenis" a écrit dans le message de news:
#

Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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










Avatar
michdenis
Bonjour Nico,

Dans le ThisWorkbook de ton classeur, tu insères ceci :

Private Sub Workbook_Open()
ThisWorkbook.Unprotect 'motdePassSiBesoim
'TaMacro
ThisWorkbook.Protect 'motdePassSiBesoim
End Sub


Salutations!




"Nico" a écrit dans le message de news: uorBA%
Je sais, tu as raison, mais si je protege le classeur, il y d'autres macros
qui ne pourront fonctionner à l'ouverture, je cherche une parade mais ne
trouve pas.

Nico

"michdenis" a écrit dans le message de news:

Bonjour Nico,

Si tu protège ton classeur (<> de la protection des feuilles du
classeur), Structure seulement, tu ne pourras pas renommer tes

feuilles, les déplaces, les supprimer et en ajouter par les commandes du
menu. Pour arriver au même résultat, il est possible peut

être de faire autrement, mais cela est beaucoup plus complexe et long à
réaliser.



Salutations!



"Nico" a écrit dans le message de news:
%

en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais
lorsque

j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le
fichier

en question

Nico


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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










Avatar
Nico
je test,
merci


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

Dans le ThisWorkbook de ton classeur, tu insères ceci :

Private Sub Workbook_Open()
ThisWorkbook.Unprotect 'motdePassSiBesoim
'TaMacro
ThisWorkbook.Protect 'motdePassSiBesoim
End Sub


Salutations!




"Nico" a écrit dans le message de news:
uorBA%

Je sais, tu as raison, mais si je protege le classeur, il y d'autres
macros

qui ne pourront fonctionner à l'ouverture, je cherche une parade mais ne
trouve pas.

Nico

"michdenis" a écrit dans le message de news:

Bonjour Nico,

Si tu protège ton classeur (<> de la protection des feuilles du
classeur), Structure seulement, tu ne pourras pas renommer tes

feuilles, les déplaces, les supprimer et en ajouter par les commandes du
menu. Pour arriver au même résultat, il est possible peut

être de faire autrement, mais cela est beaucoup plus complexe et long à
réaliser.



Salutations!



"Nico" a écrit dans le message de news:
%

en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais
lorsque

j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le
fichier

en question

Nico


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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















Avatar
Nico
Super idée, je te remercie c'est nickel

A+

"Nico" a écrit dans le message de news:

je test,
merci


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

Dans le ThisWorkbook de ton classeur, tu insères ceci :

Private Sub Workbook_Open()
ThisWorkbook.Unprotect 'motdePassSiBesoim
'TaMacro
ThisWorkbook.Protect 'motdePassSiBesoim
End Sub


Salutations!




"Nico" a écrit dans le message de news:
uorBA%

Je sais, tu as raison, mais si je protege le classeur, il y d'autres
macros

qui ne pourront fonctionner à l'ouverture, je cherche une parade mais ne
trouve pas.

Nico

"michdenis" a écrit dans le message de news:

Bonjour Nico,

Si tu protège ton classeur (<> de la protection des feuilles du
classeur), Structure seulement, tu ne pourras pas renommer tes

feuilles, les déplaces, les supprimer et en ajouter par les commandes
du



menu. Pour arriver au même résultat, il est possible peut
être de faire autrement, mais cela est beaucoup plus complexe et long
à



réaliser.


Salutations!



"Nico" a écrit dans le message de news:
%

en Faîte, je ne souhaite pas proteger mon classeur, je souhaiterais
lorsque

j'ouvre mon fichier par
Private Sub Workbook_Open()
qu'il me soit impossible de renommer ou supprimer une feuil dans le
fichier

en question

Nico


"michdenis" a écrit dans le message de news:
#
Bonjour Nico,

J'ai répondu à ta question hier. Ma réponse ne te convient pas ?


Salutations!


"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



















Avatar
ChrisV
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




Avatar
ChrisV
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








1 2