XL pour MAC Oter la protection pendant un temps limité

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim t#
Cancel = True
Protect "chajmi", UserInterfaceOnly:=True
Target.Locked = False
t = Timer + 30
If t > 86400 Then t = t - 86400 'après minuit
While Timer < t: DoEvents: Wend
Target.Locked = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Feuil1 'CodeName
    .Protect "chajmi", UserInterfaceOnly:=True
    .Cells.Locked = True
End With
End Sub

Dim t# 'mémorise la variable

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
RAZ
Unprotect "chajmi"
Target.Locked = False
Target.AddComment "Vous avez 30 secondes pour modifier la cellule"
Target.Comment.Shape.TextFrame.AutoSize = True
Protect "chajmi", AllowFormattingCells:=True
t = Now + 30 / 86400
Application.OnTime t, Me.CodeName & ".RAZ"
End Sub

Sub RAZ()
Unprotect "chajmi"
Cells.ClearComments
Cells.Locked = True
Protect "chajmi"
On Error Resume Next
Application.OnTime t, Me.CodeName & ".RAZ", , False
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.RAZ
End Sub