ajouter déverrouillage de toutes les feuilles en début de macro Résolu

Question

Bonjour, 
Je souhaite ajouter un déverrouillage par box de toutes les feuilles de mon fichier au début de ma macro que j'ai créée avec "enregistrer une macro" mais je ne sait pas où la placer ni le code à appliquer
Ajouter aussi si possible un verrouillage par box à la fin
Cette macro que voici  lisse des formules sur plusieurs feuilles:
Sub LissageFormules()
'
' LissageFormules Macro
'
'
    Sheets("Fact Fam").Select
    Rows("3:3").Select
    Selection.AutoFill Destination:=Rows("3:303"), Type:=xlFillDefault
    Rows("3:303").Select
    Rows("304:330").Select
    Selection.Delete Shift:=xlUp
    Range("F342").Select
    Sheets("Cde Fam").Select
    Range("A3:F3").Select
    Selection.AutoFill Destination:=Range("A3:F303"), Type:=xlFillDefault
    Range("A3:F303").Select
    Rows("304:330").Select
    Selection.Delete Shift:=xlUp
    Range("A312").Select
    ActiveWindow.SmallScroll Down:=-12
    Sheets("Fact Pompiers").Select
    Rows("3:3").Select
    Selection.AutoFill Destination:=Rows("3:303"), Type:=xlFillDefault
    Rows("3:303").Select
    Rows("304:330").Select
    Selection.Delete Shift:=xlUp
    Range("B314").Select
    Sheets("Cde Pompiers").Select
    Range("A3:F3").Select
    Selection.AutoFill Destination:=Range("A3:F303"), Type:=xlFillDefault
    Range("A3:F303").Select
    Rows("304:330").Select
    Selection.Delete Shift:=xlUp
    Range("B324").Select
    Sheets("Cde Fournisseur").Select
    Range("J3:Z3").Select
    Selection.AutoFill Destination:=Range("J3:Z303"), Type:=xlFillDefault
    Range("J3:Z303").Select
    Rows("304:330").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-159
End Sub
Merci d'avance

PHILOU10120 · Answer

Bonjour Poupanano
Voici les lignes de codes 
Attention de bien conserver votre mot de passe si vous en utilisez un

Pour ôter la protection de la feuille sélectionnée
Sheets("FEUIL1").Select
ActiveSheet.Unprotect Password:="MOT DE PASSE"
(le mot de passe n’est pas obligatoire si vous voulez juste protéger contre l’écriture sur des cellules avec formules vous pouvez protéger sans mot de passe)
'Pour mettre la protection de la feuille sélectionnée
Sheets("FEUIL1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Mettre autant de ligne que de feuilles à protéger 
C'est en forgeant que l'on devient forgeron. -   C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs

poupanano · Answer

Merci Philou10120
Peut-être pour éviter un paquet de ligne peut-on utiliser le genre de code suivant:
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Déprotéger toutes les feuilles", "")
For Each i In Worksheets
i.Unprotect Password:=Motdepasse
Mais où l'insérer?

Ajouter déverrouillage de toutes les feuilles en début de macro

2 réponses

Votre réponse

Discussions similaires