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
Clément Marcotte
Question quotidienne ou presque.
Déprotéger avant - Protéger après. "JEAN" a écrit dans le message de news:
Bonjour,
Je souhaite proteger toutes mes feuilles dans mon classeurs sauf 2 j'ai
environ 10 feuilles, a savoir que j'ai des macros.
comment les proteger sans generer de bug au niveau des macro qui devront se
dérouler sur des feuilles proteger.
merci
Question quotidienne ou presque.
Déprotéger avant - Protéger après.
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de
news:64DC8C3B-D164-4BE0-9970-B437D4AB08A3@microsoft.com...
Bonjour,
Je souhaite proteger toutes mes feuilles dans mon classeurs sauf 2
j'ai
environ 10 feuilles, a savoir que j'ai des macros.
comment les proteger sans generer de bug au niveau des macro qui
devront se
Déprotéger avant - Protéger après. "JEAN" a écrit dans le message de news:
Bonjour,
Je souhaite proteger toutes mes feuilles dans mon classeurs sauf 2 j'ai
environ 10 feuilles, a savoir que j'ai des macros.
comment les proteger sans generer de bug au niveau des macro qui devront se
dérouler sur des feuilles proteger.
merci
Benead
Bonjour Jean,
Comme cela :
Option Explicit
Sub VerroullerFeuilles() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "F1" And Sh.Name <> "F2" Then Sh.Protect password:="", UserInterfaceOnly:=True End If Next Sh End Sub
A+ Benead XL97
JEAN a écrit:
Bonjour,
Je souhaite proteger toutes mes feuilles dans mon classeurs sauf 2 j'ai environ 10 feuilles, a savoir que j'ai des macros.
comment les proteger sans generer de bug au niveau des macro qui devront se dérouler sur des feuilles proteger.
merci
Bonjour Jean,
Comme cela :
Option Explicit
Sub VerroullerFeuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "F1" And Sh.Name <> "F2" Then
Sh.Protect password:="", UserInterfaceOnly:=True
End If
Next Sh
End Sub
A+
Benead
XL97
JEAN a écrit:
Bonjour,
Je souhaite proteger toutes mes feuilles dans mon classeurs sauf 2 j'ai
environ 10 feuilles, a savoir que j'ai des macros.
comment les proteger sans generer de bug au niveau des macro qui devront se
dérouler sur des feuilles proteger.
Sub VerroullerFeuilles() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "F1" And Sh.Name <> "F2" Then Sh.Protect password:="", UserInterfaceOnly:=True End If Next Sh End Sub
A+ Benead XL97
JEAN a écrit:
Bonjour,
Je souhaite proteger toutes mes feuilles dans mon classeurs sauf 2 j'ai environ 10 feuilles, a savoir que j'ai des macros.
comment les proteger sans generer de bug au niveau des macro qui devront se dérouler sur des feuilles proteger.
