Spread单元格上锁

'スプレッドシートのセルにロックをセットする。
'
'   Syntax:     SetLockToSpreadCell AnySs, Col&, Row&
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col&        値をセットする列
'               Row&        値をセットする行
'
Public Sub SetLockToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Optional ByVal Col2& = -1, Optional ByVal Row2& = -1, Optional LOCK_COLOR = &HC0FFFF)
 
    If Col2 = -1 Then Col2 = Col
    If Row2 = -1 Then Row2 = Row
 
    ' 設定を SPREADへ反映します。
    With AnySs
        .Col = Col: .Col2 = Col2
        .Row = Row: .Row2 = Row2
        .BlockMode = True
        .Lock = True
        .BackColor = LOCK_COLOR
        .BlockMode = False
    End With
 
End Sub