ôter la protection pendant une durée choisie

[kinel]

bonsoir à tous

est il possible de retirer la protection d'une feuille par une macro qui réactiverai cette protection de façon automatique après une durée programmée ?

Merci de vos réponses
Kinel

 

[vbacrumble]

Re : ôter la protection pendant une durée choisie

Bonsoir tous

A tester

Option Explicit
'[COLOR="DarkGreen"]Dans this Workbook[/COLOR]
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:03"), "deProtection"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Protect
End Sub

'[COLOR="DarkGreen"]Dans un module standard[/COLOR]
Sub deProtection()
Sheets("Feuil1").Unprotect 
Application.OnTime Now + TimeValue("00:01:00"), "Protection"
End Sub
Sub Protection()
Sheets("Feuil1").Protect 
End Sub

EDITION: Bonsoir BrunoM45

 

[Compte Supprimé 979]

Re : ôter la protection pendant une durée choisie

Bonsoir Kinel,

Oui c'est possible, ci-joint le fichier

A+

Edit : bonsoir VbaCrumble 😉

 

[kinel]

Re : ôter la protection pendant une durée choisie

merci pour cette réponse rapide

je teste ça demain avec la bonne version d'excel

bonne soirée à tous

Kinel

 

[kinel]

Re : ôter la protection pendant une durée choisie

que des insomniaques sur ce forum !
nos messages se sont croisés

merci BrunoM45

Kinel