Macro non transportable

[ChantalTreize]

Bonsoir à tous & à toutes,
J'ai un tableau avec une macro pour bloquer certaines cellules, ça fonctionne très bien sur mon pc (excel 365)
Mais lorsque je l'envoie chez le client qui est en excel 2010 la macro suivante ne fonctionne pas:
Sub Protec_grille()
'
' Protec_grille Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("AR33:AT33").Select
ActiveCell.FormulaR1C1 = "1"
Range("AR33:AT33").Select
Selection.ClearContents
Range("BQ32:BU32").Select
ActiveCell.FormulaR1C1 = "2"
Range("BQ32:BU32").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=165
Range("AE205:AG205").Select
ActiveCell.FormulaR1C1 = "-10"
Range("AE205:AG205").Select
Selection.ClearContents
Range("AO213:AS213").Select
ActiveCell.FormulaR1C1 = "2"
Range("AO213:AS213").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-255
End Sub

Quelqu'un pourrait il me dire s'il y a un problème dans cette macro
Merci d'avance
Chantal

 

[blord]

Bonjour,

Ce code ne peuut pas fonctionner car la première ligne de commande protêge la feuille et après on essaie d'écrire dans la feuille...

Il faudrait déplacer la ligne "ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True" à la fin de la routine....

 

[blord]

 

[mapomme]

Bonsoir ChantalTreize,

Pouvez vous expliquer ce que fait cette macro ? Si j'ai bien lu le code:

• elle sélectionne une zone
• elle inscrit une valeur dans la cellule du coin gauche supérieur de la sélection
• elle efface les valeurs de la sélection (donc la valeur précédemment inscrite)
• ...

Autant ne pas inscrire de valeur ?

Et quelle est l'erreur rencontrée en Excel 2010?

 

[mapomme]

Bonsoir à tous, blord,

On devrait pouvoir protéger la feuille en tête de code, si on ajoute aux arguments de Protect l'option UserInterfaceOnly mise à True:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

 

[ChantalTreize]

Un grand merci à tous pour vos réponses ça fonctionne
Chantal

 

[ChantalTreize]

Un grand merci à tous pour vos réponses ça fonctionne
Chantal