VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改

最新推荐文章于 2025-03-13 10:30:03 发布
原创 最新推荐文章于 2025-03-13 10:30:03 发布 · 1.2k 阅读 · 6
标签
#excel #职场和发展 #程序人生
本文介绍如何使用VBA在Excel中创建一个工作薄，当工作薄名称改变时，自动将其另存为原始名称并删除当前工作表，确保工作薄名称始终不变，防止误修改。通过隐藏工作表记录初始名称，关闭时对比并执行另存和销毁操作。

VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改

    工作中，你是否遇到过这样的情况，工作表改来改去，工作薄名称也从“初稿”、“终稿”、“最终版”、“上交版”等逐步变化，最后也不知道哪版是最后一版，想从修改日期查看哪个是最后一版，可逐个打开关闭时无意触碰键盘又习惯性的“ctrl+s”后，竟发现最后的希望也破灭了。每次更新一版都舍不得删除前一版，怕万一再有用怎么办，结果大部分时候是用不着的，只能给自己添乱。
用VBA给自己做个决定，只留最后一版，工作薄名称自始至终只有一个，只要名称不对，工作表关闭前自动另存为原来的名称并删除现有工作表。
    这样也可以防止随意修改工作薄名称。
    操作思路：
    在工作薄中隐藏一个工作表（“工作表原始名称”），A1单元格写上该工作薄最初的名称，工作薄关闭前检查工作薄名称与保存的最初名称是否相同，不相同则工作薄另存为最初的名称，并将活动工作薄销毁。
   直接上代码：

最低0.47元/天 解锁文章
Excel Vba 文件移动到新位置，并重命名文件
webmastor的专栏http://www.anymoe.com
06-04 2006
'表格第1列为企业盲号，第二列为产品盲号，第三列是源文件地址，第4类用于存放生成的文件地址，第1行为标题行 Sub CopyStdFiles() Dim outPutFolder As String Dim filePath As String Dim companyFolder As String Dim productId As String Dim companyId As String Dim sourceFilePath As String ...
Excel 2010 VBA 入门 068 将当前工作簿备份至指定目录
复行数十步
04-26 1730
目录 示例： 实现代码 工作簿对象(Workbook)的SaveCopyAs方法 SaveCopyAs方法和SaveAs方法的区别 示例： 在许多时候，希望能够为工作簿创建一个备份，以防误操作而丢失数据。如何为当前工作簿自动备份一个副本至指定目录，并以日期和时间为文件名？ 实现代码 Option Explicit Sub 备份工作簿() Dim FileFullName As String Dim FilePath As String FilePath =..
VBA另存指定工作表并改名
weixin_43159995的博客
07-14 5793
Sub sheet另存为工作簿() Sheets(Array("人员档案", "明细一", "明细二", "明细三")).Copy Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "/" & "数据备份.xls" End Sub
Excel VBA将工作表另存为Excel文件并覆盖文件
后台圈的专栏
07-08 8494
Export Worksheet Option Explicit Sub exportSheet() Const FolderPath As String = "C:\Test\" Const FileName As String = "ART.xlsx" Const SheetName As String = "Master List" On Error Resume Next Workbooks(FileName).Close O
VBA设置定时保存工作簿
陈表达的博客
02-21 1086
使用VBA实现定时保存工作簿代码，保证数据不丢失。
Excel VBA与常用函数的全面教程
最新发布
weixin_30021053的博客
03-13 1874
本文还有配套的精品资源，点击获取 简介：本教程旨在帮助用户全面掌握Excel VBA编程及常用函数的应用。VBA是一种允许用户通过编程来控制Excel工作簿、工作表和图表行为的强大工具。教程涵盖了VBA基础概念，如变量、数据类型、控制结构、函数与过程、对象模型、事件处理、调试与错误处理等。同时，针对Excel 2003版本，讲解了各种内置函数的使用方法，包括数学与三角函数、...
设置Excel工作簿达到使用天数后自动删除文件
gtxing的博客
11-01 1万+
很多时候，出于商业文件的保密性，Excel文件制作者会设置文件使用一定期限后，禁止再使用即让文件自行销毁，这在工作中是很重要的一项Excel技能，上一篇单独记录了 Excel文件自毁VBA指令，这里再结合实际，调用Excel工作簿的Workbook_Open()事件，使Excel工作簿达到使用天(30天)数后，只要用户打开文件它就会自动删除。 1.打开VBE代码编辑窗口，双击”ThisWorkbo
Excel文件自毁VBA指令
gtxing的博客
10-27 9402
新建一个Excel工作簿，按Ctrl+F11打开Excel VBE代码编辑窗口，把以下代码指令放到ThisWorkbook，只要一运行就会毁掉当前工作簿，需要做好备份。Sub kills() Application.DisplayAlerts = False With ThisWorkbook '定位到ThisWorkbook .Saved = True '关闭保存时 .Change
VBA禁止更改工作表名称
rocket2020的博客
05-22 1152
'VBA禁止更改工作表名称 Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range) If Sheet16.Name <> "数据" Then Sheet16.Name = "数据" ThisWorkbook.Save End Sub
使用VBA实现将多个不同的sheet另存为单独的excel文件，并且以sheet名称命名
U_C_T_C的博客
11-18 2276
这段代码会将当前工作簿中的每个工作表另存为一个新的Excel文件，文件名与工作表名称相同，保存在当前工作簿所在的文件夹中。
如何让Excel表使用一次后即自我销毁？
weixin_43400125的博客
11-17 7724
文件要打开看过后就自动删除，如何通过VBA程序来实现呢？ 解决方案：将文件的ChangeFileAccess属性设置为只读，即xlReadOnly，然后通过Kill代码删除文件即可。不过为了确保用户可以正常地查看文件一次，需要将代码写入工作簿时间“Workbook_BeforeClose”中。 具体方法如下： 第一步：新建一个工作簿（也可以打开已经存在的工作簿），按Alt+F11组合键打开VBE窗...
VBA宏：覆盖文件时关闭提示信息
bigheadsheep的专栏
07-25 9663
用VBA创建文件时，遇到重名文件，会自动弹出对话框让用户选择是否覆盖 为了保持程序使用的连贯性，希望能够将提示框取消，直接覆盖 可以利用以下方法解决：   在文件处理开始时，关闭报警： Application.DisplayAlerts = False 在文件保存后，再打开报警： Application.DisplayAlerts = True
excel vba saveas 另存为使用方法
热门推荐
jzkwf705的博客
02-29 2万+
excel vba 保存代码 Sub 保存工作簿() ThisWorkbook.Save '.save相当于按保存按钮；无参数 ThisWorkbook.SaveAs "另存为工作簿" '把当前工作簿另存为一份新的工作簿 ThisWorkbook.SaveCopyAs "另存一份副本" '另存一份副本为新工作簿，而不关闭当前工作簿。只有一个参数，就是新的文件名。 ...
VBA中新建、读取、保存和另存EXCEL
weixin_33841722的博客
08-29 1275
Dim app_excel As Excel.Application Dim book_excel As Excel.Workbook Set app_excel = New Excel.Application '申请一个Excel.Application内存...
通过VBA将一个工作簿中的多个工作表拆分为多个工作簿,以工作表名称命名工作簿
wanglepingwangleping的博客
07-20 7206
前提：电脑上装有office2007或office2013等，WPS不行。 1、如果你有现成的一个工作簿含有多个工作表的文件，想分成多个工作簿的话， 可以通过office2007或office2013等打开execl，然后通过execl里面的开发工具， 输入以下运行代码，执行就行（拆分的工作簿在你设置的路径下）： Sub cfb() Dim m As Integer Dim sht, sht1 As Worksheet '按照需要将分出来的表分成多个工作簿 n = InputBox(“请输入excel的
将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称
冰封 战戟
03-24 4754
将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称 用法：打开excel文档，按ALT+F11调出VB编辑器，点插入模块，粘贴代码，按F5运行即可。 Sub saveworkbook() '将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称 Dim sht As Worksheet '定义字符变量 Application.ScreenUpd...
VBA从工作表另存为工作簿
weixin_34280060的博客
08-13 5253
Sub 宏1() Application.ScreenUpdating = False '屏幕更新关闭 Application.DisplayAlerts = False '显示和预警提示关闭 Dim folder As String 'String字符串 folder = ThisWorkbook.Path & "\ 班级 " If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder 'vbDirectory文件夹
禁止Excel工作表更名(2/2)
神奇的BI
08-22 596
此方案同样适用于单个工作表和不切换工作表的场景，但是凡事都有利有弊，此方案中的Commandbar对象的事件代码将会被多次激活，例如：选中单元格、切换工作表等等操作都会激活该事件代码。第5~6行代码为工作表的Open事件，在工作簿打开之后将被执行，第6行代码实现CommandBar对象的实例化。修改工作表名称后，按回车键之后，系统事件被触发，恢复工作表名称，进而实现了禁止更名。第2~4行代码为CommandBard的更新事件，用于监测工作表的名称。第1行代码声明带事件接口的对象。操作效果如下图所示。
Excel VBA 将工作表按列拆分且生成新工作簿
zylfish的博客
01-31 2391
需求：已有一张总表，需要按业务员名字生成相应的工作簿，里面的工作表（sheet）命名为特定的名称。如果文件夹中已经有这个业务员工作簿且已经有同名工作表，则更新这个工作表；如果有这个业务员工作簿但没有同名工作表，则在里面新建一个工作表。1. 每一行都添加了注释，因为是帮同事写的，便于不懂任何代码的人理解。我自己也是小白，上面的代码是参考别人的代码改出来的，通过百度搜索想实现的功能，把好几段代码合在一起。2. 开头放了几个变量，用空行分隔开，方便根据表格修改。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值