神奇的“宏”:设置查看excel表格的权限

时间:2022-07-15 05:19:14 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
神奇的“宏”:设置查看excel表格的权限

前言 对于熟悉VBA编程的同学已不陌生,而很多新手称VBA是“宏”,对它却敬而远之,一方面认为“宏”太高深根本学不会,另一方面也不知道宏到底有啥用。为了提高大家学习VBA的兴趣,兰色幻想教大家设置几个“宏”的应用实例,来看看宏能给我们带来什么?

神奇的“宏”系列1:设置查看表格的权限

:如下图所示,如果在“主界面”工作表A1单元格中输入1则可以查看'价格表'工作表,如果为空或其他内容则不能查看“价格表”

设置步骤



步骤1:按alt+f11,打开visual basic界面。双击左上角工程窗口'价格表'项,在右侧会出现一个空白的窗口(代码窗口)



步骤2:在代码窗口中左上角下拉列表中,选取'worksheet',这时在代码窗口中会自动出现以下代码,这个不是我们要的,但先不要删除。




步骤3:在代码窗口右上角选“Activate”,代码窗口又会自动出现两行代码,然后我们把需要的代码写进去,就完成了我们的设置。

代码:



Private Sub Worksheet_Activate() If Sheets('主界面').[a1] <> 1 Then Sheets('主界面').Select End If End Sub

代码说明:

If Sheets('主界面').[a1] <> 1 Then 判断主界面工作表中A1的值

Sheets('主界面').[a1] 工作表“主界面”的A1单元格 Sheets('主界面').Select 选取工作表“主界面” End if 和前面的IF对应,是结果句

代码窗口如下图所示。




步骤4:关闭visual basic窗口,然后试着点击“价格表”,你会发现会马上转向“主界面”工作表,我们并不能对“价格表”进行操作。(如果一眼也不想让看到价格表,就在价格表上盖一个图片或把A列拉一页宽)

兰色说VBA和宏其实并不一个概念,今天举一个小例了也只是VBA的一个很小的应用。如果想系统学习VBA的知识,可以关注微信平台的“烟花系列”或点击“阅读原文”下截兰色幻想录制的VBA80集视频教程。


本文来源:https://www.wddqw.com/doc/272ba01829f90242a8956bec0975f46527d3a70a.html