首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

仅更改ThisWorkbook而不更改其他工作簿的属性

这个问答内容涉及到Excel的VBA编程,具体是关于如何只更改当前工作簿的属性而不影响其他工作簿的属性。

在Excel中,每个打开的工作簿都是一个Workbook对象。要更改当前工作簿的属性,可以使用VBA编程来实现。以下是一个示例代码,可以更改当前工作簿的属性:

代码语言:txt
复制
Sub ChangeWorkbookProperties()
    ' 获取当前工作簿对象
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    ' 更改属性
    With wb
        .Title = "新标题"
        .Subject = "新主题"
        .Author = "新作者"
        .Keywords = "关键词"
        .Comments = "备注"
        ' 更多属性可以根据需要进行修改
    End With
    
    ' 保存更改
    wb.Save
    
    ' 关闭工作簿
    wb.Close
End Sub

上述代码中,首先使用ThisWorkbook关键字获取当前工作簿对象,并将其赋值给变量wb。然后,通过修改wb对象的属性来更改当前工作簿的属性。可以根据需要修改的属性进行相应的更改。最后,保存更改并关闭工作簿。

这种方法只会更改当前工作簿的属性,不会影响其他工作簿的属性。这在需要对特定工作簿进行属性修改时非常有用。

关于Excel VBA编程的更多信息,可以参考腾讯云的相关产品和文档:

  • 腾讯云产品:腾讯云云服务器(CVM)
  • 产品介绍链接地址:https://cloud.tencent.com/product/cvm
  • VBA编程文档:https://docs.microsoft.com/zh-cn/office/vba/api/overview/excel

请注意,以上提供的链接和产品仅作为示例,不代表对腾讯云的推荐或评价。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

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

一些对象属性是只读,意味着你可以确定它们属性但不能更改它们值(例如,门数)。另一些则是可读写,可以读取和更改,例如广播电台。 相比之下,方法是对象可以执行操作,例如它可以执行动作。...换句话说,占位符是一个逗号后跟另一个逗号——如果包含该参数,则省略参数将在逗号之间。使用命名参数,则没有必要——包括要更改其默认值那些可选参数。...如果你希望工作簿保存在Excel默认数据文件夹中,则名称还可以包括驱动器和/或路径信息。...但是,有时一个工作簿代码正在处理另一工作簿数据,当此类代码需要引用它所在工作簿不是要操纵工作簿时,使用ThisWorkbook关键字。在对加载宏进行编程时,这种情况最经常发生。...然后使用ThisWorkbook关键字确保引用适用于代码所在工作簿不适用于活动工作簿。 说明:ThisWorkbook关键字与工程资源浏览器中列出ThisWorkbook元素不同。

5K30

Excel VBA编程

更改Excel工作界面 application子对象 workbook对象 引用workbook对象 访问workbook对象属性 创建工作簿——add 用open方法打开工作簿 activate...激活工作簿 保存工作簿 close——关闭工作簿 worksheet对象 add方法新建工作表 设置name属性更改工作标签名称 用delete方法删除工作表 激活工作两种方法 用copy方法复制工作表...ThisWorkbook.FullName End Sub 创建工作簿——add 创建空白工作簿:如果直接调用workbook对象add方法,设置任何参数,excel将创建一个只含普通工作工作簿...属性,获得工作簿工作数目 worksheets.count range对象 用range属性引用单元格 引用单个固定单元格区域:这种方法实际上就是通过单元格地址来引用单元格 引用多个连续单元格...change 工作表中单元格发生更改时发生 deactivate 工作表由活动工作表变为活动工作表时发生 followHyperlink 单击工作表中任意超链接时发生 PivotTableUpdate

45.2K21

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

还可以使用Excel VeryHidden属性来实现工作隐藏,这意味着不能使用Excel菜单来取消隐藏工作表。但是,这只会影响该工作簿,因此用户可以使用另一个工作簿宏取消隐藏所有工作表。...注意:为防止某些事件循环问题,此代码需要覆盖Excel内置Save事件,并且还需要复制Excel工作簿更改,您要保存”提示和操作,代码负责所有这些工作。...但是,在关闭文件时确实会产生一个非常小问题。如果用户尝试退出该应用程序,它将关闭工作簿不是Excel。再次退出将完全关闭Excel。...Application.EnableEvents = False '调用自定义保存程序并设置工作簿saved属性为true '(取消常规保存) Call CustomSave...代码放置在ThisWorkbook代码模块中。 2. 工作簿中应该有一个名为“欢迎”工作表,否则你要将代码前面的常量WelcomePage设置为用户没有启用宏时提示工作表名称。

2.3K40

Excel事件(三)工作簿事件

一、工作簿事件基础 当发生工作簿更改工作簿任何工作更改,加载宏更改或数据透视表更改时,都可能引发对应工作簿事件,合理地使用各个事件可以避免一些意料不到错误,提高代码可读性和执行效率。...介绍事件类型时曾介绍过,编写工作簿事件过程代码,需要在“工程资源管理器窗口”双击thisworkbook对象,打开“代码编辑器后”,左上角选择workbook对象,右上角选择对应“事件”。...工作簿事件种类较多,但很多事件用到频率非常少,下面介绍演示几个常用工作簿事件。其他事件如果用以后网上查询适用场景即可。...(不过对系统设置进行修改代码不应写在open事件中,建议写在activate事件中,在执行顺序中activate事件在open事件之后发生,而且open时候是有可能不被执行。...4、sheetchange事件 sheetchange事件,是当工作簿中任意一个单元格被更改时,自动运行程序。

2K40

EXCEL VBA语句集300

() ‘创建一个新工作簿 (9) Workbooks(“book1.xls”).Activate ‘激活名为book1工作簿 (10) ThisWorkbook.Save ‘保存工作簿 ...‘返回活动工作名称 (14) ThisWorkbook.Name ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize...(“Sheet2”).Range(“A1”) ‘复制包含A1单元格区域到工作表2中以A1起始单元格区域中 注:CurrentRegion属性等价于定位命令,由一个矩形单元格块组成,周围是一个或多个空行或列...ThisWorkbook.FileFormat ‘返回当前工作簿文件格式代码 (108) ThisWorkbook.Path ActiveWorkbook.Path ‘返回当前工作簿路径...(注:若工作簿未保存,则为空) (109) ThisWorkbook.ReadOnly ActiveWorkbook.ReadOnly ‘返回当前工作簿读/写值(为False) (110)

1.7K40

VBA技巧:在不保护工作簿情况下防止删除工作

标签:VBA 下面介绍一个使用少量VBA代码实现简单实用小技巧。 通常情况下,我们执行“保护工作簿”命令后,此时删除工作命令变成灰色,用户就不能轻易地删除工作表了。...然而,这样也不能进行插入、移动或复制工作操作了。 如果想要在不保护工作簿情况下防止用户删除工作表,而且允许用户插入工作表并对其进行重命名,也允许用户移动或复制工作表,有没有什么好方法实现?...在工作簿ThisWorkbook模块中粘贴或输入下面的代码: Option Explicit Private Sub Workbook_SheetDeactivate(ByVal Sh As Object..." End Sub Sub RemoveProtection() '撤销保护工作簿 ThisWorkbook.Unprotect End Sub 此时,用户再要删除该工作簿工作表,就会弹出...“工作簿有保护,不能更改。”

1.8K30

Excel数据表分割(实战记录)

如果每10行数据创建一个新工作簿不是新工作表(Sheet),可以使用以下VBA代码: 复制代码 Sub 分割数据() Dim 原始表 As Worksheet Dim 新表 As...End Sub 请注意,此代码将创建新工作簿,并在每个新工作簿中复制相应数据。你可以根据需求修改代码中保存路径和文件名。运行代码后,将显示一个弹出窗口,指示成功分割为多少个新表。...如果需要更改行数或其他相关参数,只需修改代码中相应行数即可。 修改代码中数据区域,可以将其更改为你想要分割数据所在范围。...& 结束行).Copy .Range("A2") End With ' 保存新工作簿 新表.SaveAs ThisWorkbook.Path & "\...End Sub 这段代码在每个新表中通过将标题行和对应数据行复制到新工作簿来实现分割。新工作簿第一行是标题行,接下来行是对应数据行。

29920

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

有时候,我们打开了一个工作簿,但长时间没有使用,此时,你可能想让Excel自动将其关闭。也就是说,对于某个工作簿,如果用户在指定时间内没有进行任何操作,那么Excel会保存并关闭该工作簿。...:=True End Sub 你可以修改NUM_MINUTES值,设置让工作簿在没有操作情况下保持开启时间。...在VBE资源管理器窗口,双击ThisWorkbook打开该模块,输入代码: Private Sub Workbook_Open() On Error Resume Next Application.OnTime...Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub 每当更改单元格值或更改单元格选择时...如果在指定时间内都没有操作工作簿,那么该工作簿将自行保存并关闭。 注:本文学习整理自www.cpearson.com,供有兴趣朋友参考。

1.9K30

Workbook工作簿对象方法(二)

Workbooks("vba.xlsm").Close 是关闭了单个工作簿vba.xlsm,workbooks.close则是关闭所有打开工作簿。...在关闭工作簿时,如果excel表有修改且没有保存,那么系统会在关闭前弹窗提示是否需要保存。如果希望出现弹窗,可以通过设置close方法参数来修改。 下面看下close方法完整格式。...---- 下面顺便说明下thisworkbook和activeworkbook区别。 两者实际都application对象属性。均返回一个workbook对象。...与之前介绍工作表activesheet属性类似。 thisworkbook是对程序所在工作簿引用。activeworkbook则是当前活动工作簿引用。...ActiveWorkbook.Name返回当前代码所在工作簿名称为“vba.xlsm” ---- 本节主要介绍工作簿对象常用方法,后续会介绍application对象属性和方法,以及事件等内容等

4.5K20

Excel实战技巧:创建带有自定义功能区Excel加载宏

创建这个带有自定义功能区Excel加载宏将可以有任意工作簿中使用,下面我们详细讲解其创建过程。...第1 步:创建一个新工作簿,将其保存为启用宏工作簿(本示例使用名称MyCustomRibbon.xlsm)。 第2步:单击“文件——信息”,选择“属性——高级属性”,如下图1所示。...图1 在“属性”对话框中,“标题”属性显示加载宏名称,“备注”属性显示加载宏详细说明,如下图2所示。 图2 第3步:添加宏。由于自定义功能区每个命令都需要有相应事件处理程序,而这需要宏来实现。...此时,Excel会自动更改为默认加载宏文件夹,你可以导航到你想要保存文件夹。 图4 第5步:在Custom UI Editor中打开并编辑加载宏。...图8 此时,在Excel工作簿功能区中出现了一个新选项卡,如下图9所示。单击选项卡组中按钮,会调用相应宏显示信息。 图9 第7步:修改成中文。

2.7K20

Excel事件(一)基础知识

1、工作簿事件 工作簿事件是发生在特定工作簿中,工作簿事件代码必须在Thisworkbook对象代码模块中编写,比如open(打开工作簿),beforeclose(关闭工作簿)和sheetactive...(激活任何一张工作簿)等。...2、工作表事件 工作表事件发生在特定工作表中,工作表事件代码必须在对应工作代码模块中编写,比如change(更改工作表中单元格)和selcetchange(工作表上选定区域发生改变)等。...如工作簿事件代码必须在Thisworkbook对象代码模块中编写,工作表事件代码必须在对应工作代码模块中编写,窗体及窗体上控件事件代码必须编写在响应用户窗体代码模块中。...下面分别演示下它们编写代码位置和方式。 演示一:工作簿对象事件 双击左侧工程资源管理窗口中thisworkbook,右侧显示当前thisworkbook代码窗口。

2.1K40

VBA实战技巧30:创建自定义进度条2

有创意进度条 采用相反方式来显示进度,将使用标签“缩小”不是“增长”。诀窍是我们标签不是进度指示器。相反,有一个指示进度静态图像,标签将充当静态图形隐藏部分遮罩,如下图5所示。...百分比显示 添加一个文本框对象(如下图7所示)并更改其标题(Caption)属性不是插入框架对象并更改标题属性。 图7 其灰色背景是一个插入Image对象,它指向一个带有灰色边框简单图像。...例如,如果Pct为0.5,则宽度为109,原218一半。 将计算标签左侧不是将Left属性固定到设置位置。逻辑是从230(标签最右侧)中减去计算出Width。...Pct =(i - startrow + 1) / (endrow - startrow + 1) Call UpdateProgress(Pct) '这是工作簿执行许多需要一些时间事情地方...startTime = Timer ' 捕获当前时间 Do Loop Until Timer - startTime >= 0.1 '1/10 秒后前进 '这是工作簿完成重复工作地方

1.1K20

一起学Excel专业开发20:Excel工时报表与分析系统开发(3)——启动与关闭

保存这些设置最方便地方是加载宏中工作表,或者是与应用程序相同目录下纯文本文件,或者是注册表。...As String Dim objTemp As Object Dim wkbTemp As Workbook '一些属性需要打开工作簿,因此创建一个工作簿 If ActiveWorkbook...“xlb”文件中,其文件名随Excel版本不同不同(参见《Excel揭秘20:xlb文件》)。...4.设置Application.IgnoreRemoteRequests=True,这样在双击Excel工作簿图标时会打开一个新Excel进程实例,不会重用原来进程实例。...5.关闭任务栏中窗口。因为可能会处理多个打开工作簿,此时不允许用户在这些工作簿之间进行跳转。 6.不允许定制命令栏。 7.针对Excel 2002及其以后版本关闭自动恢复功能。

1.4K20

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

然鹅,偏偏回到Excel本身,如果工作簿设置了密码,Power Query却没有提供输入密码自动刷新功能,结果,碰到有密码Excel工作簿时,刷新就会出错,还提示为“文件包含损坏数据”……如下图所示...: 重要技巧:这里如果直接引用带密码Excel工作簿,后面的数据处理过程将无法进行,所以,应该先把要加密Excel工作簿解密,处理好后再重新加密。...或者,先复制一份,去掉密码,做好后续处理再修改为对加密Excel工作簿引用路径。...,插入数据刷新按钮: 使刷新按钮指向前面编辑宏: 最后,我们再设置Power Query查询属性为【】“允许后台刷新”,避免在数据未完成刷新时,刷新代码后面的步骤...(重新加密)被执行导致刷新失败: 这样,我们就又可以一键刷新了: 注意,这里数据刷新后,查询上仍然会提示如文章开头所说错误信息,但这并不影响数据更新和使用。

3.6K41
领券