如果密码不正确，则关闭工作簿 - 腾讯云开发者社区

标签：VBA 要从关闭的工作簿中复制数据，有很多种方法，下面介绍最基本的一种方法。...假设要将一个工作簿中工作表Sheet2的单元格区域A1:B50的数据复制到当前工作簿的工作表Sheet1相应的单元格区域，可以使用下面的代码： Sub testCopyValueFromClosedWorkbook...= wksThat.Range("A1:B50").Value wbThat.Close False End If End Sub 代码的思路很简单：打开选择文件对话框，选择要复制的数据所在的工作簿文件...，然后打开该工作簿，将其中数据所在工作表相应单元格区域数据复制到当前工作簿相应工作表区域，然后关闭该工作簿。

1181 0

工作簿有密码，自动刷新数据，没问题！ | PQ重要技巧

然鹅，偏偏回到Excel本身，如果工作簿设置了密码，Power Query却没有提供输入密码自动刷新的功能，结果，碰到有密码的Excel工作簿时，刷新就会出错，还提示为“文件包含损坏的数据”……如下图所示...通过Power Query与VBA的强强联合，咱们就可以刷新对带密码Excel工作簿数据的自动刷新。...或者，先复制一份，去掉密码，做好后续处理再修改为对加密Excel工作簿的引用路径。...- 3 - VBA实现解密刷新通过VBA，我们可以用密码打开数据源工作簿，清除密码，然后刷新查询，刷新完毕后再对数据源工作簿重新加密……是不是很像“把大象放进冰箱里”的三个步骤？...'2、刷新数据 ThisWorkbook.Connections("查询 - 表2").Refresh '3、重新打开工作簿，设置密码并保存关闭 Set wb = Workbooks.Open

4K4 1

您找到你想要的搜索结果了吗？

是的

没有找到

VBA实战技巧28：自动关闭指定时间没有进行操作的工作簿

有时候，我们打开了一个工作簿，但长时间没有使用，此时，你可能想让Excel自动将其关闭。也就是说，对于某个工作簿，如果用户在指定的时间内没有进行任何操作，那么Excel会保存并关闭该工作簿。...10 Public Sub SaveAndClose() ThisWorkbook.CloseSaveChanges:=True End Sub 你可以修改NUM_MINUTES的值，设置让工作簿在没有操作的情况下保持开启的时间...如果在指定的时间内都没有操作工作簿，那么该工作簿将自行保存并关闭。注：本文学习整理自www.cpearson.com，供有兴趣的朋友参考。

2.5K3 0

Workbook工作簿对象方法（二）

4、参数Password指定保存的工作簿的密码，区分大小写。 5、参数WriteResPassword指定工作簿的写保护密码。如果使用密码保存工作簿并且在打开时未提供密码，则以只读方式打开该工作簿。...五、工作簿对象close方法关闭工作簿workbook对象使用close方法，如果是workbooks集合对象的close则是关闭所有打开的工作簿对象。...2、参数SaveChanges指定是否保存对工作簿所作的修改。如果没有修改过工作簿，则忽略此参数。...如果修改了工作簿，则使用此参数指定是否保存修改；如果参数值设置为True，则关闭时将保存修改，此时如果工作簿还没有被命名，则使用参数Filename指定的名称，若没有指定Filename参数，则要求用户输入文件名...；如果此参数值设置为False，则关闭时将不会保存任何对工作簿的修改。

4.8K2 0

VBA实战技巧：正确登录后才能使用Excel工作簿

当你打开这个工作簿时，Excel会弹出一个登录框，如下图1所示。当你输入正确的用户名和密码后，才能使用这个工作簿，否则会退出。...图1 这个工作簿中有一个名为“用户中心”的工作表，用来存放用户名、密码等信息，如下图2所示。图2 打开VBE，插入一个用户窗体，在其中放置标签、文本框、按钮等控件，并将相关控件命名。...txtPassword.TextLength> 4) End Sub Private Sub SomethingWrong() MsgBox"用户名或密码不正确...Application.EnableCancelKey = xlDisabled Sheets("数据").Activate Sheets("用户中心").Visible= xlVeryHidden login.Show End Sub 关闭工作簿...当然，如果想下载示例工作簿，请到知识星球完美Excel社群中下载。欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

1.2K2 0

问与答121：如何让用户输入密码后才能使用Excel文件？

Q：有没有一种方法可以通过给用户提供密码来许可用户使用Excel文件？例如，在没有到规定的日期之前，可以正常使用，超过规定日期，则需要输入密码，如果密码不正确，将删除Excel文件。...A：可以在工作簿的Open事件中编写代码来实现，如下： Public MyDate As Variant Private Sub WorkBook_Open() Dim mbox MyDate...", vbCritical, "过期/超期版本" mbox = Application.InputBox("请输入密码/代码继续..."...,"密码") If mbox "ABCD" Then MsgBox "不正确的密码" &vbCrLf & _ "请询问相关人员获取正确的密码...我们可以在工作簿打开时强制用户启用宏。具体方法参见：《问与答10：如何强制用户启用宏？》。注：今天的问题来自于chandoo.org论坛，供有兴趣的朋友学习参考。

1.2K8 0

Excel编程周末速成班第21课：一个用户窗体示例

该工作簿可能包含现有数据，也可能是空白的，如图21-1所示。 3.显示一个用户窗体，使用户可以输入一个人的数据。 4.继续显示用户窗体，直到输入了所有数据。 5.保存工作簿，然后关闭程序。...显示一个“取消”命令按钮，该命令按钮放弃当前数据并关闭窗体。验证没有字段留为空白。验证邮政编码条目是有效的邮政编码。步骤1：创建工作簿要完成的第一个任务是创建Addresses工作簿。...注意使用Beep语句，如果按下了不正确的键，它将导致系统发出声音。...如果验证成功，则将数据输入工作表中，并清除窗体且再次显示该窗体以供其他输入。或者，如果选择了“完成”按钮，则关闭窗体。你可以看到，当用户单击“下一步”或“完成”按钮时，将执行验证。...如果验证成功，则将数据输入工作表中，并清除该窗体以输入下一个地址。如果验证失败，则窗体将保留其数据，以便用户可以根据需要进行更正。

6.2K1 0

Excel实战技巧89：强制用户保护工作簿工作表

学习Excel技术，关注微信公众号： excelperfect 使用VBA代码，在用户关闭工作簿时，只有设置了保护工作簿，才能正常关闭。...End If End Sub 如下图1所示，当用户关闭工作簿时，如果没有设置工作簿保护，则提示用户是否设置工作簿保护。...如果单击“是”，则要先设置工作簿保护再关闭工作簿；如果单击“否”，则直接关闭工作簿。 ? 图1 上述代码提供给用户选择是否保护工作簿，下面的代码强制用户设置保护工作簿，否则不能关闭工作簿。...End If End Sub 同理，我们也可以使用代码来强制用户设置工作簿保护，否则不能关闭工作簿。...End If End Sub 上述代码是强制当前工作簿设置工作表保护，你也可以使用指定的工作表代替ActiveSheet，以强制必须对指定工作表设置保护，否则不能关闭工作簿。

9763 0

一起学Excel专业开发18：Excel工时报表与分析系统开发（2）——创建特定应用加载宏（续）

,保存工时输入工作簿到该位置 '如果不是,提示用户指定合并路径,保存该位置到注册表 '保存工时输入工作簿到该位置 sSavePath = GetSetting...如果存在输入错误，则向用户显示出错信息并退出过程，否则就为工作簿创建一个唯一的名称，然后在注册表中查询合并区的路径。如果合并区的路径并未保存到注册表，则会给出提示信息并要求用户指定其路径。...,允许用户保存修改 Application.Workbooks(gsFILE_TIME_ENTRY).Close '如果没有打开的工作簿则退出Excel '否则只是关闭该工作簿...ShutdownApplication过程首先删除自定义工具栏，然后关闭工时输入工作簿，如果该工作簿未保存，Excel提示用户要保存工作簿。...在工时输入工作簿关闭后，该过程检查是否还有其他可见工作簿处于打开状态。如果没有，则关闭Excel。如果有可见工作簿处于打开状态，则只关闭该工作簿而不关闭Excel。

1.3K2 0

Excel编程周末速成班第3课：Excel对象模型

Template是一个可选参数，用于指定现有工作簿文件的名称。如果包含该参数，则基于现有工作簿创建一个新的工作簿；如果省略该参数，则创建一个包含默认数量空工作表的新工作簿。...保存和关闭工作簿若要以现有名称保存工作簿，则使用Save方法。...如果省略，则Excel会自动添加它。如果你不希望工作簿保存在Excel的默认数据文件夹中，则名称还可以包括驱动器和/或路径信息。...如果省略，则提示用户保存更改。参数Filename，此参数指定保存工作簿的名称。如果省略，则使用当前工作簿名称。...下面的代码示例演示如何使用ForNext … In循环关闭所有打开的工作簿，并保存所有更改。

5.1K3 0

一起学Excel专业开发21：Excel工时报表与分析系统开发（3）——自定义用户界面

Next If Not wbkTest Is Nothing Then '如果工作簿已被关闭,则将失败 '保留WorkbookAlive的值为False...如果应用程序使用基于用户窗体的接口，则工作表只应用于显示报表。在决定采用何种样式的用户接口时，应该考虑用户可能会在应用程序的什么地方花时间，是提供丰富的编辑功能更好还是提供强大的控制功能更好。...MenuFileClose '如果仍然存在,则取消关闭 If Not gwbkResults Is Nothing Then Exit Sub '按照模板创建一个新的结果工作簿...Then Exit Sub '检查文件以获取可识别的自定义文档属性 If FileHasYesProperty(vFile, gsPETRAS_RESULTS) Then '如果是则打开并启用关闭...(*.xls*), *.xls*", , "选择要合并的工作簿",, True) '如果取消则退出 '当请求一个多选列表时,如果确定或取消,将返回一个数组 '因此可以测试数组

1.9K1 0

VBA: 打开带密码的Excel文件

], [Delimiter], [Editable], [Notify], [Converter], [AddToMru], [Local], [CorruptLoad]) Filename 要打开的工作簿的文件名...UpdateLinks 数值为0，代表工作簿打开时不更新外部引用（链接）。 ReadOnly 如果为 True，则以只读模式打开工作簿。...Format 如果 Microsoft Excel 打开文本文件，则由此参数指定分隔符。数值为5，表示没有分隔符。 Password 一个字符串，包含打开受保护工作簿所需的密码。...WriteResPassword 一个字符串，包含写入受保护工作簿所需的密码。 2. 示例代码通过VBA实现的功能：打开带密码的Excel文件，并在文件内填入信息。...+ 1, 1) = "2021/11/6" '日期 xlbook1.Close savechanges:=True xlapp1.Quit '关闭测试数据工作簿

4.6K2 1

免费提供sky交流测试，批量测试chatGPT的api是否还能用2023.6.6

= openpyxl.load_workbook(Excel文件) 工作表 = 工作簿.active # 获取当前日期和时间当前日期时间 = datetime.now()....密钥候选}") else: result_cell.value = 0 except Exception as e: # 如果回答不正确...result_cell.fill = original_fill # result_cell.font = original_font # 保存修改后的Excel表格工作簿...= openpyxl.load_workbook(Excel文件) 工作表 = 工作簿.active # 获取当前日期和时间当前日期时间 = datetime.now()....API密钥候选}") # 打印错误信息结果单元格.value = 0 # 在结果单元格中写入0，表示此 API 密钥无效 # 保存修改后的Excel表格工作簿

3442 0

VBA代码库10：强制用户启用宏

有时，必须确保用户在打开工作簿时启用宏，否则就不能实现工作簿的效果。由于无法使用宏去打开宏，因此需要一种确保用户启用宏的技术。...下面讲解的方法隐藏除“欢迎”工作表（告诉用户启用宏）之外的所有工作表，并在每次保存工作簿时强制执行该工作表。如果用户在启用了宏的情况下打开工作簿，则宏将不会隐藏所有工作表。...但是，在关闭文件时确实会产生一个非常小的问题。如果用户尝试退出该应用程序，它将关闭工作簿，而不是Excel。再次退出将完全关闭Excel。...Cancel = True End Select End If '如果单击取消, 重新打开事件并取消关闭,...'否则不保存改变而关闭工作簿.

2.5K4 0

Excel VBA编程

激活工作簿保存工作簿 close——关闭工作簿 worksheet对象 add方法新建工作表设置name属性，更改工作表的标签名称用delete方法删除工作表激活工作表的两种方法用copy方法复制工作表...——add 创建空白工作簿：如果直接调用workbook对象的add方法，而不设置任何参数，excel将创建一个只含普通工作表的新工作簿指定用来创建工作簿的模板：如果想将某个工作簿文件作为新建工作簿的模板...("workbooks_name").close '关闭指定名称的工作簿 workbooks.close savechanges := true '关闭并保存对工作簿的修改 worksheet对象 add...当值为TRUE时，程序将不响应我们关闭窗体的操作。如果cancel的值为false，程序将关闭窗体。...on error resume next Resume Next告诉VBA，如果程序发生错误，则忽略存在错误的代码，接着执行错误行之后的代码。

45.8K3 3

Excel事件（四）事件顺序

大家好，本节主要介绍事件的发生顺序，事件的关闭与开启的使用情境。对于Excel事件的五种类别，已经分别介绍了工作表事件和工作簿事件。...图表事件如果后期介绍“控制图表"的内容再介绍。事件的发生顺序首先要介绍的一些常见事件的发生顺序，工作簿和工作表对象都对应很多事件。了解事件的产生顺序有助于理顺对事件的使用。...工作簿事件顺序操作工作簿时常用的事件产生顺序如下： 1、workbook_open事件：打开工作簿时产生该事件 2、workbook_activate事件：打开工作簿时产生该事件。...如果有多个工作簿，则切换工作簿时也将产生该事件 3、workbook_beforesave事件：保存工作簿之前产生该事件 4、workbook_beforeclose事件：关闭工作簿之前产生该事件 5、...workbook_deactivate事件：关闭工作簿时，在beforeclose事件之后产生该事件，如果有多个工作簿，在切换工作簿时，非激活状态的工作簿将产生该事件。

2.4K3 0

Excel应用实践11：合并多个工作簿中的数据——示例2

在上一篇文章《Excel应用实践10：合并多个工作簿中的数据》中，我们使用代码快速合并超过50个Excel工作簿文件，然而，如果要合并的工作簿中工作表的名称不相同，但位于每个工作簿的第1个工作表；并且，...,则退出 If Not IsArray(fn) Then Exit Sub '在当前工作簿中添加新工作表 Set ws = ActiveWorkbook.Sheets.Add...'如果变量flag值为False则执行条件语句 If Not flg Then '将打开的文件的第1个工作表中的第1行数据...GetBasename(e) End With End With End With '关闭要从中获取数据的工作簿文件...如果将2修改为1，则表明是最后一个数据单元格。 2.代码： LastR(, 0) 表明LastR代表的单元格左侧的相邻单元格。

2.8K2 0

ExcelVBA-ADO-SQL-001连接数据库

HDR=NO，则表示第一行不是标题，做为数据来使用。...数据区域也可以用Excel中定义的名称表示，假如有个工作簿作用范围的数据区名称datarange,查询语句为： "SELECT * FROM [datarange]" 如果数据区名称作用范围是工作表，需要加上工作表名...："SELECT *FROM [sheet1$datarange]" 有密保的工作簿：如果Excel工作簿受密码保护，即使通过提供正确的密码与连接字符串，也无法打开它来进行数据访问。...如果您尝试打开，将收到以下错误信息：“无法解密文件”。...ADODB.Connection") Set Rst =CreateObject("ADODB.Recordset") PathStr = ThisWorkbook.FullName '设置工作簿的完整路径和名称

2.1K6 0

Workbook工作簿对象方法（一）

2、参数的字符串如果指定的是已有的excel文件，那么新建文件会以该excel文件为模板创建新工作簿。新工作簿名在模板工作簿名的后面加有规律的数字。...，则弹窗文件打开，否则文件未打开。...1、参数FileName必需，指定一个字符串，代表要打开的工作簿文件名。 2、参数UpdateLinks可选，指定文件中外部引用（链接）的方式。如果忽略该参数，那么将提示用户指定如何更新链接。...3、参数ReadOnly可选，如果设置其值为True，将在只读模式下打开工作簿。 4、参数Password可选，指定打开受保护工作簿时需要的密码。...如果忽略该参数但是工作簿受密码保护，则会提示用户输入密码。其他如果需要用到可以参考excel帮助文件。 ---- 本节主要介绍工作簿对象的常用方法add和open方法，后续会继续介绍其他方法。

6.6K4 0

最全总结 | 聊聊 Python 办公自动化之 Excel（下）

xlrd 首先安装 xlsxwriter 的依赖包 # 安装依赖包 pip3 install xlsxwriter xlsxwriter 提供了 Workbook(filename) 方法，用于创建一个工作簿对象...使用工作簿对象的 add_worksheet(sheet_name) 函数，就可以在工作簿中创建 Sheet 了 def create_workbook_and_worksheet(filename,...worksheet_names): """ 创建工作簿和Sheet :param filename: 文件名称 :param worksheet_names: sheet...，比如：字体大小、字体、颜色、背景、是否加粗等，可以使用工作簿对象的 add_format() 方法创建一个样式 def create_format_styles(wb, format_stuyles)...设置行高 set_row_height(self.current_sheet, 1, 50) set_row_height(self.current_sheet, 2, 100) 写入数据完毕之后，将工作簿关闭

1.3K2 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

从关闭的工作簿中复制数据

工作簿有密码，自动刷新数据，没问题！ | PQ重要技巧

VBA实战技巧28：自动关闭指定时间没有进行操作的工作簿

Workbook工作簿对象方法（二）

VBA实战技巧：正确登录后才能使用Excel工作簿

问与答121：如何让用户输入密码后才能使用Excel文件？

Excel编程周末速成班第21课：一个用户窗体示例

Excel实战技巧89：强制用户保护工作簿工作表

一起学Excel专业开发18：Excel工时报表与分析系统开发（2）——创建特定应用加载宏（续）

Excel编程周末速成班第3课：Excel对象模型

一起学Excel专业开发21：Excel工时报表与分析系统开发（3）——自定义用户界面

VBA: 打开带密码的Excel文件

免费提供sky交流测试，批量测试chatGPT的api是否还能用2023.6.6

VBA代码库10：强制用户启用宏

Excel VBA编程

Excel事件（四）事件顺序

Excel应用实践11：合并多个工作簿中的数据——示例2

ExcelVBA-ADO-SQL-001连接数据库

Workbook工作簿对象方法（一）

最全总结 | 聊聊 Python 办公自动化之 Excel（下）

扫码

相关资讯

热门标签

活动推荐

运营活动

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐