等Excel工作簿关闭后自动加密压缩备份
;
; 等Excel工作簿关闭后自动加密压缩备份.ahk
;
; 腾讯QQ号 595076941
; 作者:boai
; 写作日期:2019年5月15日
; 版本号:第1版
; 手机号(中国移动) 138#####488
;
; 用法:
;
; 1、在Windows 7 专业版中安装WinRAR 5.7 简体中文版和WPS Office 2016 专业增强版。
; 2、在此脚本所在的文件夹新建一个与此脚本同名的Excel工作簿文件(*.xlsx)。
; 3、运行此脚本。
; 4、 经常编辑的文件,建议发送此脚本文件的快捷方式到电脑桌面。
; 5、为防止丢失源代码,建议把此AutoHotkey脚本源代码复制粘贴到以下两个文件中
; C:\Program Files\Kingsoft\WPS Office\10.8.2.6666\office6\mui\default\templates\newfile.wps
; C:\Program Files\Kingsoft\WPS Office\10.8.2.6666\office6\mui\default\templates\newfile.et
; 6、修改上面这两个文件的作者属性值 (快捷键<ALT> FII)。
;
#SingleInstance,force ;当此脚本已经运行时自动替换旧实例再次运行。
#Persistent ;让脚本持久运行(即直到用户关闭或遇到 ExitApp)。
#NoEnv ;不检查空变量是否为环境变量(建议所有新脚本使用)。
#WinActivateForce ;用强制的方法激活窗口。阻止任务栏按钮的闪烁.
;~ #NoTrayIcon ;不显示托盘图标。
;~ #Warn
SetWorkingDir,%A_ScriptDir% ;改变脚本的当前工作目录。
DetectHiddenWindows,On ;设置脚本可以“看见”隐藏的窗口。
SetTitleMatchMode,2 ;窗口标题匹配模式改成某个位置必须包含WinTitle。
SendMode Input
;
global FileName
global Now
Now=%A_Hour%%A_Min%%A_Sec%
StringLeft,FileName,A_ScriptName,StrLen(A_ScriptName)-4
IfNotExist,C:\Progra~1\WinRAR\WinRAR.EXE
{
MsgBox,Not Find WinRAR.exe
ExitApp
}
IfNotExist,%A_ScriptDir%\%FileName%.xlsx
{
MsgBox,Not Find %FileName%.xlsx
ExitApp
}
BackupFileFuction("D")
IfExist,C:\Progra~1\WinRAR\WinRAR.EXE
{
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
RunWait,%A_ScriptDir%\%FileName%.xlsx
}
}
;~ WinWaitActive,%FileName%
;~ WinWaitClose,%FileName%
BackupFileFuction("E")
BackupFileFuction("F")
BackupFileFuction("G")
BackupFileFuction("H")
BackupFileFuction("I")
BackupFileFuction("J")
BackupFileFuction("K")
BackupFileFuction("L")
BackupFileFuction("M")
BackupFileFuction("N")
BackupFileFuction("O")
BackupFileFuction("P")
BackupFileFuction("Q")
BackupFileFuction("R")
BackupFileFuction("S")
BackupFileFuction("T")
BackupFileFuction("U")
BackupFileFuction("V")
BackupFileFuction("W")
BackupFileFuction("X")
BackupFileFuction("Y")
BackupFileFuction("Z")
ExitApp
return
BackupFileFuction(DiskVolume)
{
FileCreateDir,%DiskVolume%:\06-全自动备份\%FileName%的备份
FormatTime,FileDay,A_Now,d
IfExist,C:\Progra~1\WinRAR\WinRAR.EXE
{
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
Run,"C:\Progra~1\WinRAR\WinRAR.EXE" A -cfg- -IBCK -INUL "%DiskVolume%:\06-全自动备份\%FileName%的备份\%FileName%的备份_%FileDay%_%Now%.rar" "%A_ScriptDir%\%FileName%.xlsx"
}
}
FileCopy,%A_ScriptFullPath%,%DiskVolume%:\06-全自动备份\%FileName%的备份\%A_ScriptName%,1
DeleteFileDay:=FileDay+1
IfEqual,FileDay,31
DeleteFileDay:=1
IfExist,%A_ScriptDir%\%FileName%.xlsx
{
FileDelete,%DiskVolume%:\06-全自动备份\%FileName%的备份\%FileName%的备份_%DeleteFileDay%_*.rar
}
}
; DriveGet,盘符清单,List
; loop,Parse,盘符清单
; --- 脚本到此行结束 --- 第1页 【共1页】
转载于:https://www.cnblogs.com/delphixx/p/10810759.html
等Excel工作簿关闭后自动加密压缩备份相关推荐
- 使用C#制作批量解锁和加密Excel工作簿的小程序
使用C#制作批量解锁和加密Excel工作簿的小程序 首先,创建一个Windows窗体应用程序 添加项目引用 然后,引入Excel的命名空间 using Excel = Microsoft.Office ...
- 共享EXCEL工作簿实现协同录入(转)
共享EXCEL工作簿实现协同录入(转) 在EXCEL2000中,我们可以设置工作簿的共享来加快数据的录入速度,而且在工作过程中还可以随时查看各自所做的改动.当多人一起在共享工作簿上工作时,Ex ...
- 如何在新的Excel工作簿中更改默认的工作表数
By default, new workbooks created in Excel contain one worksheet. If you typically use more than one ...
- vb怎样同时打开2个excel工作簿_【赠书】不打开工作簿也能批量合并不同文件夹下多个表格的数据...
最近推送的五篇文章: <偷懒的技术:打造财务Excel达人>到底有多畅销? <偷懒的技术2>推荐序:未来已来,你准备好了吗? 将"偷懒"进行到底,还在到处找 ...
- excel快速填充_Excel教程:24秒,提取excel工作簿中300张图片
微信扫码观看<财务人的Excel速成视频> 或许您在看本篇教程的时候,会很惊讶,会有疑问,Excel和压缩软件有啥关系,提取图片居然可以这样做!小雅用的是Excel2013版本,给大家分享 ...
- 如何设置Oracle工作表有提示,excel表格中自动数据提醒-excel工作表中如何自动跳出提醒框...
excel表格怎么设置到期日前自动提醒功能 菜单项〉工具>选项.在图中选择.在弹出的对话框中把"记忆式键入"前面的对勾去掉行了. 详见图示. 在Excel表格里面怎样设置&q ...
- 工作簿无法保存html,将Excel工作簿保存为交互式Web页面文件的方法
在完成Excel数据的处理后,用户可以将工作簿保存为Web页面文件,以便任何具有Web浏览器的用户都可以通过浏览器看到这些数据.下面介绍将Excel工作簿保存为交互式Web页面文件的具体操作方法. 1 ...
- Python 多excel工作簿 多sheet工作表合并
项目场景: 遇到需要多个excel工作簿.多sheet工作进行合并,但又不想买WPS会员和VBA,就可以借助python进行一个简单的程序编写从而解决. 问题描述 将以上三个工作簿,及其对应工作表表进 ...
- excel合并多个工作表_如何快速的合并多个 Excel 工作簿至一个工作簿中的工作表?...
作者:汪汪家的宝贝 链接:https://www.jianshu.com/p/c8ae6852f1da 前言 在日常工作过程中,我们有可能需要把多个Excel工作簿的内容汇总到一张Excel工作表中. ...
最新文章
- 从Excel中导入数据时,提示“未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序”的解决办法...
- css层叠上下文和层叠顺序
- Spring AOP编程-aspectJ注解开发(@Pointcut声明切点)
- IT 企业稿阿米巴 失败
- 旅行报告:JavaOne 2013 –重归荣耀
- 【Mac】sublime text3标题栏显示文件完整路径
- mysql安装前的系统准备工作(转)
- 怎么扩展磁盘_电脑怎么增加C盘空间 小白教你不花钱增加C盘空间
- 使用Builder模式创建复杂可选参数对象
- SQL Server中的功能和存储过程比较
- Linux 配置rdate时间服务器方法
- Restorator 导致win8或win8.1 打开程序提示不支持此接口的解决方法
- abaqus实例手册_《ABAQUS 6.14超级学习手册》——1.5 ABAQUS帮助文档-阿里云开发者社区...
- Java阶段三:基础项目—家庭记录收支程序
- 多选框的 全选 与 取消全选
- puts与fputs的区别
- 高博课程编程作业之计算小萝卜的坐标
- 树莓派3B+ 迅雷远程下载机
- 极简风格的演讲型幻灯片设计
- ISP—图像调试实习生(第二天)