以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ft写的项目,导出excel时,能设置被导出的excel表某列禁止编辑吗?  (http://foxtable.net/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