excel - EXCELVBAタイマーを設定してワークシートを条件付きで保護/ロックします

Question

タイトルで述べたように、私がしたことは次のとおりです。

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim pwd As String
    pwd = "jfm" ' Put your password here
    For Each ws In Worksheets
    ws.Protect Password:=pwd, UserInterFaceOnly:=True
    Next ws
End Sub

しかし、私が欲しいのは：

1. タイマーを作成します。たとえば、5秒とします。
2. ワークシートが保護されていないかどうかを確認し、5秒後にシートを保護します。
3. ワークシートが保護されている場合は、繰り返してシートが保護されていないかどうかを確認します。

前もって感謝します。

Answer 1

何かのようなもの：

Dim StartTime As Double

StartTime = Timer

Dim i As Integer
Do Until False

    'if 5 seconds have elapsed, exit loop
    If CInt(Timer - StartTime) > 5 Then Exit Do

Loop

MsgBox "Finished after " & CInt(Timer - StartTime) & " seconds"