proteger feuille

[Mitch]

Bonjour a tous , je me sert d'un planning sur excel creer ici est grace a votre aide mais nous sommes plusieurs a l'utiliser et il n'ais pas proteger ce qui fait que des formules sont effacer
Je voudrais proteger quelques cellules de la feuille planning , j'ai donc inserer (ActiveSheet.Unprotect ("****")
ActiveSheet.Protect ("****")
en debut et fin de code mais a l'ouverture j'ai une erreur quelqu'un peut m'aider
Merci

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Caillou]

Re : proteger feuille

Bonjour,

j'ai donc inserer (ActiveSheet.Unprotect ("****")
ActiveSheet.Protect ("****")

Je ne vois vois aucun code correspondant à une quelconque protection !

Caillou

 

[kjin]

Re : proteger feuille

Bonjour,
Pas d'erreur à l'ouverture, sans doute nous donneras tu qq eclaircissements...
Quand on signale une erreur, il est indispensable d'indiquer la ligne incriminée ainsi que le n° de l'erreur associé
A+
kjin

 

[Mitch]

Bonjour Caillou 😀ans mon fichier joint je n'ai pas de protection a cause du beug
Bonjour Kjin : erreur d'execution 1004 la methode Sort de la classe Range a echoue
dans ThisWorkbook voici la ligne
.Range("A3:G" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort Key1:=.Range("C3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[kjin]

Re : Re: proteger feuille

Re,
Comme dit plus haut, pas de bug rencontré, néanmoins, j' ai du mal à comprendre ceci

.Range("A3:G" & .Cells(Rows.Count, 2).End(xlUp).Row)

Qu'as tu voulu écrire ?
edit : ne serait ce pas

.Range("A3:G" & .Range("B65000").End(xlUp).Row)

??
A+
kjin

 

[Mitch]

Merci Kjin de m'aider : pour la protection c'est OK je placer mal le code ActiveSheet.Unprotect
je debute donc pour le bout de code je comprend que ce ne soit pas top
Merci