求助，工作表自动撤销保护

lichunming9527 · 发表于 2018-12-20 08:35

工作表里的一些单元格里是公式，担心失误修改到公式的单元格，所以只想允许修改指定的单元格，但是打开表格时有公式的单元格允许修改，当修改任意单元格后才会保护工作表，但是当我运行显示和隐藏宏的时候，单元格保护有撤销了，这是为什么呀？

MOY838840554 · 发表于 2018-12-20 10:46

改为goto,跳到保护代码的前面
TIM截图20181220104522.jpg

败不馁 · 发表于 2018-12-20 11:14

如果只是保护公式可以使用下面代码
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.HasFormula Then Application.Undo
Application.EnableEvents = True
End Sub

lichunming9527 · 发表于 2018-12-20 11:52

MOY838840554 发表于 2018-12-20 10:46
改为goto,跳到保护代码的前面

是把Exit Sub改为goto吗？那下面的需要怎么改呢？

MOY838840554 · 发表于 2018-12-20 14:09

lichunming9527 发表于 2018-12-20 11:52
是把Exit Sub改为goto吗？那下面的需要怎么改呢？

跳转到 100:
THEN GOTO 100:

100:
跳转到啊啊啊:
THEN GOTO 啊啊啊:

啊啊啊:

lichunming9527 · 发表于 2018-12-20 14:26

MOY838840554 发表于 2018-12-20 14:09
跳转到 100:
THEN GOTO 100:

不好意思，没看明白！

MOY838840554 · 发表于 2018-12-20 14:51

本帖最后由 MOY838840554 于 2018-12-20 14:55 编辑

goto 标签: ←标签+英文冒号，标签可以是数字/英文/中文
TIM截图20181220145119.jpg

fantasyERIC · 发表于 2019-11-22 16:12

感谢分析，谢谢

fantasyERIC · 发表于 2019-11-22 16:17

感谢分析，谢谢

		自动登录	找回密码
密码			免费注册

[讨论] 求助，工作表自动撤销保护