J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des
proctection de cellules qui ont le meme mot de passe , et je voudrais savoir
si c possible de déverouiller ttes ces feuilles en une seule fois car c pas
terrible de taper plus de 30fois mes mots de passe.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour
Pour déverrouiller toutes les feuilles d'un classeur en cours ,
For each sh in activeworkbook.sheets on error resume next sh.unprotect "ton mot de passe" next
Bonne chance
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
Bonjour
Pour déverrouiller toutes les feuilles d'un classeur en cours ,
For each sh in activeworkbook.sheets
on error resume next
sh.unprotect "ton mot de passe"
next
Bonne chance
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des
proctection de cellules qui ont le meme mot de passe , et je voudrais savoir
si c possible de déverouiller ttes ces feuilles en une seule fois car c pas
terrible de taper plus de 30fois mes mots de passe.
Pour déverrouiller toutes les feuilles d'un classeur en cours ,
For each sh in activeworkbook.sheets on error resume next sh.unprotect "ton mot de passe" next
Bonne chance
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
Pounet95
Bonjour, A mettre dans un module Standard par exemple,
Private Sub Déprotège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
;; et pour remette le mot de passe : Private Sub Protège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
Est-ce OK ? Pounet95
"" a écrit dans le message de news: 418f832d$0$18180$
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
Bonjour,
A mettre dans un module Standard par exemple,
Private Sub Déprotège()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect password:="PSWD"
Next ws
End Sub
;; et pour remette le mot de passe :
Private Sub Protège()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect password:="PSWD"
Next ws
End Sub
Est-ce OK ?
Pounet95
"Fr@nck" <mie.fs@wanadoo.fr> a écrit dans le message de news:
418f832d$0$18180$8fcfb975@news.wanadoo.fr...
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec
des
proctection de cellules qui ont le meme mot de passe , et je voudrais
savoir
si c possible de déverouiller ttes ces feuilles en une seule fois car c
pas
terrible de taper plus de 30fois mes mots de passe.
Bonjour, A mettre dans un module Standard par exemple,
Private Sub Déprotège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
;; et pour remette le mot de passe : Private Sub Protège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
Est-ce OK ? Pounet95
"" a écrit dans le message de news: 418f832d$0$18180$
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
anonymousA
bonjour, il me semble que tu as trop vite tapé . La reprotection est bien sur Protect et pas unprotect. Par ailleurs, comment gères-tu le fait que l'utilisateur peut avoir au moins 1 feuille sur laquelle le mot de passe n'est pas PSWD ? Cordialement,
Bonjour, A mettre dans un module Standard par exemple,
Private Sub Déprotège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
;; et pour remette le mot de passe : Private Sub Protège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
Est-ce OK ? Pounet95
"" a écrit dans le message de news: 418f832d$0$18180$
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
bonjour, il me semble que tu as trop vite tapé . La reprotection est bien sur
Protect et pas unprotect.
Par ailleurs, comment gères-tu le fait que l'utilisateur peut avoir au moins
1 feuille sur laquelle le mot de passe n'est pas PSWD ?
Cordialement,
Bonjour,
A mettre dans un module Standard par exemple,
Private Sub Déprotège()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect password:="PSWD"
Next ws
End Sub
;; et pour remette le mot de passe :
Private Sub Protège()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect password:="PSWD"
Next ws
End Sub
Est-ce OK ?
Pounet95
"Fr@nck" <mie.fs@wanadoo.fr> a écrit dans le message de news:
418f832d$0$18180$8fcfb975@news.wanadoo.fr...
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec
des
proctection de cellules qui ont le meme mot de passe , et je voudrais
savoir
si c possible de déverouiller ttes ces feuilles en une seule fois car c
pas
terrible de taper plus de 30fois mes mots de passe.
bonjour, il me semble que tu as trop vite tapé . La reprotection est bien sur Protect et pas unprotect. Par ailleurs, comment gères-tu le fait que l'utilisateur peut avoir au moins 1 feuille sur laquelle le mot de passe n'est pas PSWD ? Cordialement,
Bonjour, A mettre dans un module Standard par exemple,
Private Sub Déprotège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
;; et pour remette le mot de passe : Private Sub Protège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
Est-ce OK ? Pounet95
"" a écrit dans le message de news: 418f832d$0$18180$
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
Pounet95
Bonsoir, il y a, je pense , plusieurs façons de faire, notamment en traitant l'erreur ( on error goto xxx:, on error resume next ) ou encore en ayant un tableau des feuilles avec leur mot de passe en dur dans le code, dans une feuille cachée, etc. mais dans le cas de , ce n'était pas évoqué ...... comme ne l'était pas non plus la remise en place de la protection. Cordialement Pounet95
"anonymousA" a écrit dans le message de news:
bonjour, il me semble que tu as trop vite tapé . La reprotection est bien sur Protect et pas unprotect. Par ailleurs, comment gères-tu le fait que l'utilisateur peut avoir au moins 1 feuille sur laquelle le mot de passe n'est pas PSWD ? Cordialement,
Bonjour, A mettre dans un module Standard par exemple,
Private Sub Déprotège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
;; et pour remette le mot de passe : Private Sub Protège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
Est-ce OK ? Pounet95
"" a écrit dans le message de news: 418f832d$0$18180$
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
Merci pour vos lumières @ bientot Le lynx ;)
Bonsoir,
il y a, je pense , plusieurs façons de faire, notamment en traitant l'erreur
( on error goto xxx:, on error resume next )
ou encore en ayant un tableau des feuilles avec leur mot de passe en dur
dans le code, dans une feuille cachée, etc.
mais dans le cas de Fr@anck, ce n'était pas évoqué ...... comme ne l'était
pas non plus la remise
en place de la protection.
Cordialement
Pounet95
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news: 9DDDFCCE-CCBA-4C8A-B4F0-154334825FBB@microsoft.com...
bonjour, il me semble que tu as trop vite tapé . La reprotection est bien
sur
Protect et pas unprotect.
Par ailleurs, comment gères-tu le fait que l'utilisateur peut avoir au
moins
1 feuille sur laquelle le mot de passe n'est pas PSWD ?
Cordialement,
Bonjour,
A mettre dans un module Standard par exemple,
Private Sub Déprotège()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect password:="PSWD"
Next ws
End Sub
;; et pour remette le mot de passe :
Private Sub Protège()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect password:="PSWD"
Next ws
End Sub
Est-ce OK ?
Pounet95
"Fr@nck" <mie.fs@wanadoo.fr> a écrit dans le message de news:
418f832d$0$18180$8fcfb975@news.wanadoo.fr...
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec
des
proctection de cellules qui ont le meme mot de passe , et je voudrais
savoir
si c possible de déverouiller ttes ces feuilles en une seule fois car c
pas
terrible de taper plus de 30fois mes mots de passe.
Bonsoir, il y a, je pense , plusieurs façons de faire, notamment en traitant l'erreur ( on error goto xxx:, on error resume next ) ou encore en ayant un tableau des feuilles avec leur mot de passe en dur dans le code, dans une feuille cachée, etc. mais dans le cas de , ce n'était pas évoqué ...... comme ne l'était pas non plus la remise en place de la protection. Cordialement Pounet95
"anonymousA" a écrit dans le message de news:
bonjour, il me semble que tu as trop vite tapé . La reprotection est bien sur Protect et pas unprotect. Par ailleurs, comment gères-tu le fait que l'utilisateur peut avoir au moins 1 feuille sur laquelle le mot de passe n'est pas PSWD ? Cordialement,
Bonjour, A mettre dans un module Standard par exemple,
Private Sub Déprotège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
;; et pour remette le mot de passe : Private Sub Protège() Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect password:="PSWD" Next ws End Sub
Est-ce OK ? Pounet95
"" a écrit dans le message de news: 418f832d$0$18180$
Bonjour ,
J'ai plusieurs fichiers identiques pour gérer les 35h du personnel avec des proctection de cellules qui ont le meme mot de passe , et je voudrais savoir si c possible de déverouiller ttes ces feuilles en une seule fois car c pas terrible de taper plus de 30fois mes mots de passe.
