如何利用VBA代码防止他人更改公式？

作者：绿色风分类：时间：2022-08-17 浏览：105

楼主 amulee	Q：如何利用VBA代码防止他人更改公式？ A：可以利用一个字典对象存储选中的单元格内的公式，待更改时再改回来。代码参考如下： Dim d As New Dictionary '记录选中的数据 Private Sub Worksheet_Activate() If TypeName(Selection) = "Range" Then Dim i&, Rng As Range d.RemoveAll For Each Rng In Selection If Rng.HasFormula Then d(Rng.Address) = Rng.Formula End If Next End If End Sub '记录选中的数据 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If TypeName(Selection) = "Range" Then Dim i&, Rng As Range d.RemoveAll For Each Rng In Selection If Rng.HasFormula Then d(Rng.Address) = Rng.Formula End If Next End If End Sub '更改时恢复 Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range For Each Rng In Target If d.Exists(Rng.Address) Then Rng = d(Rng.Address) Next End Sub 就不让你修改公式.rar
2楼 0Mouse	工作表中每一个单元格的地址都是唯一的，而字典的Key也是唯一的，字典的Key和Item又相互对应，通过d(key)即可取得key对应的item值，本例中key用于放置地址，item用来放置公式，妙！学习！
3楼初学者2012	学习了，方法太好了**！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表