新增广告骚扰电话

近日收到骚扰电话和短信越发频繁,有必要曝光一下:

骚扰、诈骗、反人类号码:

952141

95201138

 

发表在 NPC任务 | 新增广告骚扰电话已关闭评论

人民日报评论:别做一只孤独的“旅行青蛙”

睡前聊一会,梦中有世界。大家好,我是党报评论君。一夜的等待,北京只染了一层薄薄的白。相较于大半个中国的飘雪,这座城市显得有些孤独。今天,我们就聊聊孤独。最近,英国政府为了解决超过十分之一国人的孤独感,专门任命了一名“孤独大臣”。翻看地图,英国作为欧洲大陆边缘的岛国,历史上曾奉行“光荣孤立政策”,没曾想现在国民孤独竟成困扰。

专设政府大臣来“终结孤独”,这是人类历史上的第一次,也预示着不能忽视侵袭而来的“孤独流”。

孤独,很长一段时间内,人们认为这是个体性的心理感受,但随着人群扩大、影响加深,孤独感开始与肥胖、抽烟一样,成为一项公共卫生课题。有人称之为“社会传染病”,孤独对人体健康的危害相当于每天抽15支烟。如何识别孤独?如何看待孤独?如何对抗孤独?这不仅是个人的事,也越来越成为大家的事,化解这场“心理危机”需要行动起来,不能也不必一个人战斗。

说到孤独,不免让人想起日本NHK摄制的纪录片《无缘社会》——没有朋友和社交,无社缘;家庭关系疏离,无血缘;与家乡隔离断绝,无地缘。独居老人缺少陪伴,空巢青年一人吃饭,忙碌的城市人奔走在工作与生活之间……就连儿童也不例外,2016年英国平均每天有11名儿童因为孤独而拨打求助热线。跨越各个年龄阶段,孤独成了当代生活的可悲现实。是我们与社会无缘,还是社会将我们抛下,需要审慎地从社会生长机制与个人发展路径中找寻答案。

谈到孤独,社交总是相伴随的话题。有人说,人们感到孤独的重要原因在于社交能力的蜕化。这种观点很容易被接受,毕竟不与他人交往,就很难建立起健康的社会联系,遇事时打开通讯录,自然找不到可以拨通的电话。更重要的是,互联网建立起的虚拟社交环境,让一个人隔着屏幕能得到情绪与心理的自洽,有时舒适,多数孤单。有心理学研究表明,孤独者并非没有辨认情绪等社交能力,而是不会施展。所以,立足社交来突破孤独者的心理防线,不是要让他们从零开始学习如何社交,而是想办法打消社交顾虑,唤醒已有的社交能力,才有利于结交朋友、走出孤独。

人在本质上是社会关系的总和,也是在社会生活中“被定义”的过程。也就是说,人需要在社会参与中定位自己。有学者曾总结美国人“独自打保龄球”的现象,他们发现美国人不愿意花时间与邻居喝咖啡聊天、去俱乐部从事集体活动,而是宁愿一个人在家看电视或独自打保龄球。社区生活衰落,公共参与降低,带来的是交往成本提高、社会资本流失,从这个意义上看,改变“独自打保龄球”的孤独,不妨从动员公共生活、繁荣社区生活开始。

换个角度看,如果说孤独是一种空虚,那么让自己充实起来,不用社交也可以消除孤独感。在日本,有一档很受欢迎的广播节目叫“听众的明信片”,让听众谈生活、谈感想,而出现最多的话题是身边的动植物和四季的变化。这或许也能为我们抵抗孤独提供镜鉴——用心体会周遭的事物,形成个人与世界的对话关系,这未尝不是一种陪伴。

这几天,一款名为“旅行青蛙”的游戏火了起来。游戏中的电子宠物青蛙,总是一个人在生活和旅行,有人对青蛙说,“没有小朋友跟你玩吗,不要这么自闭,多认识些朋友有好处”。佛系的玩家、孤独的青蛙,简单到没有互动的游戏,对于既想要独处又害怕孤独的现代人而言,或许也是一种治愈吧。

这正是:隐形自孤独,莫若寻知音。大家晚安。

人民日报评论 作者:李洪兴

发表在 NPC任务, 新闻 | 人民日报评论:别做一只孤独的“旅行青蛙”已关闭评论

转载:在淘宝买到一条假内存以后……

前情提要:先提醒各位,这是一篇长文,总之就是买到假货然后手段试着走各种流程试图维权的故事,以下是正文:2017年的双12,终于觉得OrangPi不太够用的我产生了组一台低性能X86 PC的想法。一番购物之后就是等待,等到最后一件配件——我在一个淘宝店买的内存到了之后,我发觉事情有些不对劲。

具体来说是这样的:

我买的这个内存叫做“三星4G DDR4 PC4 2400T 四代4GB台式机电脑内存条兼容2133”。

拿到实物以后,发现上面印的型号是:M471A5244BB0-CRC

于是我就搜了一下这个型号,发现这个型号是一个笔记本内存(SODIMM):

M471A5244BB0-CRC | SODIMM | Samsung Module | Semiconductor

但我手里拿到的实物确实是台式机内存呀?

好吧,经过一番并不复杂的思索,得出结论:我买到假货了。

第一回合:与店家交锋

这可能是我第一次在淘宝买到假的这么明目张胆的假货。

于是我就想,直接退货吗?听说淘宝宣传会惩罚售假商家,但我去质问商家他未必会承认。我从来没见过淘宝仲裁是什么样子,这个机会不如见识见识?

不过还是应该先跟卖家交流一下。于是我搜集了一下证据,路上又翻了翻卖家的店,发现店面底下贴了一个“100%正品,假一赔十”的条。我当时就乐了,店家这么自信的吗?我手里可是拿着你们家一个现成的假货啊。

准备好后开聊了,我觉得证据齐全,很有底气。

当然为了避免卖家对策性耍赖,我先装作小白的样子,问怎么没有防伪呀,是不是正品呀?

我准备向他强调“正品”两个字,让他直面“是否为正品,是或否”这样一个问题。

结果我还是太年轻,卖家过了两分钟回话了,第一句就把我镇住了:这不是三星制造的。

但卖家又说了,是三星内存,你用CPU-Z或者鲁大师能够查到。

可能他意识到了什么,说了一堆都是避重就轻,我有点不耐烦,准备直接放大招了。

但是还要先预热一下。于是我掏出店面的截图,问他假一赔十是不是认真的。店家说按国家规定赔付。

然后我就放了实锤证据,说你这个型号是笔记本内存啊,实物怎么是个台式内存呢。

后面我没抓住重点,没能把店家质问住,但这时候卖家可能也有点慌,胡乱解释说厂家贴错了,标签不符。

这时候我有点生气了,证据链这么完整远胜福尔摩斯小说,还死不承认。我直接提交给淘宝,尔等还不是直接被锤爆?

于是我冷冷一笑,自以为撂下一句狠话:淘宝仲裁吧!

转身离去。留下店家弱弱的说,七天无理由退货,五年包换哦亲。

第二回合:淘宝仲裁

于是我就准备后续的事情了。这时候我心想,淘宝口号喊得响,应该有一些对售假的处罚规定吧?

等他们知道了以后,会给商家什么样的处罚,又给买家什么样的补偿呢?应该有条文吧?

可能是我才疏学浅,社会经验不足,搜索水平不行,又想得太多了吧。总之并没有找到这样的规定。

那好吧,点订单那边的投诉商家,呃,交易进行中无法投诉,只能走退货流程(好像这里和天猫不一样,天猫交易进行中可以投诉)。

有两个选项:退货退款、仅退款。

退货退款店家直接同意了啊,我还仲裁个卵子,于是点“仅退款”,提交了照片、快递单、三星官网关于此型号内存的页面链接和截图,以及卖家的说辞。

不过似乎退款归退款,也没说什么关于假货惩罚的事情。那好吧,流程先走着。即使淘宝不做额外惩罚,那店家小亏个几百块也算是有所惩戒了。说起来店家叫“五元利润”,实际利润怕是直逼五十元哦。

然后就是等待。我看到卖家提交证据时候交了一个快递单,心中更是十分不屑:三星的授权必然是拿不出来的,一张快递单只能证明发货了,可我退款原因是假货,快递单又能证明得了什么?这要能是有效证据的话,我把这条子颗粒泡水喝了!

另外店家不是说CPU-Z能查到型号么,又说标签贴错了。于是我把内存插上查了一下,发现查出来的型号也是 M471A5244BB0-CRC。供货商可以“不小心”贴错标签,总不能“不小心”连ROM都刷错了吧?

此外这一阶段我又做了一些调查,之前只知道三星是目前顶级的内存厂商之一,此时才得知从DDR4起三星就已经不零售内存了……

于是我把后面的调查结果也一股脑的作为证据交了。

然后又是等待。

过了几天,结果出来了。

[客服判决, 执行方案:退货退款]

得到这个结果,我是非常意外的。可能是我太年轻,太森破,太缺少社会经验,不能理解淘宝的逻辑。可能这事情,淘宝作为中间人也很难办罢?久而久之的话,这样商户也不愿意来淘宝了啊。不如就接受了这个和稀泥的结果,你看还让卖家承担运费呢,你也不亏是不是??不要让淘宝难做罢?成熟一点,社会一点,嗯?

第三回合:12315,卖家信息披露

但是我拒绝!因此继续想办法吧。

不过作为一个普通用户,我能做的事情非常有限。在知乎一阵搜索之后,我得知可以在某个页面找淘宝客服。

具体记不太清了,好像是一个QA的界面,一开始是AI自动回复,你输入几次之后再输入转人工,就能找到真人客服了。

可是现在我的订单已经进入退货流程了呀?按照那位答主的说法,找到客服以后,持续骚扰一下可以申请小二重新介入,这样就又可以仲裁一次了。

如法炮制之后,客服真的帮我重新找了一名小二处理仲裁事宜。

我很高兴,看了看自己几次补充证据的退货申请单,觉得小二前后捋清可能不容易,写一个简述概括证据好了。

等我写完简述,发现仲裁居然已经结束了???我一脸懵逼,仔细一看整个处理流程,从开始处理,到处理完成,只经过了一秒钟??

看来淘宝是帮不了我了。

我又搜索了一阵大家遇到问题的解决办法,定了下一个方案,12315吧。下了一个“北京消费投诉”的APP,但我发现好像必须得指定一个公司或者商户才能进行投诉。但是店家的淘宝信息是支付宝认证的个人商户,发货地址是北京海淀区某小区。

不过抱着试一试的心态,我从APP里找出海淀工商局的电话,打过去问了一下,结果对方查了一下我提供的店名,说查无此店,不能帮我处理投诉。

而卖家的发货信息也不一定是真的,这样就陷入了死局。我仍不死心,这时候又从某处得到一个信息,可以向淘宝申请披露卖家真实信息。

于是我给客服打电话,发现果然可以,于是又等了两天,拿到了卖家的注册地址、身份证、真实姓名等。但看着这些信息又是一阵无奈,最关键的注册地址和发货地址一模一样,也就是海淀区某某小区某区,连个楼号都没有。可能卖家也学精了吧,我百度搜店家翻出来的陈年老帖里还能看到几年前这个卖家开的另一个店发货是带楼号的。当然啦,那个店也是卖内存的,现在店名已经搜不到了。

我也没什么办法,于是硬着头皮给北京工商局打电话,这次不是给分局而是总局。等了好一会之后接通,我问能否投诉淘宝商家,对方也只是不置可否,从我这要走了商家的店铺名、地址、订单号和电话,说后面会给我回复。

首都工商部门办事效率还是很高的,仅仅是第二天,海淀区工商职员就给我回电问询情况,我补充了一些经过。下午的时候他们又告诉我说他们去小区那边转了一圈,但由于没有招牌,另一个由于是民居即使有详细地址也无法进入,更何况没有。最后建议我在杭州12315投诉淘宝,并告诉我相关部门是余杭区市场监督管理局。通知我的小哥很通情达理也很客气。但是因为没有相关规定,他们也不能帮我做什么。

第四回合:投诉平台,三星客服

我发现现在有很多第三方的投诉平台,可以代为联系淘宝,我觉得这可能是个办法。毕竟我人微言轻的,说话不怎么好使。

提交了信息之后还是有点效果,因为淘宝又给我打电话了,他们告诉我:

1. 淘宝小二已经做出过处理,他们对这种情况经验丰富,相信他们的判决公正。

2. 我可以通过三种手段获取假货证明:1. 商家承认售假,2. 国家出具鉴定报告,3. 三星出具鉴定报告。

淘宝倒是把锅甩的一干二净,这三种手段都是有问题的:

1. 商家承认售假,商家是弱智吗??抵死不承认,我又有什么办法?

2. 根据查资料,且不说国家鉴定机构是否提供内存鉴定,国家出具鉴定报告并不负责检验品牌真伪,只检验性能。不适用于冒牌的情况。

3. 联系了三星的客服,他们对售卖内存条的事情一脸懵逼,再三问我是不是内存卡,并建议我:

1) 联系经销商协商处理

2) 为我提供了本地的三星维修站地址

3) 理论上三星授权的维修站无法出示鉴定报告,建议我具体再电话咨询本地维修站确认

经销商是售假商家,那么我只能联系本地三星维修站。

结果发现这样一件事情:他们都是修手机的。也不能开假冒鉴定报告。

第五回合:淘宝“全网举报”

淘宝有这样一个子域名:

jubao.taobao.com

专门举报假货的,于是我提交了相关证据。

过了几天,发现卖家把这个商品下架了。

同时得到这样一个结果。

未核实到假货。

第六回合:杭州12315

依照北京工商所说的,举报给余杭有关部门,于是我在 全国12315互联网平台 提交了一份投诉。

信息提交于新年第一天,至今还尚未有回复。

第七回合:再次与淘宝客服尬聊

后面不知道怎么回事又能申诉了,于是我又申诉一次。

还是熟悉的流程,淘宝客服给我打电话,经过大概20分钟的尬聊,客服重申了淘宝的立场,仍然是以上几点。

我也重申了我的立场,并说只能试着交给媒体啦。客服说他没权限,得等上面人再商量一下,6点前给我回电。

结果并没有回电,很快直接做了判决,仍然是熟悉的配方熟悉的味道。

第八回合

除了跑来发个帖,我基本上已经没法再做什么了。在这件事情上花费的时间成本,已经远远超出那一个内存条的价值,无论是其售价还是其实际的成本。

但通过这件事情,我发现了淘宝令人心寒的一面,这是我使用淘宝十多年都未能发现的一面。

我们平时只看到各种购物节惊人的销售额,堆积如山的快递,但也不曾想着光明下的阴影也如此之近。

商家的有恃无恐,淘宝的消极态度,都足够令人惊叹。

有人跟我科普,说这是回收的内存颗粒,山寨作坊里拼装出的条子,价格这么低你应该有逼数啦。

但不好意思,即使是造假,也请走心一点。你可以造假,我也可以按照法律法规提出我的正当要求,我们都生活在中华人民共和国的土地上,也当然要遵守这个国家的法律。

然而即使是出了逻辑错误的拙劣造假,淘宝的不作为态度也是一目了然的了。

我这冒牌内存条顶了天烧个金手指,那些真正受到假货伤害的人又应该找谁呢?淘宝可以吗?

下一回合

虽然事情还没解决,但是我仍然从此次事件中学到了不少。

基于这些经验,我想我可以写一篇文章,请诸位期待我的下一部力作:

《如何在淘宝无责公开售假,最高可月入X万》

届时请给五星好评哦亲。

PS 我知道有人以打假为生,不过我只是一个普通程序员:

fy0 (fy) github.com

木落 www.zhihu.com

PS2 图片、录音等齐全,可以求证。

PS3 没什么人气,求各位转发。

发表在 NPC任务, 新闻 | 标签为 | 转载:在淘宝买到一条假内存以后……已关闭评论

Excel文件导入数据时,外部数据库驱动程序中出现的意外错误

在单位SQL Server Program Client,近日突然出现无法导入正常的电子表格,经询问未发现其他异常操作,检查了一下系统日记18号系统自动更新了安全补丁,结合网上的评论和处置方法如下:

原因:
由于微软在2017-10-10更新了安全补丁(KB4041678,KB4041681),两个补丁的更新内容中,都包含有这个更新内容(Security updates to Microsoft Windows Search Component, Windows kernel-mode drivers, Microsoft Graphics Component, Internet Explorer, Windows kernel, Windows Wireless Networking,Microsoft JET Database Engine, and the Windows SMB Server.)。其中我们注意到,由更新了Microsoft JET Database Engine。
在补丁的下面有说此次更新会导致的问题(如下),由此我们可以知道,是这个补丁导致的问题。
Installing this update may cause applications based on theMicrosoft JET Database Engine (Microsoft Access 2007 and older or non-Microsoft applications) to fail whencreating or opening Microsoft Excel .xls files. The error message is, “Unexpected error from external database driver (1). (Microsoft JET Database Engine)”.
补丁后续说会及时更新这个问题。

解决方案:
1、应急解决方案是:在控制面板>程序>程序和功能>已安装更新中,找到对应的两个补丁,进行卸载。不同系统对应不同的补丁,具体可以参考:http://www.cnblogs.com/net-god/p/7661313.html
2、微软给出的标准解决方案是:下载新的驱动引擎(Microsoft Access Database Engine 2010 Redistributable),更改Provider=Microsoft.Jet.OLEDB.4.0为Provider=Microsoft.ACE.OLEDB.12.0。

参考:
1、Excel Microsoft.Jet.OLEDB.4.0 外部数据库驱动程序中的意外错误
2、导入表的时候提示“外部数据库驱动程序中的意外错误”解决方法
3、外部数据库驱动程序中的意外错误

发表在 新闻 | 标签为 , | Excel文件导入数据时,外部数据库驱动程序中出现的意外错误已关闭评论

华硕X555等笔记本电脑重装系统后无法启动的原因

原因是改变了硬盘分区类型,MBR分区请参考如下方法先更新电脑BIOS设置:1.开机的时候长按F2键进入BIOS界面通过方向键进【security】菜单通过方向键选择【SecureBoot Control】选项,将其设定 为Disabled。2.通过方向键进入【Boot】菜单,通过方向键选择【Launch

CSM】选项,将其设定为Enabled。3.点击F10保存设置,重启系统,开机时点击ESC选择启动项即可。

发表在 新闻 | 华硕X555等笔记本电脑重装系统后无法启动的原因已关闭评论

UPS不间断电源供电时间计算

这样计算:1、计算输入端所需功率。小型UPS效率为60%,所以输入功率为:1000W÷60%≈1667VA。

2、计算输入直流电流。接入采用4节12伏100ah电池,串联为48伏,则输入直流电流为:1667(VA)÷48(V)≈34.73A

3、计算供电时间。100(ah)÷34.73(A)≈2.88(小时)。

结果:采用2000VA UPS,连接四节12伏100ah电瓶,可供1000W电器工作约2.88小时。

发表在 NPC任务 | 标签为 | UPS不间断电源供电时间计算已关闭评论

电信移动诈骗电话的根源

目前,网络流行网购,包括淘宝,京东,天猫等,网络购物,app软件,电脑客户端,打着购物,网上理财,网上游戏,论坛,婚介旗帜,利用技术手段,私自收集用户信息,严重存在泄露用户数据及隐私的问题,在这些网购场所中出现非法贩卖个人信息的机构和个人,侵犯公民个人隐私权,建议国家工信部,工商总局,等个个部委,联合查处,这些机构和个人的行为,对各个网购平台,提出更高的技术要求,保障公民隐私权不受侵犯。

严厉打击各类电信诈骗电话。建立黑名单,网络诈骗兼推销电话有:02196833106504,0510-80244069,15695270295,0510-80242926,0373-6307423,021-60562647,17706919921,17185424221,021-23673429,17052713790,13016016305.

 

 

发表在 NPC任务, 广告, 新闻 | 电信移动诈骗电话的根源已关闭评论

Excel 让表格根据日期自动生成打印序号

 

在Excel中做一份表格,要求A1单元格的数值随打印次数自动叠加,如2009年11月13日打印要求打印显示为200911130**(*代表打印次数),日期改变则打印次数归零。请问怎么实现。

按ALT+F11
双击thisworkbook

粘贴下面的代码后即可实现你的目的:

——————————————————————————

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo E
x = Format(Date, “yyyymmdd”)
y = [a1].Value
If Left(y, 8) = x Then
[a1] = y + 1
Else
[a1] = x & “001”
End If
E: End Sub

——————————————————————————

PS:再次打开文件时要启用宏。

发表在 新闻 | Excel 让表格根据日期自动生成打印序号已关闭评论

新增电信诈骗号码

010-50804842北京(中奖类欺诈)

010-50804852

北京(内容同上)

+019665101

(假冒工商银行,诈骗语音电话)

发表在 新闻 | 新增电信诈骗号码已关闭评论

office2010撤销工作表格保护

您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?

您只要按照以下步骤操作,Excel工作表保护密码瞬间即破!
1、打开您需要破解保护密码的Excel文件;
2、依次点击菜单栏上的工具—宏—-录制新宏,输入宏名字如:aa;
3、停止录制(这样得到一个空宏);
4、依次点击菜单栏上的工具—宏—-宏,选aa,点编辑按钮;
5、删除窗口中的所有字符(只有几个),替换为下面的内容;
从横线下开始复制
——————————————————————————————
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 one Exit Sub (Version 1.1.1)
‘ Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
“Adapted from Bob McCormick base code by” & _
“Norman Harker and JE McGimpsey”
Const HEADER As String = “AllInternalPasswords User Message”
Const VERSION As String = DBLSPACE & “Version 1.1.1 2003-Apr-04”
Const REPBACK As String = DBLSPACE & “Please report failure ” & _
“to the microsoft.public.excel.programming newsgroup.”
Const ALLCLEAR As String = DBLSPACE & “The workbook should ” & _
“now be free of all password protection, so make sure you:” & _
DBLSPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _
DBLSPACE & “BACKUP!, BACKUP!!, BACKUP!!!” & _
DBLSPACE & “Also, remember that the password was ” & _
“put there for a reason. Don’t stuff up crucial formulas ” & _
“or data.” & DBLSPACE & “Access and use of some data ” & _
“may be an offense. If in doubt, don’t.”
Const MSGNOPWORDS1 As String = “There were no passwords on ” & _
“sheets, or workbook structure or windows.” & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = “There was no protection to ” & _
“workbook structure or windows.” & DBLSPACE & _
“Proceeding to unprotect sheets.” & AUTHORS & VERSION
Const MSGTAKETIME As String = “After pressing OK button this ” & _
“will take some time.” & DBLSPACE & “Amount of time ” & _
“depends on how many different passwords, the ” & _
“passwords, and your computer’s specification.” & DBLSPACE & _
“Just be patient! Make me a coffee!” & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = “You had a Worksheet ” & _
“Structure or Windows Password set.” & DBLSPACE & _
“The password found was: ” & DBLSPACE & “$$” & DBLSPACE & _
“Note it down for potential future use in other workbooks by ” & _
“the same person who set this password.” & DBLSPACE & _
“Now to check and clear other passwords.” & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = “You had a Worksheet ” & _
“password set.” & DBLSPACE & “The password found was: ” & _
DBLSPACE & “$$” & DBLSPACE & “Note it down for potential ” & _
“future use in other workbooks by same person who ” & _
“set this password.” & DBLSPACE & “Now to check and clear ” & _
“other passwords.” & AUTHORS & VERSION
Const MSGONLYONE As String = “Only structure / windows ” & _
“protected with the password that was just found.” & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do ‘dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
“$$”, PWord1), vbInformation, HEADER
Exit Do ‘Bypass all for…nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
‘Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
‘Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do ‘Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
“$$”, PWord1), vbInformation, HEADER
‘leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do ‘Bypass all for…nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
—————————————————————————————–
复制到横线以上
6、关闭编辑窗口;
7、依次点击菜单栏上的工具—宏—–宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):

发表在 NPC任务 | 标签为 , , , , | office2010撤销工作表格保护已关闭评论