以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ft写的项目，导出excel时，能设置被导出的excel表某列禁止编辑吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189445)
--  作者：zhangjian222200
--  发布时间：2023/12/2 16:08:00
--  ft写的项目，导出excel时，能设置被导出的excel表某列禁止编辑吗？
如题
--  作者：有点蓝
--  发布时间：2023/12/2 16:46:00
--  
使用vba。参考：http://www.foxtable.com/webhelp/topics/2121.htm

  • Locked
    利用Locked属性可锁定指定的单元格，也可解除锁定。
    需要注意的是，如果工作表没有被保护，即使将单元格设置为锁定状态，该单元格仍可以操作。只有在工作表被保护的情况下，锁定单元格才能起作用。如：

    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.Range("A1:A10")\'指定任意单元格
    Ws.Unprotect\'撤销对工作表的保护
    Ws.Cells.Locked = False \'解除整个工作表所有单元格的锁定
    Rg.Locked = True\'锁定指定的单元格
    Ws.Protect  \'保护工作表
    App.Visible = True