Tout bêtement ... je me demandais comment définir le mot de passe de la
protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du
mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur
en même temps ... en tapant une seule fois le mot de passe (le même pour les
feuilles et pour le classeur) ?
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
ChrisV
Bonjour Vader,
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
Bonjour Vader,
Sub proTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub
Sub unproTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub
ChrisV
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news:
962F456E-B19B-49BD-B2C1-3178C3AA868A@microsoft.com...
Tout bêtement ... je me demandais comment définir le mot de passe de la
protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas
du
mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du
classeur
en même temps ... en tapant une seule fois le mot de passe (le même pour
les
feuilles et pour le classeur) ?
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
Vader
Royal !!!
Merci !
Bonjour Vader,
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
Royal !!!
Merci !
Bonjour Vader,
Sub proTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub
Sub unproTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub
ChrisV
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news:
962F456E-B19B-49BD-B2C1-3178C3AA868A@microsoft.com...
Tout bêtement ... je me demandais comment définir le mot de passe de la
protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas
du
mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du
classeur
en même temps ... en tapant une seule fois le mot de passe (le même pour
les
feuilles et pour le classeur) ?
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
ChrisV
De rien ...!
Que la Force soit avec toi ! ;-)
ChrisV
"Vader" a écrit dans le message de news:
Royal !!!
Merci !
Bonjour Vader,
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
De rien ...!
Que la Force soit avec toi ! ;-)
ChrisV
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news:
E8185EB9-CC76-4415-BE36-1E22CAFD8B91@microsoft.com...
Royal !!!
Merci !
Bonjour Vader,
Sub proTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub
Sub unproTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub
ChrisV
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de
news:
962F456E-B19B-49BD-B2C1-3178C3AA868A@microsoft.com...
Tout bêtement ... je me demandais comment définir le mot de passe de la
protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de
cas
du
mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du
classeur
en même temps ... en tapant une seule fois le mot de passe (le même
pour
les
feuilles et pour le classeur) ?
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
Jacquouille
Tiens, un revenant. Après tout, on n'est pas loin de Allo? Winne.
-- Bien amicalmement, Le vin est au repas ce que le parfum est à la femme.
Jacquouille.
"ChrisV" a écrit dans le message de news: ufCK%
De rien ...!
Que la Force soit avec toi ! ;-)
ChrisV
"Vader" a écrit dans le message de news:
Royal !!!
Merci !
Bonjour Vader,
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?
'2/ Protection du classeur ActiveWorkbook.Protect Structure:=True, Windows:úlse
End Sub
Tiens, un revenant.
Après tout, on n'est pas loin de Allo? Winne.
--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.
Jacquouille.
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
ufCK%23ZyGIHA.5360@TK2MSFTNGP03.phx.gbl...
De rien ...!
Que la Force soit avec toi ! ;-)
ChrisV
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news:
E8185EB9-CC76-4415-BE36-1E22CAFD8B91@microsoft.com...
Royal !!!
Merci !
Bonjour Vader,
Sub proTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub
Sub unproTect()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub
ChrisV
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de
news:
962F456E-B19B-49BD-B2C1-3178C3AA868A@microsoft.com...
Tout bêtement ... je me demandais comment définir le mot de passe de
la
protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de
cas
du
mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du
classeur
en même temps ... en tapant une seule fois le mot de passe (le même
pour
les
feuilles et pour le classeur) ?
Tiens, un revenant. Après tout, on n'est pas loin de Allo? Winne.
-- Bien amicalmement, Le vin est au repas ce que le parfum est à la femme.
Jacquouille.
"ChrisV" a écrit dans le message de news: ufCK%
De rien ...!
Que la Force soit avec toi ! ;-)
ChrisV
"Vader" a écrit dans le message de news:
Royal !!!
Merci !
Bonjour Vader,
Sub proTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp:") mdpConf = InputBox("Veuillez confirmer votre mdp:") If mdp <> mdpConf Then MsgBox "Erreur...", vbExclamation proTect End If Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.proTect Password:=mdp Next w End Sub
Sub unproTect() Dim w As Worksheet mdp = InputBox("Saisissez votre mdp") Application.ScreenUpdating = False For Each w In ThisWorkbook.Worksheets w.unproTect Password:=mdp Next w End Sub
ChrisV
"Vader" a écrit dans le message de news:
Tout bêtement ... je me demandais comment définir le mot de passe de la protection du classeur et des feuilles ... par une macro.
J'arrive pas à trouver et l'enregistreur de macro semble faire peu de cas du mot de passe :-)
Sinon, est-il possible d'enlever la protection de la feuille ET du classeur en même temps ... en tapant une seule fois le mot de passe (le même pour les feuilles et pour le classeur) ?