Ajouter déverrouillage de toutes les feuilles en début de macro [Résolu]

poupanano 18 Messages postés mercredi 19 octobre 2016Date d'inscription 31 janvier 2017 Dernière intervention - 30 janv. 2017 à 12:30 - Dernière réponse : poupanano 18 Messages postés mercredi 19 octobre 2016Date d'inscription 31 janvier 2017 Dernière intervention
- 31 janv. 2017 à 14:16
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
Afficher la suite 

2 réponses

Répondre au sujet
PHILOU10120 4714 Messages postés lundi 16 avril 2012Date d'inscription 15 décembre 2017 Dernière intervention - Modifié par PHILOU10120 le 31/01/2017 à 11:37
0
Utile
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
Commenter la réponse de PHILOU10120
poupanano 18 Messages postés mercredi 19 octobre 2016Date d'inscription 31 janvier 2017 Dernière intervention - 31 janv. 2017 à 14:16
0
Utile
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?
Commenter la réponse de poupanano