Bonjour,
j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les
feuilles si la date en B8 est dépassée de plus de 38 jours.
Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de
passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut?
Comment dois-je faire??
Merci. YANN
--------------
Sub test()
or i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
Sheets(i).Protect False
End If
End If
Next
End Sub
----------
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
HD
Si les feuilles sont protégées sans mot de passe alors il suffit de faire Ok pour déverrouillé. Sinon si il y'a un mot de passe va dans ton VBA pour le lire. -- @+ HD
Si les feuilles sont protégées sans mot de passe alors il suffit de faire Ok
pour déverrouillé. Sinon si il y'a un mot de passe va dans ton VBA pour le
lire.
--
@+
HD
Si les feuilles sont protégées sans mot de passe alors il suffit de faire Ok pour déverrouillé. Sinon si il y'a un mot de passe va dans ton VBA pour le lire. -- @+ HD
anonymousA
re,
excuse moi mais ne comprends pas ta demande. Quand on écrit sheets(i).unprotect et que ca marche , ca n'a pas grand sens car ca veut dire que tu déprotèges une feuille qui n'a aucun mot de passe autre que blanc.
A+
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
re,
excuse moi mais ne comprends pas ta demande.
Quand on écrit sheets(i).unprotect et que ca marche , ca n'a pas grand sens
car ca veut dire que tu déprotèges une feuille qui n'a aucun mot de passe
autre que blanc.
A+
Bonjour,
j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les
feuilles si la date en B8 est dépassée de plus de 38 jours.
Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de
passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut?
Comment dois-je faire??
Merci. YANN
--------------
Sub test()
or i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
Sheets(i).Protect False
End If
End If
Next
End Sub
----------
excuse moi mais ne comprends pas ta demande. Quand on écrit sheets(i).unprotect et que ca marche , ca n'a pas grand sens car ca veut dire que tu déprotèges une feuille qui n'a aucun mot de passe autre que blanc.
A+
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
docm
Bonjour YANN24.
Si tu as protégé en VBA par Sheets(i).Protect True tu dois déprotéger en VBA par Sheets(i).Unprotect True
La valeur True est utilisée ici comme mot de passe.
Pour protéger sans mot de passe, tu dois mettre seulement Sheets(i).Protect
docm
"YANN24" a écrit dans le message news:
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
Bonjour YANN24.
Si tu as protégé en VBA par
Sheets(i).Protect True
tu dois déprotéger en VBA par
Sheets(i).Unprotect True
La valeur True est utilisée ici comme mot de passe.
Pour protéger sans mot de passe, tu dois mettre seulement
Sheets(i).Protect
docm
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message news:
F7DE6FF5-D703-4A47-9B15-904669B07531@microsoft.com...
Bonjour,
j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les
feuilles si la date en B8 est dépassée de plus de 38 jours.
Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de
passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est
ce
un mot de passe par défaut?
Comment dois-je faire??
Merci. YANN
--------------
Sub test()
or i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
Sheets(i).Protect False
End If
End If
Next
End Sub
----------
Si tu as protégé en VBA par Sheets(i).Protect True tu dois déprotéger en VBA par Sheets(i).Unprotect True
La valeur True est utilisée ici comme mot de passe.
Pour protéger sans mot de passe, tu dois mettre seulement Sheets(i).Protect
docm
"YANN24" a écrit dans le message news:
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
YANN24
re, oui je comprend bien. Mais dans mon VBA, je n'ai pas de mot de passe pour protéger mes feuilles. J'ai mis cette macro, et maintenant, il me demande un mot de passe!! C'est fort quand même! j'ai essayer de cliquer "OK", ça ne marche pas.
C'est à cause de cette macro que la feuille est vérouillée par mot de passe. Excel met-il un mot de passe par défaut? Comment puis retrouver ce mot de passe? Merci. YANN
re,
excuse moi mais ne comprends pas ta demande. Quand on écrit sheets(i).unprotect et que ca marche , ca n'a pas grand sens car ca veut dire que tu déprotèges une feuille qui n'a aucun mot de passe autre que blanc.
A+
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
re,
oui je comprend bien.
Mais dans mon VBA, je n'ai pas de mot de passe pour protéger mes feuilles.
J'ai mis cette macro, et maintenant, il me demande un mot de passe!!
C'est fort quand même! j'ai essayer de cliquer "OK", ça ne marche pas.
C'est à cause de cette macro que la feuille est vérouillée par mot de passe.
Excel met-il un mot de passe par défaut?
Comment puis retrouver ce mot de passe?
Merci.
YANN
re,
excuse moi mais ne comprends pas ta demande.
Quand on écrit sheets(i).unprotect et que ca marche , ca n'a pas grand sens
car ca veut dire que tu déprotèges une feuille qui n'a aucun mot de passe
autre que blanc.
A+
Bonjour,
j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les
feuilles si la date en B8 est dépassée de plus de 38 jours.
Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de
passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut?
Comment dois-je faire??
Merci. YANN
--------------
Sub test()
or i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
Sheets(i).Protect False
End If
End If
Next
End Sub
----------
re, oui je comprend bien. Mais dans mon VBA, je n'ai pas de mot de passe pour protéger mes feuilles. J'ai mis cette macro, et maintenant, il me demande un mot de passe!! C'est fort quand même! j'ai essayer de cliquer "OK", ça ne marche pas.
C'est à cause de cette macro que la feuille est vérouillée par mot de passe. Excel met-il un mot de passe par défaut? Comment puis retrouver ce mot de passe? Merci. YANN
re,
excuse moi mais ne comprends pas ta demande. Quand on écrit sheets(i).unprotect et que ca marche , ca n'a pas grand sens car ca veut dire que tu déprotèges une feuille qui n'a aucun mot de passe autre que blanc.
A+
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
YANN24
MERCIIIIIIIIIIIIIIIIII...................... Ah, c'est cool. Du fond du coeur, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! je peux me re-servir de mon fichier. Cool.
YANN
Bonjour YANN24.
Si tu as protégé en VBA par Sheets(i).Protect True tu dois déprotéger en VBA par Sheets(i).Unprotect True
La valeur True est utilisée ici comme mot de passe.
Pour protéger sans mot de passe, tu dois mettre seulement Sheets(i).Protect
docm
"YANN24" a écrit dans le message news:
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
MERCIIIIIIIIIIIIIIIIII......................
Ah, c'est cool.
Du fond du coeur, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
je peux me re-servir de mon fichier.
Cool.
YANN
Bonjour YANN24.
Si tu as protégé en VBA par
Sheets(i).Protect True
tu dois déprotéger en VBA par
Sheets(i).Unprotect True
La valeur True est utilisée ici comme mot de passe.
Pour protéger sans mot de passe, tu dois mettre seulement
Sheets(i).Protect
docm
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message news:
F7DE6FF5-D703-4A47-9B15-904669B07531@microsoft.com...
Bonjour,
j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les
feuilles si la date en B8 est dépassée de plus de 38 jours.
Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de
passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est
ce
un mot de passe par défaut?
Comment dois-je faire??
Merci. YANN
--------------
Sub test()
or i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then
Sheets(i).Unprotect
Sheets(i).Cells.Locked = True
Sheets(i).Protect
Else
Sheets(i).Protect False
End If
End If
Next
End Sub
----------
MERCIIIIIIIIIIIIIIIIII...................... Ah, c'est cool. Du fond du coeur, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! je peux me re-servir de mon fichier. Cool.
YANN
Bonjour YANN24.
Si tu as protégé en VBA par Sheets(i).Protect True tu dois déprotéger en VBA par Sheets(i).Unprotect True
La valeur True est utilisée ici comme mot de passe.
Pour protéger sans mot de passe, tu dois mettre seulement Sheets(i).Protect
docm
"YANN24" a écrit dans le message news:
Bonjour, j'ai travaillé un code VBA avec votre aide. il me permet de vérouiller les feuilles si la date en B8 est dépassée de plus de 38 jours. Mon Problème, est que les feuilles ainsi vérouillée, le sont par mot de passe, mais je ne connais pas ce mot de passe ! j'en ai jamais mis ! est ce
un mot de passe par défaut? Comment dois-je faire?? Merci. YANN -------------- Sub test() or i = 1 To Sheets.Count If Sheets(i).Visible = True Then If (DateDiff("d", Now, Sheets(i).[B8])) < -38 Then Sheets(i).Unprotect Sheets(i).Cells.Locked = True Sheets(i).Protect Else Sheets(i).Protect False End If End If Next End Sub ----------
