Discussion :

[jeje00]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

Je ne sais pas je n'utilise pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserInterfaceOnly:=True

Une solution deprotéger et reproteger...

[jeje00]

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...

[Didier Gonard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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