Macro protect° feuille autorisant format cell

Résolu/Fermé

clio - 6 mars 2012 à 19:36
clio - 7 mars 2012 à 18:28

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:

Macro protect° feuille autorisant format cell
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Macro word - Guide
Format apfs - Guide
Macro logiciel - Télécharger - Organisation

2 réponses

Réponse 1 / 2

cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 333
6 mars 2012 à 20:53

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

Réponse 2 / 2

clio
7 mars 2012 à 18:28

Merci beaucoup !! c'est exactement ce que je cherchais !!

bonne soirée

Discussions similaires

Menace "Interpol" après webcam coquine

blocage dl-protect.link

Discussions similaires

Newsletters