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

2022-07-15 05:19:14 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《神奇的“宏”：设置查看excel表格的权限》，欢迎阅读！
表格,神奇,权限,设置,查看

神奇的“宏”：设置查看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.dywdw.cn/272ba01829f90242a8956bec0975f46527d3a70a.html