Protect et copy

Bonsoir,

Je souhaite utiliser la Sub Copy entre 2 feuilles protégé de mon classeur. Mais probleme, car même en autorisant la modification par macro (UserInterfaceOnly:=True), j’ai un message d’erreur disant que la feuille et protégé…

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub test_protect_avec_copy()   Worksheets("Sheet1").Protect UserInterfaceOnly:=True 'protection de la modification du contenu de la feuille, autorise par macro Worksheets("Sheet2").Protect UserInterfaceOnly:=True Worksheets("Sheet1").Range("A1") = 25 'OK ca marche Worksheets("Sheet1").Range("A1").Copy (Worksheets("Sheet1").Range("A2")) 'OK ca marche Worksheets("Sheet1").Range("A1").Copy (Worksheets("Sheet2").Range("A2")) 'message d'erreur : la feuille est protege...   End Sub

---

Est-ce un bug de Excel ou pourquoi la copie fonctionne dans intra feuille et non pas inter feuilles ?

Merci

Je ne sais pas je n'utilise pas

Code:

---

UserInterfaceOnly:=True

---

Une solution deprotéger et reproteger...

Sans le UserInterfaceOnly:=True, meme la macro ne peut rien modifier.
J'ai 9 feuilles au total et une macro qui tourne en permanence, "deprotéger et reproteger" serait beaucoup trop lourd...

Bonjour,

Il n'y a pas que ça qui bloque avec UIO, essayes ainsi (à paramétrer selon le collage voulu...):

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub test_protect_avec_copy()   Worksheets("Feuil1").Protect UserInterfaceOnly:=True 'protection de la modification du contenu de la feuille, autorise par macro Worksheets("Feuil2").Protect UserInterfaceOnly:=True Worksheets("Feuil1").Range("A1") = 25 'OK ca marche Worksheets("Feuil1").Range("A1").Copy (Worksheets("Feuil1").Range("A2")) 'OK ca marche Worksheets("Feuil1").Range("A1").Copy Worksheets("Feuil2").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   End Sub

---

cordialement,

Didier