常见的问题：不让修改

toomee · 发表于 2010-12-27 22:26

数量价格金额
  2             4             8
3             5             15

要求：第一，用户无权限修改金额的计算公式，
   第二。要能插入行删除行

就这两点，谁能教我？

lu_zhao_long · 发表于 2010-12-27 22:31

原帖由 toomee 于 2010-12-27 22:26 发表
数量价格金额
  2             4             8
3             5             15

要求：第一，用户无权限修改金额的计算公式，
   第二。要能插入行删除行

就这两点，谁能教我？

将不需要别人修改的单元格区域的保护属性设置为保护，隐藏属性是不让人看到单元格中的公式，可以根据需要决定是否选择。然后保护工作表，在输入密码并确认之前，选择允许“插入行”。最后输入密码并确认。

toomee · 发表于 2010-12-27 22:47

2楼谢谢你。

但是有个问题啊，新插入的一行中金额列，无法继承公式啊

lu_zhao_long · 发表于 2010-12-27 22:47

当然手动是无法插入行的！
建议楼主还要将第 3和第 4行选中设为用户可编辑区域（即 Everyone 无需密码就可编辑），然后使用 VBA 代码来完成。只要双击单元格就会自动插入一行：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False

Rows(4).Insert

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

toomee · 发表于 2010-12-27 22:48

并且也无法复制公式

lu_zhao_long · 发表于 2010-12-27 23:05

请楼主再试试看！
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False

Rows(4).Insert
Cells(3, 4).Copy
Cells(4, 4).PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
Target.Select

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

toomee · 发表于 2010-12-27 23:49

达到目的了，
我好好研究研究

这么晚了，辛苦你了

lu_zhao_long · 发表于 2010-12-28 00:08

原帖由 toomee 于 2010-12-27 23:49 发表
达到目的了，
我好好研究研究

这么晚了，辛苦你了

能够帮助别人解决问题是一件快乐的事情！
这个工作表中主要是在几个方面进行了设置：
1。允许用户编辑区域。先选择第 3和第 4行，并添加 Everyone 账户为无需密码就可以操作。这样就为后面的 VBA 代码操作打下了基础；
2。金额一列里面有公式，还必须要将保护选项的隐藏取消选中，否则后面复制公式不能成功；
3。使用双击单元格事件来触发 VBA 代码。

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

[求助] 常见的问题：不让修改