Bonjour ;
J’ai fait une macro pour enlever une protection de feuille sur un tableau et
j’aurais aimé avoir une aide sur le code que je dois lui rajouter pour que
cette macro soit active pendant 60 seconds après quoi la feuille doit se
re-protéger systématiquement.
Salutations
________________________________________
Sub OterProtection()
'
' OterProtection Macro
' Macro enregistrée le 21/10/2006 par S
'
'
Range("A5").Select
ActiveSheet.Unprotect
Range("A5").Select
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
Daniel
Bonjour. Lance la première macro. La seconde se déclenchera 1 mn plus tard.
Sub OterProtection() ActiveSheet.Unprotect Application.OnTime Now + TimeValue("00:01:00"), "MettreProtection" End Sub
Sub MettreProtection() ActiveSheet.Protect End Sub
Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour ; J'ai fait une macro pour enlever une protection de feuille sur un tableau et j'aurais aimé avoir une aide sur le code que je dois lui rajouter pour que cette macro soit active pendant 60 seconds après quoi la feuille doit se re-protéger systématiquement. Salutations ________________________________________ Sub OterProtection() ' ' OterProtection Macro ' Macro enregistrée le 21/10/2006 par S '
' Range("A5").Select ActiveSheet.Unprotect Range("A5").Select End Sub ________________________________________
Bonjour.
Lance la première macro.
La seconde se déclenchera 1 mn plus tard.
Sub OterProtection()
ActiveSheet.Unprotect
Application.OnTime Now + TimeValue("00:01:00"), "MettreProtection"
End Sub
Sub MettreProtection()
ActiveSheet.Protect
End Sub
Cordialement.
Daniel
"Tibert" <Tibert@discussions.microsoft.com> a écrit dans le message de news:
3F1B1B39-A02D-479E-827E-1E5190361E43@microsoft.com...
Bonjour ;
J'ai fait une macro pour enlever une protection de feuille sur un tableau
et
j'aurais aimé avoir une aide sur le code que je dois lui rajouter pour que
cette macro soit active pendant 60 seconds après quoi la feuille doit se
re-protéger systématiquement.
Salutations
________________________________________
Sub OterProtection()
'
' OterProtection Macro
' Macro enregistrée le 21/10/2006 par S
'
'
Range("A5").Select
ActiveSheet.Unprotect
Range("A5").Select
End Sub
________________________________________
Bonjour. Lance la première macro. La seconde se déclenchera 1 mn plus tard.
Sub OterProtection() ActiveSheet.Unprotect Application.OnTime Now + TimeValue("00:01:00"), "MettreProtection" End Sub
Sub MettreProtection() ActiveSheet.Protect End Sub
Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour ; J'ai fait une macro pour enlever une protection de feuille sur un tableau et j'aurais aimé avoir une aide sur le code que je dois lui rajouter pour que cette macro soit active pendant 60 seconds après quoi la feuille doit se re-protéger systématiquement. Salutations ________________________________________ Sub OterProtection() ' ' OterProtection Macro ' Macro enregistrée le 21/10/2006 par S '
' Range("A5").Select ActiveSheet.Unprotect Range("A5").Select End Sub ________________________________________
Tibert
Ok ça fonctionne @+ et merci
Bonjour. Lance la première macro. La seconde se déclenchera 1 mn plus tard.
Sub OterProtection() ActiveSheet.Unprotect Application.OnTime Now + TimeValue("00:01:00"), "MettreProtection" End Sub
Sub MettreProtection() ActiveSheet.Protect End Sub
Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour ; J'ai fait une macro pour enlever une protection de feuille sur un tableau et j'aurais aimé avoir une aide sur le code que je dois lui rajouter pour que cette macro soit active pendant 60 seconds après quoi la feuille doit se re-protéger systématiquement. Salutations ________________________________________ Sub OterProtection() ' ' OterProtection Macro ' Macro enregistrée le 21/10/2006 par S '
' Range("A5").Select ActiveSheet.Unprotect Range("A5").Select End Sub ________________________________________
Ok ça fonctionne @+ et merci
Bonjour.
Lance la première macro.
La seconde se déclenchera 1 mn plus tard.
Sub OterProtection()
ActiveSheet.Unprotect
Application.OnTime Now + TimeValue("00:01:00"), "MettreProtection"
End Sub
Sub MettreProtection()
ActiveSheet.Protect
End Sub
Cordialement.
Daniel
"Tibert" <Tibert@discussions.microsoft.com> a écrit dans le message de news:
3F1B1B39-A02D-479E-827E-1E5190361E43@microsoft.com...
Bonjour ;
J'ai fait une macro pour enlever une protection de feuille sur un tableau
et
j'aurais aimé avoir une aide sur le code que je dois lui rajouter pour que
cette macro soit active pendant 60 seconds après quoi la feuille doit se
re-protéger systématiquement.
Salutations
________________________________________
Sub OterProtection()
'
' OterProtection Macro
' Macro enregistrée le 21/10/2006 par S
'
'
Range("A5").Select
ActiveSheet.Unprotect
Range("A5").Select
End Sub
________________________________________
Bonjour. Lance la première macro. La seconde se déclenchera 1 mn plus tard.
Sub OterProtection() ActiveSheet.Unprotect Application.OnTime Now + TimeValue("00:01:00"), "MettreProtection" End Sub
Sub MettreProtection() ActiveSheet.Protect End Sub
Cordialement. Daniel "Tibert" a écrit dans le message de news:
Bonjour ; J'ai fait une macro pour enlever une protection de feuille sur un tableau et j'aurais aimé avoir une aide sur le code que je dois lui rajouter pour que cette macro soit active pendant 60 seconds après quoi la feuille doit se re-protéger systématiquement. Salutations ________________________________________ Sub OterProtection() ' ' OterProtection Macro ' Macro enregistrée le 21/10/2006 par S '
' Range("A5").Select ActiveSheet.Unprotect Range("A5").Select End Sub ________________________________________
