Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel probleme de protection de feuilles

probleme de protection de feuilles

5 réponses
Avatar
PHIL
Bonjour,

J'ai utilisé ce code:
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect "passe", DrawingObjects:=False, Contents:=True,
Scenarios:= _
True, userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"

mes feuilles se protegent mais ma feuille 6 qui est la copie de ma feuille 5
ne se protege pas.

pourtant ma feuille 5 est bien protégé.

Pourquoi?

merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Romuald
Cela fonctionne parfaitement chez moi
Pourquoi tu ne remets pas JEAN ?


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

Bonjour,

J'ai utilisé ce code:
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect "passe", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
True, userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"

mes feuilles se protegent mais ma feuille 6 qui est la copie de ma feuille
5
ne se protege pas.

pourtant ma feuille 5 est bien protégé.

Pourquoi?

merci



Avatar
PHIL
non ma feuille 6 n'est pas protegé , je ne comprend pas.

merci


Cela fonctionne parfaitement chez moi
Pourquoi tu ne remets pas JEAN ?


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

Bonjour,

J'ai utilisé ce code:
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect "passe", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
True, userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"

mes feuilles se protegent mais ma feuille 6 qui est la copie de ma feuille
5
ne se protege pas.

pourtant ma feuille 5 est bien protégé.

Pourquoi?

merci








Avatar
Gaenonius
Au cas où, essaye cette autre méthode pour protéger tes feuilles :

''''''''''''''''''''''''''
Sub Protege()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Protect "passe", _
DrawingObjects:úlse, _
Contents:=True, _
Scenarios:=True, _
userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"
End Sub
''''''''''''''''''''''''''

--
Gaenonius

Bonjour,

J'ai utilisé ce code:
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect "passe", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
True, userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"

mes feuilles se protegent mais ma feuille 6 qui est la copie de ma feuille 5
ne se protege pas.

pourtant ma feuille 5 est bien protégé.

Pourquoi?

merci



Avatar
Romuald
Donne une adresse valide, et je t'envoie un exemple !
Romuald


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

non ma feuille 6 n'est pas protegé , je ne comprend pas.

merci


Cela fonctionne parfaitement chez moi
Pourquoi tu ne remets pas JEAN ?


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

Bonjour,

J'ai utilisé ce code:
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect "passe", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
True, userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"

mes feuilles se protegent mais ma feuille 6 qui est la copie de ma
feuille
5
ne se protege pas.

pourtant ma feuille 5 est bien protégé.

Pourquoi?

merci










Avatar
LSteph
Bonsoir,
il faut quand même que tu saches que userinterfaceonly (2de propsition que
je t'ai fournie à ta demande)
t'évite de déprotèger reprotèger chacune de tes macros
mais n'empêchera pas (contrairement à la 1ère) l' utilisateurde modifier le
document par une autre macro .

a+

lSteph


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

Bonjour,

J'ai utilisé ce code:
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect "passe", DrawingObjects:úlse, Contents:=True,
Scenarios:= _
True, userinterfaceonly:=True
Next
Feuil1.Unprotect "passe"

mes feuilles se protegent mais ma feuille 6 qui est la copie de ma feuille
5
ne se protege pas.

pourtant ma feuille 5 est bien protégé.

Pourquoi?

merci