Macro protect° feuille autorisant format cell

Résolu
clio -  
 clio -
Bonjour,

J'aimerai avoir une macro qui me permette de verrouiller l'ensemble des feuilles de mon classeur avec un mot de passe et en autorisant la selection des cellules, le format de cellule et le format de colonne.

En fait, j'ai déjà une macro :
Sub Protéger()
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
For i = 1 To nombre
Worksheets(i).Protect Password:=261103
Next i
End Sub

Mais je ne sais pas où placer, les options de la protection :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=TrueApplication.ScreenUpdating = False


Cela ne fonctionne pas, peu importe l'endroit où j'insère le code !
Je suis pas très calée en VBA ... J'espère que ma question est claire !

Merci de votre aide
A voir également:

2 réponses

Réponse 1 / 2
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
Bonsoir,

Peut-être ainsi : 

Sub ee()
Dim Sh As Worksheet
For Each Sh In Sheets
    Sh.Protect Password:=261103, DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True
Next Sh
End Sub


Bonne soirée
0
Réponse 2 / 2
clio
 
Merci beaucoup !! c'est exactement ce que je cherchais !!

bonne soirée
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses