Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread单元格上锁


 / Published in: Visual Basic
 

  1. 'スプレッドシートのセルにロックをセットする。
  2. '
  3. ' Syntax: SetLockToSpreadCell AnySs, Col&, Row&
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' Col& 値をセットする列
  7. ' Row& 値をセットする行
  8. '
  9. Public Sub SetLockToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Optional ByVal Col2& = -1, Optional ByVal Row2& = -1, Optional LOCK_COLOR = &HC0FFFF)
  10.  
  11. If Col2 = -1 Then Col2 = Col
  12. If Row2 = -1 Then Row2 = Row
  13.  
  14. ' 設定を SPREADへ反映します。
  15. With AnySs
  16. .Col = Col: .Col2 = Col2
  17. .Row = Row: .Row2 = Row2
  18. .BlockMode = True
  19. .Lock = True
  20. .BackColor = LOCK_COLOR
  21. .BlockMode = False
  22. End With
  23.  
  24. End Sub

Report this snippet  

You need to login to post a comment.