Protection et déprotection feuille

[flamel]

Bonjour à tous.

Je souhaiterais protéger un feuille, puis à l'occasion d'un copier-collage spécial commandé par un bouton d'une une autre feuille, la déprotéger le temps de la copie, puis la reprotéger.
Je n'y arrive pas, les instructions de copie entre-temps se plantent.

Comment faire.

Merci pour l'aide.

 

[Luki]

Bonsoir Flamel

Pour copier A1 en feuille2 vers A1 en feuille 1 protégée:

Sub ProtectEtUnprotect()
With Sheets('Feuil1')
.Unprotect
Sheets('Feuil2').Range('A1').Copy (.Range('A1'))
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

A+

 

[Luki]

Re,

La variante pour CopierColler seulement le format.

Sub ProtectEtUnprotect()
With Sheets('Feuil1')
.Unprotect
Sheets('Feuil2').Range('A1').Copy
.Range('A1').PasteSpecial Paste:=xlFormats
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub


le problème vient du fait que tu dois déprotéger la feuille AVANT de faire le CopierColler.

A+

 

[flamel]

Merci Luki.

Ca marche

A+