重複起動させないコードを作成してみた。自己流です。
これで、上手くはいってるようですが、
皆様はどのようにコーディングしてますでしょうか？

Private TTT As String

Sub 四角形角度付き1_Click()
　Dim dt As Long

　'''重複起動チェック
　If TTT = "" Then '初回での起動時(つまりTTT = "") では、重複起動チェックしない。

　Else
　　　dt = Abs(DateDiff("s", Time, TTT))
　　　If dt < 60 Then ''''重複起動チェック　60秒内の起動は断固阻止！！！
　　　　　MsgBox "60sec以内に重複起動∴重複した処理中断！あと" & CStr(60 - dt) & "秒 待ってネ"

　　　　　Exit Sub

　　　End If
　End If

　TTT = Time

　'''本処理
　〜ファイル書込みがある少々重い処理　60秒位かかる〜

End Sub