办公技巧
月清晖
这个作者很懒,什么都没留下…
展开
-
excel文件占用空间大 xls xlsx等文件
是否经历过excel 文件看起来内容并不多,个头缺异常巨大,打开异常缓慢的情况? 看这里就对了!原创 2022-04-22 14:21:44 · 1497 阅读 · 0 评论 -
远程桌面连上就弹出屏幕键盘
远程桌面连上就弹出屏幕键盘win7控制面板\轻松访问\轻松访问中心\使用没有鼠标或键盘的计算机[HKEY_CURRENT_USER\Software\Microsoft\WindowsNT\CurrentVersion\Accessibility] "Configuration"="osk" "Configuration"="" 尝试过设置其它的,没用...原创 2022-01-20 13:42:57 · 627 阅读 · 0 评论 -
关于注册表、组策略、设置灰色联想
之前没有专门思考过这个问题,也没人说过,但是今天处理一个问题的时候似乎发现了规律HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\DesktopHKEY_CURRENT_USER\Control Panel\Desktop如这两处注册表,影响计算机自动锁定时间及恢复时是否输入密码。当HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control原创 2022-01-05 10:37:39 · 1178 阅读 · 0 评论 -
右键添加新建剪切板文件夹 新建今天日期文件夹
获取剪切板的vbs'获取剪切板的内容Dim Form, TextBoxSet Form = CreateObject("Forms.Form.1")Set TextBox = Form.Controls.Add("Forms.TextBox.1").ObjectTextBox.MultiLine = TrueIf TextBox.CanPaste Then TextBox.Paste WScript.Echo TextBox.TextEnd If调用vbs的b...原创 2021-12-30 14:01:11 · 572 阅读 · 0 评论 -
excel用VBA插入列号
有时候为了做数据透视,但是列很多,看起来眼花,不如插入列号来的方便比如第一列“序号”变成“A__序号”,27列变为AA开头,依次类推。Private Sub 插入列号()i = 1Do Until Cells(1, i) = ""Cells(1, i) = Fun_GetEngName(Cells(1, i).Column) & "__" & Cells(1, i)i = i + 1LoopEnd SubPublic Function Fun_GetEngName(原创 2021-12-22 16:14:10 · 1701 阅读 · 0 评论 -
关闭默认共享
cmd中输入 net share能看到一些共享由于我已经关了,就不放图了。restrictanonymous,ipc匿名链接,如果开匿名共享就0,1是禁止,0是允许restrictanonymoussam,匿名SAM枚举,直接1禁止AutoShareServer,默认盘符共享,如c$ d$等,0关闭AutoShareWks,默认admin$共享,0关闭。以下内容复制到reg文件里双击合并到注册表,允许匿名共享,关闭盘符和admin共享。注意,重启生效。Windows Reg原创 2021-11-27 11:12:58 · 1101 阅读 · 0 评论 -
关于excel密码 工作表密码 工作簿密码 工程密码
以下代码皆亲测可用代码1:可清除工作表、工作簿密码,并复制密码到剪切板代码2:绕过限制,把内容复制到新文件,相当于另存一份无工作簿保护代码3:可清除工作表密码,并复制密码到剪切板(不能清除工作簿保护及密码)代码4:清除工程密码还有专用工具。代码1:可清除工作表、工作簿密码,并复制密码到剪切板Public Sub 工作表保护密码破解()Const DBLSPACE As String = vbNewLine & vbNewLine原创 2021-10-29 16:06:46 · 341 阅读 · 0 评论 -
开机启动简易收集面板并最小化
本例中设置简易收集面板(easypanel)快捷键为ctrl+alt+q用vbs实现,代码如下:Set ws = CreateObject("Wscript.Shell") ws.run "EasyPanel.exe",0Wscript.sleep 300ws.SendKeys "^%q"原创 2021-09-30 09:25:13 · 202 阅读 · 0 评论 -
用批处理替换文件中的内容
注释应该很清楚了,复制到bat/cmd文件里,和要替换的文件放一起,运行即可@echo off & setlocal enabledelayedexpansion::要替换的文件名 1.txt,可按需改成其它set text1=1.txt::new_1.txt 临时文件,不用改动set text2=new_1.txt::需要被替换的字符串,注意字符串前后不加“”,支持空格set var1=123456::替换成什么内容,此处是批处理当前路径set var2=!cd!ech原创 2021-09-16 09:56:43 · 8044 阅读 · 0 评论 -
用vb打开word excel 文件,出现提示“发现不可读取的内容”
Private Function secgoppt(Optional a As String)Dim moPptApp As PowerPoint.ApplicationDim moPptPresentation As ObjectSet moPptApp = CreateObject("PowerPoint.Application")Set moPptPresentation = moPptApp.Presentations.Open(a, , , False) '打开ppt文件'p...原创 2021-09-10 14:42:05 · 942 阅读 · 0 评论 -
office选项-》高级-》显示 中, 显示此数目的“最近使用的文档” 为灰色,无法更改
问题1:office选项--》高级--》显示中, 显示此数目的“最近使用的文档” 为灰色,无法更改问题2:office中您的管理员已关闭最近工作簿列表。请选择一个打开工作簿的位置解决方案:1、Win+R,运行gpedit.msc → “用户配置” → “管理模板” → “开始菜单和任务栏” → 双击“不要保留最近打开文档的记录”,2、弹出“不要保留最近打开文档的记录 属性”对话框→勾选“已禁用” → “应用” → “确定",3、“退出时清除最近打开文档的记录 属性”对话框 → 勾...转载 2021-07-20 08:25:07 · 1981 阅读 · 0 评论 -
突发奇想,想用鼠标解锁电脑
可能运气比较好,两个软件都是下载就可用,功能调配使用刚刚好!DesktopLock鼠标解锁很傻瓜,但是有自动锁定,选项也很丰富,其中一项是锁定并打开程序,正好可以和9locker搭配使用9Locker九宫格解锁很好用,但是没有自动锁定功能设置密码后,要更改密码,就在锁定后点左上角输密码进...原创 2021-07-14 10:27:08 · 169 阅读 · 0 评论 -
已激活的windowns、office查看用的密钥
用produkey或者aida64等软件就可以查看安装KEY转载 2021-07-09 16:39:07 · 3630 阅读 · 0 评论 -
360极速浏览器 保存的密码 查看
打开360极速浏览器已经保存密码的网页,此时显示掩码按F12选中Elements按ctrf+f输入password,挨个下翻找到双击把password改成text并回车。此时密码显示为明文了。要看保存了哪些网站的账号密码:选项->个人资料->管理已保存的密码...原创 2021-06-24 16:19:36 · 11098 阅读 · 0 评论 -
Dim a As New DataObject提示“用户定义类型未定义”
这条引用找瞎眼都找不到,得浏览 打开,如图路径。一般默认是"C:\Windows\System32\FM20.DLL"原创 2021-06-23 15:26:50 · 2931 阅读 · 0 评论 -
整合了一下网上的内容,excel工作簿全部公式转换为值
注意:故意留了1~2处错误,稍懂的人一看便知Sub 公式转为数值() Dim rng As Range, c As Range Dim Sht As Worksheet For Each Sht In Worksheets With Sht Set rng = acticesheet.Range("A1").CurrentRegion For Each c In rng.Cells If c.HasFormula Then原创 2021-06-21 15:44:57 · 296 阅读 · 0 评论 -
word vba 打开弹出msgbox,每隔10秒刷新一次域值。
word vba 打开弹出msgbox,每隔10秒刷新一次域值。Option Explicit'Private WithEvents WdApp As Word.Application'Public WithEvents WdApp As Word.Application'以上声明为 Word对象 必须加关键字 WithEvents 这是前提1'事件代码必须在ThisDocument中,这是前提2Dim pTime As Date, aStory As RangeSub Runti原创 2021-05-15 00:11:21 · 773 阅读 · 0 评论 -
word vba 点击任意域代码,刷新整个文档的域代码值
Option ExplicitPrivate WithEvents WdApp As Word.Application'以上声明为 Word对象 必须加关键字 WithEvents 这是前提1'事件代码必须在ThisDocument中,这是前提2 Dim aStory As RangeSub myUpDate() Application.ScreenUpdating = False For Each aStory In ActiveDocument.StoryRan.原创 2021-05-15 00:05:24 · 1386 阅读 · 0 评论 -
windows快速关闭有效方法2则
windows快速关闭有效方法2则1.组策略+注册表2.通过shutdown -t 1 -s1.组策略+注册表组策略WIN+Rgpedit.msc计算机配置》管理模板》系统》关机选项》关闭会阻止或取消关机的应用程序的自动终止,设置为已禁用同时,注册表HKEY_CURRENT_USER\Control Panel\Desktop\AutoEndTasks,设置为1,有的电脑没有该键值,就增加个。2.通过计划任务,关机前执行shutdown -t 1 -s也能..原创 2021-05-14 08:31:58 · 341 阅读 · 0 评论 -
foxmail7 BUILD093之后再无Foxmail
foxmail7 BUILD093之后,7.2版本的Foxmail有多不好用,取决于相信Foxmail的群众伤的有多深。7.2版本各种神奇的bug,就连联系人都会错乱,完全不敢用,奇葩的是7.0、7.1、7.2的数据文件夹还不通用。foxmail7 BUILD093是最后一个好用的版本,之后,再无Foxmail。当然,7.093也有小bug:通讯簿,忘了当时通讯簿数据错误怎么弄回来的了,但记得一条经验反馈:一定要建一个文件夹,定期把联系人都移进去,根目录下尽量不留邮箱,不然通讯簿数据错误原创 2020-10-30 10:42:00 · 4188 阅读 · 0 评论 -
收集分享有用的注册表项
删除一些碍眼的邮件菜单Windows Registry Editor Version 5.00;按住shift点鼠标右键项目出现的“附到开始菜单”,删除[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\{a2a9545d-a0c2-42b4-9708-a0b2badd77c8}];还原以前的版本,文件上的[-HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\Pr原创 2020-09-23 17:27:17 · 741 阅读 · 0 评论 -
分享一下把pdftk的合并pdf功能添加到TC(Totalcommander)
pdftk.exe%P%S cat output %p\combined.pdf%commander_path%\Tools\C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe另附0分下载pdftk的下载地址(免安装的最新版2.02)常用pdftk命令供参考合并文件夹内所有pdf,输出combind.pdf@echo offpdftk %cd%\*.pdf cat output %cd%\co...原创 2020-09-23 17:10:25 · 707 阅读 · 3 评论