ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel函数与公式 › 保护表格后只插入一次

EH技术汇-专业的职场技能充电站	妙哉！函数段子手趣味讲函数	Excel服务器-会Excel,做管理系统	Excel Home精品图文教程库
HR薪酬管理数字化实战	Excel 2021函数公式学习大典	Excel数据透视表实战秘技	打造核心竞争力的职场宝典
300集Office 2010微视频教程	数据工作者的案头书	免费直播课集锦	ExcelHome出品 - VBA代码宝免费下载
	用ChatGPT与VBA一键搞定Excel	WPS表格从入门到精通	Excel VBA经典代码实践指南

查看: 552|回复: 0

保护表格后只插入一次

[复制链接]

yj1980_01

TA的精华主题

TA的得分主题

发表于 2015-11-27 00:20 | 显示全部楼层 |阅读模式

[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★

我的一张表，设有插入行后复制上行公式的代码，当保护E列和G列后，插入行只能执行一次，第二次就没有插入行功能了。
又要撤消保护勾上“插入行功能”后保护，又只能执行一次插入行。请高手些帮忙改一下。
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, "E") <> "" Or Target.Row = 1 Then Exit Sub
ActiveSheet.Unprotect
Cells(Target.Row - 1, "E").Select
Selection.AutoFill Destination:=Range(Cells(Target.Row - 1, "E"), Cells(Target.Row, "E")), Type:=xlFillDefault
Cells(Target.Row - 1, "G").Select
Selection.AutoFill Destination:=Range(Cells(Target.Row - 1, "G"), Cells(Target.Row, "G")), Type:=xlFillDefault
ActiveSheet.Protect
End Sub

代码