Sujet Précédent Sujet Suivant

Protection

Fermé
kika - 28 mai 2015 à 09:32
Excel-worker Messages postés 589 Date d'inscription mardi 7 avril 2015 Statut Membre Dernière intervention 23 juillet 2015 - 28 mai 2015 à 10:02
bonjours,
ma question est la suivante:
j'ai un fichier excel qui contient 200 feuilles, je souhaite protéger toutes les feuilles de mon classeur mais pas une par une vu qu'il contient 200 feuilles.
merci

3 réponses

Réponse 1 / 3
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
28 mai 2015 à 09:53
Bonjour,

Deux macros :

Pour protéger 
Sub Protéger()
Dim Ws As Worksheet
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Sheets
        Ws.Protect Password:="Toto"
    Next Ws
End Sub


Pour déprotéger 
Sub Déprotéger()
Dim Ws As Worksheet
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Sheets
        Ws.Unprotect Password:="Toto"
    Next Ws
End Sub


A+
1
Réponse 2 / 3
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
28 mai 2015 à 09:57
Bonjour,

En fin de procédure de Gyrus que je salue, juste avant End Sub ajouter

Application.ScreenUpdating = true
0
Réponse 3 / 3
Excel-worker Messages postés 589 Date d'inscription mardi 7 avril 2015 Statut Membre Dernière intervention 23 juillet 2015 58
28 mai 2015 à 10:02
Bonjour,

Autre solution classique, quand tu fais enregistrer sous => outils, options générales => tu met un mot de passe pour la modification.

Cdlt
0

Discussions similaires

Rav antivirus
cavalier33 -
cavalier33 -

2 réponses
Anti-virus qui s'installe tout seul...
Lo_fadoli -
Beuq -

7 réponses
Rav antivirus trouve un virus mais...
sen -
balltrap34 -

11 réponses
Rav antivirus
la gribouille -
claire -

15 réponses
comment contourner le drm ?
flyblue -
flyblue -

2 réponses