Signaler

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

Posez votre question poupanano 18Messages postés mercredi 19 octobre 2016Date d'inscription 31 janvier 2017 Dernière intervention - Dernière réponse le 31 janv. 2017 à 14:16 par poupanano
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 
Utile
+0
moins plus
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
Donnez votre avis
Utile
+0
moins plus
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?
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !