用VBA在Excel中禁用File>Share
在Excel中禁用"File>Share"可以通过以下步骤实现：
- 打开Excel并进入Visual Basic for Applications（VBA）编辑器。可以通过按下Alt + F11快捷键或在开发工具栏中选择"Visual Basic"来打开VBA编辑器。
- 在VBA编辑器中，找到并展开"Microsoft Excel Objects"项目，然后双击要编辑的工作表（Sheet）。
- 在工作表的代码窗口中，输入以下VBA代码：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Share").Enabled = False
End Sub- 保存并关闭VBA编辑器。
现在，当用户尝试点击"File"菜单时，"Share"选项将被禁用，用户将无法分享工作表。
这种方法利用了Excel的Workbook_BeforeSave事件，该事件在用户尝试保存工作簿之前触发。在事件处理程序中，我们使用VBA代码禁用了"File>Share"选项。请注意，这种方法只会禁用"Share"选项，而不会禁用其他"File"菜单中的选项。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云对象存储（COS）：提供高可靠、低成本、安全可扩展的云端存储服务，适用于各种场景，如网站托管、大规模数据备份、静态资源存储等。了解更多信息，请访问：https://cloud.tencent.com/product/cos
- 腾讯云云服务器（CVM）：提供弹性计算能力，可根据业务需求快速创建、部署和扩展云服务器实例。了解更多信息，请访问：https://cloud.tencent.com/product/cvm
- 腾讯云人工智能（AI）：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等，帮助开发者构建智能化应用。了解更多信息，请访问：https://cloud.tencent.com/product/ai
相关·内容
我需要一种方法来禁用用户转到(或使用)菜单文件>共享的功能Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("File&qu
浏览 37提问于2018-01-05得票数 3
我试图从xlsm文件中复制宏并将其粘贴到一个新的xlsm文件中，我正在win32com和xlwing中进行研究，但没有发现任何有用的东西。一个解决问题的提示是非常感谢的！
浏览 1提问于2019-09-28得票数 1
回答已采纳
我已经注意到，XLSM文件上的密码保护很容易被破坏，从而暴露出所有VBA代码。
除了简单地在项目设置上添加密码保护之外，还有什么替代方法可以提供更多的安全性？
浏览 0提问于2016-01-31得票数 0
我的excel vba出了点问题。我想添加一个文本框，我可以在其中加下划线、突出显示或操作文本。这有可能吗？如何解决这个问题？希望你们能帮助我。
浏览 2提问于2015-04-07得票数 0
1回答
我正在为一个项目在Excel中开发几个VBA宏。是否有方法确保在通过宏打开VBA宏时不会从其他Excel工作簿中启动VBA宏？例如，假设我在一个工作簿中有一个宏来打开其他Excel文件：PathName = Range("D3").Value
Filename = RangeD5").Value
浏览 1提问于2017-10-18得票数 0
回答已采纳
1回答
我使用(VSTO) 2005开发了一个excel XLS。大多数代码都在C# VSTO中，但是也有一个VBA宏来实现工作表函数。我不想让VBA和C#互相交谈，或者诸如此类的事情。只是个工作表函数。但是在Excel 2007中--如果用户禁用了宏，那么VBA将阻止VSTO运行。(错误消息：“无法找到或无法加载自定义程序集。”)如果我删除了VBA，那么VSTO就会加载得很好。但是VBA宏并不重要，所以我
浏览 4提问于2011-05-19得票数 6
我使用雅各布来调用一个驻留在Excel文件中的宏中的VB函数。下面是我的代码:我将文件和vb函数名作为参数传递给下面的java方法
final ActiveXComponent excel = new ActiveXComponent("Excel.Application"
浏览 0提问于2013-03-25得票数 2
回答已采纳
2回答
对此有一个真正的用例。希望能够使用Pandas进行一些数据聚合和操作，所设想的工作流如下：
将生成的DataFrame写回同一个Excel文件，到由另一个命名单元格定义的位置。保存Excel文件的图表和公式
浏览 4提问于2015-09-17得票数 1
1回答
嗨，我在一个excel插件上工作，它有一个自定义的UI框。因此，我想禁用与excel的交互，直到UI框不关闭为止。如下图所示，当COM外接程序框打开时，与excel的交互将被禁用。尽管我的插件是用pyxll编写的，但任何vba解决方案或任何其他语言解决方案都是可以接受的。
浏览 20提问于2021-05-27得票数 0
回答已采纳
4回答
我编写了一个宏方法，用于在打开Excel工作表时自动调整工作表中列的大小。但是，如果用户未在Excel中启用宏，则此解决方案不起作用。有没有办法检查用户是否在Excel中禁用了VBA宏，然后使用Excel VBA代码启用这些宏？
浏览 4提问于2012-02-24得票数 9
为什么我不能使用下面的脚本通过Python运行宏？如有任何建议，我们将不胜感激。 import xlwings as xwa = wb.macro("z_ColumnClear.Column_Clear") ?
浏览 29提问于2019-12-21得票数 1
回答已采纳
这不是用VBA拉取的。就像一天一次。上述方法不起作用。(我猜是因为我没有使用VBA拉取web查询)。或者，有没有办法在Excel中禁用错误？
浏览 17提问于2015-09-26得票数 0
我已经为一个具有调用CommonDialog.ShowColor的按钮的UserForm编写了一个Excel VBA。在我的开发者系统上没有问题，在我们的网络系统上，出于安全考虑，ActiveX被禁用了。我可以忍受最初加载Excel工作簿时出现的错误警告，但我要避免的是，当用户单击按钮以显示颜色对话框时，VBA编辑器就会出现。我在button_click事件中尝试了Error Goto，但这不起作用。 是否有一种方法可以在</
浏览 14提问于2019-09-19得票数 2
问题：工作簿在代码运行完成后才会打开。
Details: I有一个循环，要求用户打开另一个文件，以便代码继续。这个文件必须从互联网上下载并打开。我可能应该在下面的现有代码中添加一些刷新excel工作簿的内容，并查看是否发生了其他事情。
浏览 14提问于2017-02-13得票数 1
回答已采纳
我希望从特定的领域提取数据到Excel。例如，每个表单都有项目标题、开始日期和经理。我想与这三个数据块的表单1行。最终，每隔几个月就需要为几百个这样的表单完成这项工作，但现在我只想从一个开始。我设想在Excel工作表上有一个按钮，它将运行VBA代码以从Word文档中提取数据，并填充工作表中的适当单元格。其中单词doc的文件路径由用户指定。这是在MS Office '13中
浏览 5提问于2015-04-09得票数 1
回答已采纳
我试图让python打开一个.accdb文件并运行一个已经在Access中定义的子例程。我使用以下代码成功地使用Excel完成了此操作：xl=win32com.client.Dispatch("Excel.Application")xl=0Sub TestMe()End Sub
运行Python代码可
浏览 5提问于2015-09-18得票数 4
回答已采纳
我使用Excel中的加载本地Json文件。源文件是动态的(源文件通过使用FileDialog的按钮获取，然后通过查询公式中的VBA更新)。该查询如下所示： Quote = Json.Document(File.Contents("C:\last_loaded_file.json")),^^^^^^^^^^^^^^^^^^^^^^^^ this is updated via VBA
orderItems = Quote[orde
浏览 3提问于2022-09-15得票数 1
我有下面的VBA运行在Excel 2003中，它阻止保存，另存为，保存工作区，发送到菜单，但我现在需要做同样的，但Excel 2010？Controls(“发送到”)Enabled = False Application.CommandBars(“工作表菜单Application.CommandBars= False”)
有一个‘新的菜单’在Excel2010名为“保存和发送”(在文件带状)，我也想禁用.你是怎么做到的？我在寻找类
浏览 3提问于2013-07-18得票数 2
回答已采纳
1回答
我试着用十六进制编辑器在excel中打开一系列.dat文件，然后开始复制和粘贴过程。有人知道如何在Excel的vba中使用excel以外的程序打开文件吗？另外，我在我写的代码中也有一些错误。test = count Workbooks.Open Filename:=AllFiles(test) 'Open .dat file in ordertest =
浏览 1提问于2011-08-18得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
