Protéger et dé-protéger des feuilles dans une macro
2 réponses
Yan Pinsonnault
Merci d'avance!
Dans mon fichier XL, il y a plusieurs feuilles protégées, je veux créer
une macro qui enlève la protection de chacune, la modifie, et remet ensuite
la protection. Je n'ai réussi à le faire que sans mettre de mot de passe
sur les feuilles, mais je préfèrerait définitivement qu'il y ait un mot de
passe, le même pour les 6 feuilles, des idées, les débrouillards 50?
je préfèrerait définitivement qu'il y ait un mot de passe, le même pour les 6 feuilles, des idées, les débrouillards 50?
-- Do widzenia
LSteph
Bonjour Yann , Pour pouvoir modifier par macro uniquement protèger avec le param, userinterfaceonly exemple: '*** Sub specprot() Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets ws.Protect Password:="mdp", userinterfaceonly:=True Next End Sub Sub testmodif() ActiveSheet.[a1] = "modifié par macro" End Sub '**
sinon utiliser protect et unprotect avant et après
mais tout cela est peu utile si le projet n'est pas verrouillé puisqu'on peut y lire le mdp
'lSteph
"Yan Pinsonnault" a écrit dans le message de news: IifId.61026$
Merci d'avance!
Dans mon fichier XL, il y a plusieurs feuilles protégées, je veux créer une macro qui enlève la protection de chacune, la modifie, et remet ensuite la protection. Je n'ai réussi à le faire que sans mettre de mot de passe sur les feuilles, mais je préfèrerait définitivement qu'il y ait un mot de passe, le même pour les 6 feuilles, des idées, les débrouillards 50?
Ciao!
Yan
Bonjour Yann ,
Pour pouvoir modifier par macro uniquement protèger
avec le param, userinterfaceonly
exemple:
'***
Sub specprot()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Protect Password:="mdp", userinterfaceonly:=True
Next
End Sub
Sub testmodif()
ActiveSheet.[a1] = "modifié par macro"
End Sub
'**
sinon utiliser protect et unprotect avant et après
mais tout cela est peu utile si le projet n'est pas verrouillé puisqu'on
peut y lire le mdp
'lSteph
"Yan Pinsonnault" <yan@pinso.com> a écrit dans le message de news:
IifId.61026$Vr6.1273109@weber.videotron.net...
Merci d'avance!
Dans mon fichier XL, il y a plusieurs feuilles protégées, je veux créer
une macro qui enlève la protection de chacune, la modifie, et remet
ensuite
la protection. Je n'ai réussi à le faire que sans mettre de mot de passe
sur les feuilles, mais je préfèrerait définitivement qu'il y ait un mot de
passe, le même pour les 6 feuilles, des idées, les débrouillards 50?
Bonjour Yann , Pour pouvoir modifier par macro uniquement protèger avec le param, userinterfaceonly exemple: '*** Sub specprot() Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets ws.Protect Password:="mdp", userinterfaceonly:=True Next End Sub Sub testmodif() ActiveSheet.[a1] = "modifié par macro" End Sub '**
sinon utiliser protect et unprotect avant et après
mais tout cela est peu utile si le projet n'est pas verrouillé puisqu'on peut y lire le mdp
'lSteph
"Yan Pinsonnault" a écrit dans le message de news: IifId.61026$
Merci d'avance!
Dans mon fichier XL, il y a plusieurs feuilles protégées, je veux créer une macro qui enlève la protection de chacune, la modifie, et remet ensuite la protection. Je n'ai réussi à le faire que sans mettre de mot de passe sur les feuilles, mais je préfèrerait définitivement qu'il y ait un mot de passe, le même pour les 6 feuilles, des idées, les débrouillards 50?
