Problème de protection de feuille

Salut a tous !

Après de longues heures de recherche, je ne parviens pas a protéger mon fichier.

En effet une fois protégé, les macros Bug ...

Si vous avez une solution, je suis très intéressé.

Merci d'avance

Tious

Bonjour...

Vous voulez proteger le classeur entier où juste les feuilles et les cellules qui ne doivent pas être remplies ?

Uniquement les feuilles et les cellules qui ne doivent pas être remplies

Essayez cette version et dites moi si il y a toujours les bugs

Oui mêmes bugs qu'au début, j'ai l'impression qu'une fois les protections de feuilles active, malgré le levage de protection avant chaque macro, les actions qui entraînent une modification du format cellule plantes.

Je réexplique mon besoin au cas ou.

Sur ce fichier les utilisateurs vont se servir uniquement des feuilles N°(1) et N°(2)

Sur ces feuilles ils vont remplir les cellules indiquées dans la feuille INFO

Puis cliquer sur "Fin de rapport et Nouveau rapport".

L'autre casse permet de remettre les compteurs a 1 en passant par un Useforme

Le fichier téléchargeable dans mon premier poste fonctionne, jusqu’à ce que l'on active les protections de feuilles

Désolé de vous poser cette question mais...

Quels sont exactement ses bugs ?

Du fait que je ne connais pas trop le fonctionnement du fichier je ne sais pas trop quoi chercher et ou...

(Où alors je suis trop fatigué et je ne vois pas ce qu'il y a devant mes yeux)

Lorsque les protections et deprotections, prévues sur chaque macro et feuilles sont activées:

- clic sur "Fermer rapport ..."

erreur d’exécution '1004'

la méthode pastespecial de la classe range a échoué

- clic sur "En cas de casses...."

erreur d’exécution '1004'

impossible de définir la propriété name de la classe font

Pour exemple cliquer sur les boutons dans chacun des fichier (avec et sans protection)

J'ai essayé de l'utiliser et de remplir toutes les cases mais rien ne se passait...Bref.

Pour le pastespécial :

Essayez ça :

Range("A25").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'ai mis les deux exemple au dessus, comme ca il n'y a plus rien a remplir pour tester

La macro complète que vous me proposé fonctionne mais un nouveau problème sur la ligne juste en dessous.

Des bugs il y en a...J'en recontre plein et ils s'accumulent !

cependant, j'ai déjà reussi bloquer la feuille N°(01) Quand clic sur bouton casse...

Sub ma_macro()
ActiveSheet.Unprotect "Outilleurs"
Range("h8").Value = "1"
Range("j21").Value = "1"
Range("k18").Value = "1"
'CHANGER
Range("b21").Locked = False
Range("b22").Locked = False
    Range("b21:B22").Select
    Selection.Clear
    Selection.Value = "Changer"
    With Selection.Font
    .Name = "Calibri"
    .Size = 20
    .Bold = True
    End With
Selection.Interior.ColorIndex = 3
Selection.Borders.Weight = xlThin
 Range("b21:B22").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

Range("l21").Select

End Sub

Ok ! J'ai compris le principe de débloquer les cellules avant de faire des modifications via macro

Je suis de nouveau sur le fichier depuis ce matin, et la deuxième macro fonctionne aussi, enfin presque il me reste quelques lignes à modifier.

Merci de m'avoir mis sur la bonne voie

@+

Euh....Bah de rien.

Si vous avez encore besoin...

Si Si Merci !

J'ai terminé les corrections et tout fonctionne à merveille.