西西软件园多重安全检测下载网站、值得信赖的软件下载站！
→ 轻松破解Microsoft excel 2007 密码保护图文教程
9.0 无限制版
类型：办公软件大小：2.9M语言：中文 评分：1.3
Microsoft发布Excel 2007时，引入了新的文件类型，即xlsx、xlsm、xltx，等等，称之为Open XML。因为这种新文件类型实质上是包含XML文件的包。如果将一个xlsx文件的扩展名修改为zip，那么能够看到组成该Excel文件的所有xml文档。
新的Open XML文件类型带来了许多好处。其主要的好处之一是可以通过操作组成文件的XML文档来简单地修改Excel 2007文件的内容和属性。
是的，当处理Open XML文件时，发现可以通过简单地编辑Excel文件里的xml文件，从而简单地移除工作表保护。
假设有一个工作簿，其工作表Sheet1被保护。现在，我希望取消该工作表的保护，但是不知道密码。怎么办呢？幸好这是Excel 2007，我们可以利用XML来移除工作表保护。
步骤1 首先备份工作簿，以防万一。
步骤2 修改工作簿文件的扩展名为zip。
步骤3 解压该文件。
步骤4 找到代表目标工作表的XML文件（在xl\worksheets文件夹中）。
步骤5 使用任一XML编辑器打开代表目标工作表的xml文档。
步骤6 找到“sheetProtection”标签并移除该标签所在的行。
步骤7 保存已编辑的XML文档，用其取代原Zip文件中相应的XML文档。
步骤8 将文件的扩展名修改回xlsx。
至此，工作表保护已解除。
在XML文件中看到的任何密码都不是真正的密码。
这种方法不能取消对整个工作簿的保护。
09-3002-0102-0101-2901-2901-2801-2701-2101-1501-13
阅读本文后您有什么感想? 已有23人给出评价!
名称大小下载查看: 9480|回复: 9
请教 如何获取当前活动的excel的文件名
阅读权限20
在线时间 小时
想请教下，我想获取当前的Excel的文件名， 是不带路径和后缀的文件名。&&就比如我打开了桌面上面的 一个叫 “a”的 excel文件。 我想获取的就是 a 这个值， 没有其他的东西。
阅读权限30
在线时间 小时
Sub text()
MsgBox ActiveWorkbook.Name
阅读权限95
在线时间 小时
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
阅读权限20
在线时间 小时
dajiahaoxinku12 发表于
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
为什么我执行以后弹出来的是personal。。。 哦，。对了 我的文件是以xlsm格式保存的。。。 是不是和这个有关？
阅读权限50
在线时间 小时
& & & & & & & &
本帖最后由 jbjbzjb 于
21:18 编辑
不接受本方案，内容删除。
阅读权限95
在线时间 小时
& & & & & & & &
kidkid1412 发表于
为什么我执行以后弹出来的是personal。。。 哦，。对了 我的文件是以xlsm格式保存的。。。 是不是和这个有 ...
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
阅读权限20
在线时间 小时
dajiahaoxinku12 发表于
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
额。。。我的意思是 我在你前面加了 msgbox 试了下。。。弹出来的文件名是personal。。。这是宏的名字啊。。 我要的是我的文件名。。。 而且我保存的不是xls格式， 是xlsm格式。。。是自带宏命令的excel。
这种情况下 如何提取文件名
阅读权限20
在线时间 小时
dajiahaoxinku12 发表于
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
搞定了 是activeworkbook.name 谢谢啦。。
阅读权限30
在线时间 小时
发错地方了，晕
阅读权限20
在线时间 小时
本帖最后由 zz1180 于
12:49 编辑
'获取当前活动的excel的文件名,不含路径和扩展名
Sub GetFileName()
& &Dim FileName, FileName1 &&& &
' 获取其他工作薄的名称，需要先使其活动&&工作薄名.Sheets(1).Activate
& &MsgBox ActiveWorkbook.Name& && && && && && && && & '含扩展名
& &MsgBox Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)& &&&'不含扩展名(4位扩展名，*.xls)
& &FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)&&
& &MsgBox Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)& &&&'不含扩展名(5位扩展名，*.xlsx或*.xlsm)
& &FileName1 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)&&
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 4065|回复: 1
xlsm vba密码破解
谁能告诉我Excel&&xlsm文件 vba密码破解方法？
我也有同样问题，没有破解
Powered by如何批量将xls类型文件 转换成xlsm文件 有500个文件要转换
阅读权限20
在线时间 小时
我的原始xls 文件里面还没有代码该如何使用您的代码 谢谢
开发工具 插入模块 然后粘贴代码
阅读权限20
在线时间 小时
本帖最后由 d 于
15:53 编辑
我的原始xls 文件里面还没有代码该如何使用您的代码 谢谢
看看 楼上的代码&&把要转换的文件放入相应的文件夹中
15:53 上传
点击文件名下载附件
38.94 KB, 下载次数: 37
阅读权限20
在线时间 小时
原帖见：http://club.excelhome.net/forum.php?mod=viewthread&tid=1292697&page=1#pid8760021
感谢大师的帮助 我已完成500个文件的转换 代码进行了稍稍的改动 就可以用了！然后关建新生成的文件经试用 解决了我之前碰到的 xlsm 工作簿中的工作表无法复制移动到 xls工作簿中去的问题 因为它们的表格大小不一样系统警告无法复制&&我看了下 行数和列数确实差很多！所以我才想到要到xls文件转成xlsm格式 ！
最后还是要多谢各位的出手相助！！谢谢 谢谢
Sub 批量转换工作簿()
& & '变量声明
& & Dim oPath& && &&&As String& &'原始文件路径
& & Dim oFName& && &As String& &'原始文件名
& & Dim dPath& && &&&As String& &'目标文件路径
& & Dim dFName& && &As String& &'目标文件名
& & '获取路径
& & oPath = ThisWorkbook.Path & &\原工作簿\&
& & dPath = ThisWorkbook.Path & &\转换结果\&
& & '打开工作簿时强制禁止宏
& & Application.AutomationSecurity = msoAutomationSecurityForceDisable
& & '禁用警告
& & Application.DisplayAlerts = False
& & '查找xls文件
& & oFName = Dir(oPath & &*.xls&)
& & '当文件被找到则不断循环
& & Do While oFName && &&
& && &&&'打开工作簿
& && &&&With Workbooks.Open(oPath & oFName)
& && && && &'判断工作簿是否含有VB工程
& && && && &If .HasVBProject Then
& && && && && & '若含有VB工程，则另存为启用宏的工作簿
& && && && && & dFName = oFName & &x&
& && && && && & .SaveAs dPath & dFName, xlOpenXMLWorkbook
& && && && &Else
& && && && && & '若不含有VB工程，则另存为一般工作簿
& && && && && & dFName = oFName & &m&
& && && && && & .SaveAs dPath & dFName, xlOpenXMLWorkbookMacroEnabled
& && && && &End If
& && && && &'关闭工作簿
& && && && &.Close False
& && &&&End With
& && &&&'查找下一个文件
& && &&&oFName = Dir
& & '恢复打开文件的宏安全性设置
& & Application.AutomationSecurity = msoAutomationSecurityByUI
& & '启用警告
& & Application.DisplayAlerts = True
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}