protéger feuille

[christian]

bonjour,

sachant que plage1 n'est pas dans la feuille active,
comment protéger la feuille qui contenait plage1 ?

Plage1.Worksheet.Unprotect
Plage1.Delete

 

[Robert]

Bonsoir Christian, bonsoir le forum,

Si j'ai bien compris, voici ton code modifié :

Dim x As Byte 'déclare la variable x
x = plage.Worksheet.Index 'définit la variable x (Index de la feuille contenant la plage)
plage.Worksheet.Unprotect
plage.Delete
Sheets(x).Protect 'protège la feuille

À plus,

Robert

 

[christian]

Bonsoir robert,

merci pour la solution, c'est exactement ce qu'il me fallait

christian

 

[christian]

bonjour robert,

la solution proposée fonctionne tant que plage1 est dans la classeur actif mais comment adapter la macro si plage1 est dans un autre classeur ouvert

a+,
christian