用此法好, 不用select方法(会导致丢光标位置)

With ThisWorkbook.Worksheets("检查信息")
        ActiveSheet.Unprotect

AutoFilterMode = False '自动筛选
        Rows(1).AutoFilter
       
        Cells.Locked = False '序列号锁定
        Set rg = .Range("A1:A" & iNum + 100)
        For Each cell In rg
            cell.Locked = True
        Next
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowFiltering:=True

在修改锁定的单元格前,要先把保护去掉.

With ThisWorkbook.Worksheets("检查信息")
        ActiveSheet.Unprotect

改完单元格内容以后,

先设定Cells.Locked=False

再用select选中要锁定的范围,可以是Range, Columns, Rows

然后设定Selection.Locked=True

Cells.Locked = False
        Columns("A:A").Select
        Selection.Locked = True
        Selection.FormulaHidden = False
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowFiltering:=True

Excel VBA 锁定特定单元格相关推荐

  1. Excel vba开发 合并单元格拆分自动填充功能、在每一条数据后面插入空白行、将地理坐标的经纬度转换成度等功能

    写在前面: 最近老大丢给我一个数据量比较大,比较复杂的表,让我用VB去处理,刚被分到这个任务的时候一脸茫然,对Excel VB开发一点都不了解,所以就自己研究并查资料,最后终于解决了. 一.Excel ...

  2. Excel 锁定特定单元格 不允许更改

    1.首先,excel默认所有单元格都是被"锁定"的--当"锁定单元格"按钮被激活时. 因此,第一步,选择所有单元格,设置单元格格式,取消"保护&quo ...

  3. Excel:根据特定单元格的内容突出显示整行

    Excel中根据特定内容突出显示某个单元格,这个应该使用Excel的多数人都是知道的. 但是根据特定内容突出显示整行,使用的人就比较少了,因为这里需要使用到简单的函数功能.具体操作如下: 0.选中要设 ...

  4. Excel VBA:插入新单元格或区域——Range.Insert 方法

    Range.Insert 方法 在工作表或宏表中插入一个单元格或单元格区域,其他单元格相应移位以腾出空间. 语法 表达式.Insert(Shift, CopyOrigin) 表达式   一个代表 Ra ...

  5. python中xlwt的局限,Python xlwt 生成Excel和设置特定单元格不可编辑

    请看我另一篇生成Excel的文章(推荐) xlwt 这是一个供开发人员用来生成与Microsoft Excel 95到2003版兼容的电子表格文件的库. 包本身是纯Python,不依赖于标准Pytho ...

  6. Excel VBA:合并单元格并保留所合并单元格的全部数据

    在Excel中,使用合并单元格功能时,最后的结果将只是所合并区域左上角单元格中的数据,如图1所示. 然而,很多时候我们都需要在合并的同时也能保留单元格的的数据.下面的程序在合并单元格后将保留合并单元格 ...

  7. 13.Excel vba开发-合并单元格内容

    1.需求:合并单元格内容 2.代码: Sub 无损合并单元格()Dim outputText As StringConst delim = ""On Error Resume Ne ...

  8. java 锁定excel单元格格式化,java – Apache POI – Excel写入 – 锁定单个单元格

    尝试以下代码,它可以解决您的问题: HSSFWorkbook workbook = new XSSFWorkbook(); // Cell styles. Note the setLocked(tru ...

  9. Excel 中如何根据单元格内容删除行

    根据单元格内容快速删除行,首先需要选中含有该单元格内容的所有行,然后删除.似乎在 Excel 当中除了 VBA 以外没有其他更快捷的方法能解决这个问题了.这里将推荐几个快速根据单元格内容删除行的方法给 ...

最新文章

  1. 71.数据模型有哪几种?特征?
  2. Deploy One Project on Heroku (Week IV)
  3. 根据前序和中序 构造二叉树
  4. linux ucontext族函数的原理及使用
  5. button的格式的问题
  6. vivox20 html阅读器,【vivoX20评测】屏幕:全面屏也得看显示素质_vivo X20_手机评测-中关村在线...
  7. DiscuzNT改造系列之删除帖子后论坛版块列表同步更新
  8. oracle临时表空间占用率过高,ORACLE临时表空间太大,如何处理?
  9. 冒泡排序的C语言实现
  10. SPOJ-SUBST1 New Distinct Substrings (求不同子串数量)(后缀数组模板)
  11. 弱监督学习总结(1)
  12. android金山清理扫描文件动画,[Android开发实战]金山清理大师(猎豹清理大师)一键加速快捷方式动画实现...
  13. 基于STM32的超声波传感器测距(含代码)
  14. TreeGrid插件简练了解使用
  15. Python(arcpy) 根据站点经纬度(坐标)批量提取对应格点值
  16. 大疆无人机空三建模干货分享(大疆智图集群建模超详细教程)
  17. 2.0 JAVA线性表
  18. oracle如何取正负数,ORACLE 统计正负个数sql
  19. 女朋友让我写,我不知道该如何写?怎么办?
  20. EXCEL数组公式的理解和技巧(未完成)

热门文章

  1. AutoIt3使用攻略
  2. 网站快速通过ICP备案的方法!
  3. 一卡通管理系统 模块详细设计
  4. .HTA 简明教程: HTML APPLICATION(HTML应用程序)
  5. SQL进阶14-15
  6. 数据资源 | 搞学术,还能不知道这八大调查数据开放平台?
  7. IP地址转换(简单暴力)C/C++
  8. 数控放大器 4051
  9. 当前页的脚本发生错误 ,缺少对象
  10. 【C++】STL——vector的模拟实现