Excel工作表保护密码取消方法

因为工作需求经常会给Excel加密码保护，但时间长了会忘记以前的密码，重新做一边有太过于麻烦，所以还是直接暴力破解的比较好，网上也有很多相关工具，但是大多都不好用。想去掉Excel工作表密码的朋友可以按照下面的方法取消，非常简单方便。 操作步骤： 打开需要破解密码的Excel； Alt+F11，进入VBA编辑界面； 插入 -- 模块(Module)； 在右边Module的空白编辑区域，复制粘贴下面所有内容； F5，运行该VBA命令； Option Explicit Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate…

EXCEL批量插入图片

在工作中经常会遇到需要在EXCEL中根据信息内容插入图片，少量的时候还可以手动插入，当遇到大量需要添加图片的时候手工根本是无法完成的，这时候就需要用到EXCEL的宏命令来完成了。 使用要求 需要EXCEL和图片均在一个目录下。 需要图片为jpg格式（最好尺寸一致，方便排版）。 图片名称需要与插入单元格内的信息一致。（根据需要自行制定规则） 使用方法 打开EXCEL文件 按住Alt + F11打开Visual Basic。 在Visual Basic菜单中选“插入” -> “模块”。 复制代码区域代码到其中。 选中EXCEL中需要批量插入图片的单元格。 例如：单元格内容为1，这个地方将插入1.jpg的图片 在Visual Basic菜单中选“运行” -> “运行子过程/用户窗体”（快捷键F5） 批量插入图片代码 Sub 插入图片到单元格() On Error Resume Next Dim MR As Range For Each MR In Selection If Not IsEmpty(MR) Then MR.Select ML = MR.Left MT = MR.Top MW = MR.Width MH = MR.Height ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select Selection.ShapeRange.Fill.UserPicture _ ActiveWorkbook.Path & "\" &…