因为工作需要,我们经常需要对一定范围的工作表设置访问权限,禁止他人更改该单元格区域的内容。以下是实现这一目标的三种方法。
首先,设置ScrollArea属性
如果想保持工作表的A1:E10单元格区域不变(下同),可以限制垂直滚动条的范围,隐藏A1:E10单元格区域,从而限制使用范围。具体步骤如下:
1.执行“视图工具栏控件工具箱”命令。在打开的控件工具箱工具栏中,单击“属性”按钮,显示如图1所示的“属性”对话框。
2.在“属性”对话框的ScrollArea列中输入“A45:E45”(范围可以自己选择),然后按回车键。
执行上述步骤后,我们发现A1:E10单元格区域不再出现在工作表的窗口中,垂直滚动条也无法移动。因为ScrollArea属性不是永久的,所以文件是关闭的,下次再次打开时可以选择编辑上面的区域。因此,您需要在ThisWorkbook代码模块中添加以下代码。
私有子工作簿_Open()
工作表(“工作表1”)。scrollarrea=' A45:E45 '
末端接头
这样,每次打开工作簿时,上面的代码都会自动运行,并设置ScrollArea属性。这个方法是保护工作表内容的好选择。
二、工作表保护的使用
1.激活Sheet1表,选择允许填充数据的单元格区域,右键选择“设置单元格格式”,取消“保护”选项卡中的“锁定”选项,点击“确定”按钮退出。然后,单击菜单工具保护保护工作表。在弹出的对话框列表中,输入保护密码,勾选“选择未锁定单元格”选项,清除其他所有选项,点击“确定”返回。
2.保护好工作表后,再按回车键或箭头键,光标只能在未锁定的单元格之间来回移动,而锁定的单元格A1:E10不能被激活,从而达到限制访问的目的。
第三,使用VBA设置访问权限
我们也可以使用VBA代码来设置许可密码。编辑Sheet1的A1:E10单元格区域时,会自动弹出输入密码的提示框。当密码正确时,单元格将被激活,否则,单元格内容无法更改。具体方法如下:
执行命令工具宏visual Basic编辑器或按Alt F11。在代码窗口左侧的项目资源管理器窗口中,双击Excel对象下的Sheet1工作表,并在右侧的代码窗口中输入以下代码:
私有子工作表_Change(ByVal目标作为范围)
X=目标
末端接头
私有子工作表_SelectionChange(ByVal目标作为范围)
如果目标。列=5和目标。那么Row=10
Y=InputBox('请输入密码:')
如果Y 123那么
MsgBox '密码错误,您没有编辑权限!'
范围(' A11 ')。挑选
如果…就会结束
如果…就会结束
末端接头