protection sur feuille bloc macro

[gcbfire]

Bonjour,

J'ai produit un fichier pour cumuler du temps de travail. Dans la feuille des totaux une macro aide à faire le tri, enregistrer et imprimer 2 fois la feuille. Quand je n'ai pas de protection de feuille tous vas bien. Mais avec, la macro bloc et j'ai une erreur 1004.

voici le texte de la macro et ou il semble que sa bloc:

Sub SURTENPS_CAS_72()

' SURTENPS_CAS_72 Macro
' Macro enregistrée le 2016-02-03 par XXXX XXXXXX
'

'

    Range("A9:K52").Select
    Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWorkbook.Save
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Je ne suis pas familier avec VBA. Je produit mes macro par enregistrement.

PS. Ce fichier existe depuis longtemps mais une personne a réussi à entrer dedans et à modifier le fichier. Depuis et malgré mes efforts, rien.

 

[DoubleZero]

Re : protection sur feuille bloc macro

Bonjour à toutes et à tous,

Bienvenue sur XLD, gcbfire.

Dans la rubrique "Discussions similaires", en bas de la présente page, se trouve peut-être une solution.

Pour ne citer qu'un lien : [XL 2003] Protection de feuille + macro

A bientôt