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
michdenis
Bonsoir Jean,
Ceci est une réponse que je t'ai faite hier.
Pour Protéger une ou quelques cellules dans une feuille, voici une procédure que tu peux adapter en la copiant dans le module feuille où l'action se déroule . Dès que l'usager sélectionne une de ces cellules...la feuille se protège automatiquement est se déprotège de la même façon lorsque l'usager choisit une cellule non protégée.
'----------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
'Choisi la ou les cellules de ton choix en respectant 'cette syntaxe. Dans mon exemple la plage de cellules A1:A5 , la cellule B10 et la plage G1:G3 est protégé. Set Rg = Range("A1:A5,B10,G1:G3")
If Not Intersect(Target, Rg) Is Nothing Then Me.Protect "toto" Else Me.Unprotect "toto" End If
End Sub '-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
Je voudrai proteger de deux façons ma feuille 1 une fois je protegerai la totalité de ma feuille c'est a dire toute les cellules.
et une autre fois proteger seulement deux cellules en écriture et laisser les autre non protégées.
quel serait le code en vba.
merci
Bonsoir Jean,
Ceci est une réponse que je t'ai faite hier.
Pour Protéger une ou quelques cellules dans une feuille, voici une procédure que tu peux adapter en la copiant dans le
module feuille où l'action se déroule . Dès que l'usager sélectionne une de ces cellules...la feuille se protège
automatiquement est se déprotège de la même façon lorsque l'usager choisit une cellule non protégée.
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
'Choisi la ou les cellules de ton choix en respectant
'cette syntaxe. Dans mon exemple la plage de cellules
A1:A5 , la cellule B10 et la plage G1:G3 est protégé.
Set Rg = Range("A1:A5,B10,G1:G3")
If Not Intersect(Target, Rg) Is Nothing Then
Me.Protect "toto"
Else
Me.Unprotect "toto"
End If
End Sub
'-----------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
317E6530-57CB-4D75-8D2F-374D11338EA7@microsoft.com...
Bonjour,
Je voudrai proteger de deux façons ma feuille 1
une fois je protegerai la totalité de ma feuille c'est a dire toute les
cellules.
et une autre fois proteger seulement deux cellules en écriture et laisser
les autre non protégées.
Pour Protéger une ou quelques cellules dans une feuille, voici une procédure que tu peux adapter en la copiant dans le module feuille où l'action se déroule . Dès que l'usager sélectionne une de ces cellules...la feuille se protège automatiquement est se déprotège de la même façon lorsque l'usager choisit une cellule non protégée.
'----------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
'Choisi la ou les cellules de ton choix en respectant 'cette syntaxe. Dans mon exemple la plage de cellules A1:A5 , la cellule B10 et la plage G1:G3 est protégé. Set Rg = Range("A1:A5,B10,G1:G3")
If Not Intersect(Target, Rg) Is Nothing Then Me.Protect "toto" Else Me.Unprotect "toto" End If
End Sub '-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
Je voudrai proteger de deux façons ma feuille 1 une fois je protegerai la totalité de ma feuille c'est a dire toute les cellules.
et une autre fois proteger seulement deux cellules en écriture et laisser les autre non protégées.
quel serait le code en vba.
merci
Clément Marcotte
Bonsoir,
Ceci est une réponse que je t'ai faite hier.
Il s'est fait dire et expliquer plusieurs fois qu'il serait mieux avec Outlook Express au lieu de la ?%&%$/* interface Web. Comme il est visiblement trop lâche pour reculer suffisamment loin avec l'interface Web; il fait le con et il nous abreuve de ses &*(&%/?*()_)_ de questions à répétition.
Peut-être que si c'est toi qui lui dit de passer par OE au lieu de la %?&*)_ d'interface web, il va peut-être se grouiller le postérieur pour le faire.
Bonsoir,
Ceci est une réponse que je t'ai faite hier.
Il s'est fait dire et expliquer plusieurs fois qu'il serait mieux avec
Outlook Express au lieu de la ?%&%$/* interface Web. Comme il est
visiblement trop lâche pour reculer suffisamment loin avec
l'interface Web; il fait le con et il nous abreuve de ses
&*(&%/?*()_)_ de questions à répétition.
Peut-être que si c'est toi qui lui dit de passer par OE au lieu de la
%?&*)_ d'interface web, il va peut-être se grouiller le postérieur
pour le faire.
Il s'est fait dire et expliquer plusieurs fois qu'il serait mieux avec Outlook Express au lieu de la ?%&%$/* interface Web. Comme il est visiblement trop lâche pour reculer suffisamment loin avec l'interface Web; il fait le con et il nous abreuve de ses &*(&%/?*()_)_ de questions à répétition.
Peut-être que si c'est toi qui lui dit de passer par OE au lieu de la %?&*)_ d'interface web, il va peut-être se grouiller le postérieur pour le faire.
JEAN
je me suis peut etre mal expliqué, mais je souhaite au fait avoir un programme qui me protege toute la feuille 1 tantot,seulement le contenu.
et une autre fois qu'il me protege deux cellules dans la feuil1
car j'ai un programme derriere, qui me fait si je rentre le bon mot de passe alors j'accede à la feuille où seulement deux cellules sont protegé, et si je rentre le mauvait mot de passe alors je veux que dans la feuille1 toutes les cellules se protege(le content seulement).
merci
Bonsoir Jean,
Ceci est une réponse que je t'ai faite hier.
Pour Protéger une ou quelques cellules dans une feuille, voici une procédure que tu peux adapter en la copiant dans le module feuille où l'action se déroule . Dès que l'usager sélectionne une de ces cellules...la feuille se protège automatiquement est se déprotège de la même façon lorsque l'usager choisit une cellule non protégée.
'----------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
'Choisi la ou les cellules de ton choix en respectant 'cette syntaxe. Dans mon exemple la plage de cellules A1:A5 , la cellule B10 et la plage G1:G3 est protégé. Set Rg = Range("A1:A5,B10,G1:G3")
If Not Intersect(Target, Rg) Is Nothing Then Me.Protect "toto" Else Me.Unprotect "toto" End If
End Sub '-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
Je voudrai proteger de deux façons ma feuille 1 une fois je protegerai la totalité de ma feuille c'est a dire toute les cellules.
et une autre fois proteger seulement deux cellules en écriture et laisser les autre non protégées.
quel serait le code en vba.
merci
je me suis peut etre mal expliqué, mais je souhaite au fait avoir un
programme qui me protege toute la feuille 1 tantot,seulement le contenu.
et une autre fois qu'il me protege deux cellules dans la feuil1
car j'ai un programme derriere, qui me fait si je rentre le bon mot de passe
alors j'accede à la feuille où seulement deux cellules sont protegé, et si je
rentre le mauvait mot de passe alors je veux que dans la feuille1 toutes les
cellules se protege(le content seulement).
merci
Bonsoir Jean,
Ceci est une réponse que je t'ai faite hier.
Pour Protéger une ou quelques cellules dans une feuille, voici une procédure que tu peux adapter en la copiant dans le
module feuille où l'action se déroule . Dès que l'usager sélectionne une de ces cellules...la feuille se protège
automatiquement est se déprotège de la même façon lorsque l'usager choisit une cellule non protégée.
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
'Choisi la ou les cellules de ton choix en respectant
'cette syntaxe. Dans mon exemple la plage de cellules
A1:A5 , la cellule B10 et la plage G1:G3 est protégé.
Set Rg = Range("A1:A5,B10,G1:G3")
If Not Intersect(Target, Rg) Is Nothing Then
Me.Protect "toto"
Else
Me.Unprotect "toto"
End If
End Sub
'-----------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
317E6530-57CB-4D75-8D2F-374D11338EA7@microsoft.com...
Bonjour,
Je voudrai proteger de deux façons ma feuille 1
une fois je protegerai la totalité de ma feuille c'est a dire toute les
cellules.
et une autre fois proteger seulement deux cellules en écriture et laisser
les autre non protégées.
je me suis peut etre mal expliqué, mais je souhaite au fait avoir un programme qui me protege toute la feuille 1 tantot,seulement le contenu.
et une autre fois qu'il me protege deux cellules dans la feuil1
car j'ai un programme derriere, qui me fait si je rentre le bon mot de passe alors j'accede à la feuille où seulement deux cellules sont protegé, et si je rentre le mauvait mot de passe alors je veux que dans la feuille1 toutes les cellules se protege(le content seulement).
merci
Bonsoir Jean,
Ceci est une réponse que je t'ai faite hier.
Pour Protéger une ou quelques cellules dans une feuille, voici une procédure que tu peux adapter en la copiant dans le module feuille où l'action se déroule . Dès que l'usager sélectionne une de ces cellules...la feuille se protège automatiquement est se déprotège de la même façon lorsque l'usager choisit une cellule non protégée.
'----------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
'Choisi la ou les cellules de ton choix en respectant 'cette syntaxe. Dans mon exemple la plage de cellules A1:A5 , la cellule B10 et la plage G1:G3 est protégé. Set Rg = Range("A1:A5,B10,G1:G3")
If Not Intersect(Target, Rg) Is Nothing Then Me.Protect "toto" Else Me.Unprotect "toto" End If
End Sub '-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
Je voudrai proteger de deux façons ma feuille 1 une fois je protegerai la totalité de ma feuille c'est a dire toute les cellules.
et une autre fois proteger seulement deux cellules en écriture et laisser les autre non protégées.
