<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0">
<channel>
<title><![CDATA[甲方乙方]]></title>
<link>http://www.liyunfeng.cn/t/</link>
<description><![CDATA[入门级Coder，半调子网管的不完全记录！]]></description>
<language>zh-cn</language>
<copyright><![CDATA[Copyright 2005 PBlog3 v2.8]]></copyright>
<webMaster><![CDATA[lyf_128@163.com(越野苍狼)]]></webMaster>
<generator>PBlog2 v2.4</generator> 
<image>
	<title>甲方乙方</title>
	<url>http://www.liyunfeng.cn/t/images/logos.gif</url>
	<link>http://www.liyunfeng.cn/t/</link>
	<description>甲方乙方</description>
</image>

			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=42</link>
			<title><![CDATA[MSN应用程序异常的官方解决方案]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[网络]]></category>
			<pubDate>Fri,05 Feb 2010 10:08:39 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=42</guid>
		<description><![CDATA[昨天写了篇“<a target="_blank" href="http://www.liyunfeng.cn/T/article.asp?id=40" rel="external">MSN应用程序错误</a>（0xC00000d）”，当时并指出了是由MSN保护盾引起的，卸载即可，后续没有再继续深究。<br/><br/>今天登录MSN，邮箱提醒有一封邮件，虽然向来不用MSN邮箱进行工作等相关沟通，但有邮件的时候还是要去瞄一眼。这次是微软MSN客服发来的邮件，指出了昨天MSN错误的问题，并提供了修复工具。<br/><br/>详细细节请参考：<a target="_blank" href="http://help.msn.cn/kb/kb110038.html" rel="external">应用程序发生异常unknown software exception(0xC00000d)</a>。<br/><br/>PS：一早发现博客今天的浏览量出奇的高，上统计后台一看，天哪，99%的关键字都是来自于昨天的MSN错误。看样子要提高博客访问量也很简单，多写一些故障的解决方案即可。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=41</link>
			<title><![CDATA[无法创建控件，因为它未经正确授权]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[灵异]]></category>
			<pubDate>Thu,04 Feb 2010 15:11:44 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=41</guid>
		<description><![CDATA[前几天才彻底搞定“<a target="_blank" href="http://www.liyunfeng.cn/T/article.asp?id=7" rel="external">对于指定的操作，该主题不受信任</a>”的问题，今天又遇到一件烦心事——“无法创建控件，因为它未经正确授权”，见下图。<br/><img src="http://www.liyunfeng.cn/t/download.asp?id=22" border="0" alt=""/><br/><br/>依旧拿出法宝——Google，不想这次却彻底没戏，有同样问题的人不少，唯独在ExcelHome看到有人发贴并宣称最后解决了问题，其说法是因为某一补丁的问题，但具体的是哪一个补丁，楼主并未说明，而从我最终的解决结果来看，发贴人说的“补丁”问题也是不存在的了。<br/><br/>其实提示当中已经有些眉目了，就是控件的授权问题（我这里用的是Mscomm32.ocx控件），想到前几日更新VB6 SP6的累积更新，怀疑这里面有点问题。<br/><br/>再根据一些搜索结果中的信息提炼，将重点目标转移到控件的授权问题上（好吧，我承认我的VB6是破解版）。网上看到说安装某个版本的VS时，安装光盘里有个注册表文件，而我现在没有，这条路又不通。网上也给出了全文本的注册表授权信息，直接拷贝、粘贴、重命名、导入即可。由于向来对注册表还是比较爱护，所以没有随便导入。<br/><br/>因为我自己的工作用电脑是没有任何问题的，也就是说我工作用的电脑中是有COM控件的授权注册信息的。运行Regedit，依次定位到HKEY_CLASSES_ROOT\Licenses，该项下有众多的授权信息（多少与安装的控件数量应该有关），单独试了几个，均不成。为了节约时间，将该子键直接导出，然后在另一台出问题的电脑上导入，再次拖拽控件，已经OK了。问题终于解决。<br/><br/>这里附上我的工作机器上的Licenses子键的<span id="down_ohdd9vd32y"></span><script language="javascript" type="text/javascript">doAjax('?action=Antidown&id=23&downurl=download%2Easp%3Fid%3D23&main=%E6%B3%A8%E5%86%8C%E8%A1%A8%E6%96%87%E4%BB%B6%E4%B8%8B%E8%BD%BD','down_ohdd9vd32y');</script>，没时间的直接导入应该就可以使用了。有时间的，不想注册表臃肿的，可以一个一个尝试。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=40</link>
			<title><![CDATA[MSN应用程序错误（0xc000000d）]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[软件]]></category>
			<pubDate>Thu,04 Feb 2010 08:34:24 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=40</guid>
		<description><![CDATA[一大早到单位上MSN，MSN就出现应用程序错误了，见下图。<br/><img src="http://www.liyunfeng.cn/t/download.asp?id=21" border="0" alt=""/><br/>试了多次均不行，昨天使用一切正常。<br/><br/>抛开MSN本身，我用了MSNShell和MSN保护盾2.0版本，前段时间装的。<br/><br/>由于MSNShell使用有几个年头了，都未遇见过这种情况，所以先尝试卸载MSN保护盾，问题果然后解决，卸载后弹出的页面中看到，保护盾已经升级到2.1版了，难道保护盾不升级MSN也会崩溃？<br/><br/>暂时问题算是解决了，也没时间去研究个究竟，很奇怪的事。保护盾是来保护MSN的，竟然把它给搞崩溃了。囧。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=39</link>
			<title><![CDATA[关于KB960715造成的影响及解决方案]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[VBA]]></category>
			<pubDate>Sun,31 Jan 2010 11:37:50 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=39</guid>
		<description><![CDATA[去年的时候写了一篇“<a target="_blank" href="http://www.liyunfeng.cn/T/article.asp?id=7" rel="external">对于指定的操作，该主题不受信任</a>”，是关于<a target="_blank" href="http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&amp;FamilyID=18521f44-2861-4a3d-9605-3a9155a737a7" rel="external">KB960715</a>的问题。当时因为没有找到更好的解决方案，所以就通过卸载KB960715补丁的办法进行解决。<br/><br/>但通过卸载补丁的方法解决问题终究是不可靠的，因为系统在下次更新补丁后，问题就会重现，如果屏蔽该补丁又会存在漏洞，所以终究很纠结。在微软网站乱逛，无意看到新的更新，其实也不算新了，微软很早就发布了。<br/><br/>首先附一下微软是如何封堵漏洞的：<a href="http://support.microsoft.com/default.aspx?scid=kb" target="_blank" rel="external">http://support.microsoft.com/default.aspx?scid=kb</a>;EN-US;240797。<br/><br/>至于KB960715所造成的影响，参见上次的“<a target="_blank" href="http://www.liyunfeng.cn/T/article.asp?id=7" rel="external">对于指定的操作，该主题不受信任</a>”，当然里面提到的受影响的控件可能不太完全，反正遇到类似的提示，基本上就是由于这个问题引起的了，可参考下面的方法解决。<br/><br/>以下简单说一下解决KB960715造成的问题的解决办法。<br/>对于VB6用户而言：<br/>1.VB SP6相信大家都安装的，这里不再提供下载链接了，实在没有就去Google吧。<br/>2.下载并安装VB6 SP6的累积更新<a target="_blank" href="http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&amp;FamilyID=cb824e35-0403-45c4-9e41-459f0eb89e36" rel="external">KB957924</a>。<br/>3.将控件重新拖拽一次，然后重新编译发布。<br/><br/>对于VBA用户而言，因为没装VB，所以VB6的累积更新也无法安装。<br/>1.由于我只用到了MSCOMCT2.OCX、Mscomm32.OCX这两个受影响的控件，所以这里附下更新后的这两个控件的<span id="down_opulwsj43o"></span><script language="javascript" type="text/javascript">doAjax('?action=Antidown&id=20&downurl=download%2Easp%3Fid%3D20&main=%E4%B8%8B%E8%BD%BD','down_opulwsj43o');</script>。<br/>2.重新拖拽控件。<br/><br/>最后需要注意在客户端也要将这两个控件更新，VB的基本上没什么大问题，VBA的要将这两个控件复制到客户端的C:\windows\system32路径下，并用Regsvr32进行注册。<br/><br/>VB6 SP6的累积更新说明可参考<a href="http://support.microsoft.com/?kbid=957924" target="_blank" rel="external">http://support.microsoft.com/?kbid=957924</a>。<br/><br/>KB960715的安全通报：<a href="http://www.microsoft.com/china/technet/security/advisory/960715.mspx" target="_blank" rel="external">http://www.microsoft.com/china/technet/security/advisory/960715.mspx</a>。<br/><br/>通过统计信息，看到很多人都是因为KB960715找到这里，所以这里特意更新一下，这个算是截止目前为止的较佳解决方案了。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=37</link>
			<title><![CDATA[百度搜霸，比尔大叔喊你回家去吃饭]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[网络]]></category>
			<pubDate>Tue,29 Dec 2009 08:56:42 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=37</guid>
		<description><![CDATA[一直很讨厌百度搜霸以及百度工具条一类的流氓软件。不过现在好了，百度搜霸的死期已经不远了，在Windows 7和Windows 2008 R2内置的Windows Defender已经可以扫描出这个恶毒的东东了，并且将警报级别列为了“高”。<br/><img src="http://www.liyunfeng.cn/t/download.asp?id=19" border="0" alt=""/><br/><br/>一直不明白为什么总有那些个国际化的大企业，不好好做产品，偏要通过这种流氓的行径来推广并不受欢迎的产品。以前的雅虎助手就是一例，而这些流氓产品推广的最终结果也是以摧毁品牌可信度为代价的，雅虎中国就是最好的代表。即便现在被马云收入囊中，但也一直未曾走出流氓的阴影。<br/><br/>百度搜霸，比尔大叔喊你回家去吃饭。<br/>李彦宏，好好做产品吧！]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=36</link>
			<title><![CDATA[未雨绸缪，雨过天晴铸就“雨安全”]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[推广]]></category>
			<pubDate>Mon,21 Dec 2009 12:45:52 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=36</guid>
		<description><![CDATA[&nbsp;&nbsp;&nbsp;&nbsp;转眼之间2009就要向我们挥别衣袖，即将迎来的是崭新的2010，在这辞旧迎新之际，各大杀毒软件厂商也陆续推出了杀毒软件的2010版本。同以往一样，每次新的重大版本的推出必定又伴随着众多的技术革新。而目前展现在我们面前最多的安全词汇大概就属“云安全”了。其实“云安全”应该算是技术发展的必然产物，因为随着网络技术的发展，宽带的普及，在普通大众都连入互联网的时候，“云安全”便发挥了一定的作用，解决了传统杀毒软件的众多弊端，并且针对病毒、木马的响应时间也大幅提升。<br/>&nbsp;&nbsp;&nbsp;&nbsp;但道高一尺魔高一丈，尽管杀毒软件的技术不断提升，尽管现在的“云安全”带来了很多好处，但有些病毒感染后将阻断本机与互联网的连接，这时就算是“云安全”也无济于事了，因为本机已经无法与“云”连接了。针对这一问题笔者就是切身体会，因为最近一次的病毒感染，让我不得不重新安装了系统，尽管我使用的是基于“云安全”技术的杀毒软件，但仍然未能幸免于病毒的围攻。<br/>&nbsp;&nbsp;&nbsp;&nbsp;在经历这一事件之后，我又不得不再一次思考传统安全问题，如何保障系统在感染病毒后快速恢复呢？Ghost虽然是一个非常不错的选择，但对于现在的Windows 7类的操作系统来说，动辄就是几十GB的空间，Ghost的性能明显有点过时了，毕竟Ghost是十多年前的技术了，在灵活上显得有所欠缺。经朋友推荐，试用了一下“雨过天晴”这款软件，感觉非常不错。<br/><strong>软件小档案</strong><br/>软件名称：雨过天晴电脑保护系统<br/>软件大小：16.6M<br/>软件语言：简体中文<br/>更新日期：2009-12-16<br/>运行环境：98/Me/2000/XP/XP64/Vista/Vista64/Win7 32/Win7 64(不含服务器)<br/>官网地址：<a href="http://www.njanyue.com/" target="_blank" rel="external">http://www.njanyue.com/</a><br/><strong>一、出于蓝而胜于蓝，雨过天晴成就极速恢复</strong><br/>&nbsp;&nbsp;&nbsp;&nbsp;相信对于系统安全、备份、恢复等问题一直苦恼的人不在少数，并且在使用了众多的所谓的系统备份、恢复软件之后，最终的感受还是Windows自带的系统还原和Ghost两者最好用，效果最好。但这两者的弊端也是很明显的。Windows系统还原灵活，可以自定义创建还原点，自定义恢复，但一旦系统崩溃则无力回天。而Ghost虽然可以完整的恢复，但恢复时间长，恢复时间点固定，不灵活又让人头痛。<br/>&nbsp;&nbsp;&nbsp;&nbsp;在使用雨过天晴之后，笔者的感受就是雨过天晴简直就是Windows系统还原和Ghost的完美结合体，并且比这两者结合更加完美。在继承了这两者的优点的同时，还拥有众多的出彩处，当然最令人向往的就是其极速恢复功能了。<br/>&nbsp;&nbsp;&nbsp;&nbsp;由于软件的安装非常简单，如果是单系统用户一直下一步就可以了，双系统用户在安装的模式上注意选择一下即可，这里不再多说。安装完成后，在桌面上会有雨过天晴的快捷方式，双击之后会打开雨过天晴的简易界面，在这里可以轻松的创建还原点、对系统进行恢复。<br/><img src="http://www.liyunfeng.cn/ygtq/001.jpg" border="0" alt=""/><br/>图 1 雨过天晴简易界面<br/>&nbsp;&nbsp;&nbsp;&nbsp;雨过天晴在安装的时候会自动为系统创建一个还原点，为了保障系统安全，建议在安装完成后再创建一个还原点。在简易界面中单击“创建进度”按钮进入创建进度界面，在创建进度界面中输入一个进度名称，单击“创建进度”按钮，大概几秒钟之后，进度即创建完毕。相比起Windows的系统还原来说快多了。<br/>&nbsp;&nbsp;&nbsp;&nbsp;如果系统出现故障了需要恢复怎么办呢？单击“闪电恢复”按钮即可进入闪电恢复界面，在闪电恢复界面中选中一个还原进度，单击“闪电恢复”按钮，稍等电脑重启之后即可完成恢复。<br/><img src="http://www.liyunfeng.cn/ygtq/002.jpg" border="0" alt=""/><br/>图 2 闪电恢复进度选择界面<br/>&nbsp;&nbsp;&nbsp;&nbsp;如果说雨过天晴只是这种在系统下进行还原点的创建和还原的话，那你就太小看雨过天晴的本事了。这个可以说是最基本的功能，如果系统崩溃了怎么办呢？雨过天晴同样有办法解决，在开机时，出现雨过天晴的画面时，按下Home键即可进入雨过天晴界面。<br/><img src="http://www.liyunfeng.cn/ygtq/003.jpg" border="0" alt=""/><br/>图 3 开机时进入的雨过天晴界面<br/>&nbsp;&nbsp;&nbsp;&nbsp;在这里可以选择是要恢复系统还是创建进度，选择“恢复系统”后会弹出进度选择对话框，选择一个需要还原的进度，单击“下一步”按钮即可完成系统恢复。<br/><img src="http://www.liyunfeng.cn/ygtq/004.jpg" border="0" alt=""/><br/>图 4 进度选择<br/><strong>小提示：</strong><br/>&nbsp;&nbsp;&nbsp;&nbsp;在某些笔记本上无Home键或者Home键不响应的情况下，雨过天晴很人性化的设计了多个响应键，可以按F10或End键均可进入雨过天晴的界面。<br/><strong>二、文件轻松恢复，畅享“雨安全”</strong><br/>&nbsp;&nbsp;&nbsp;&nbsp;电脑中最重要的是什么？文件！因为一台电脑可能几千块钱就可以买到，但一些重要的数据文件可能远不止这个价值。笔者这次使用的雨过天晴最新版又推出了文件恢复功能，实用且使用也非常简单。<br/>&nbsp;&nbsp;&nbsp;&nbsp;在雨过天晴的简易界面中单击“文件共享”按钮即可自动调用浏览器并进入网络硬盘界面，首次使用时会提示安装控件，请选择安装。控件安装完成以后就可以使用网络硬盘了。在网络硬盘界面中可以批量上传也可以单个文件上传，如果有多个文件需要上传，建议将其保存到某一个文件夹中，这样在网络硬件界面中单击“高速批量上传”按钮，在打开的对话框中可以直接选择一个文件夹，确定之后便会将速度文件夹中的文件上传到网络硬盘中。<br/><img src="http://www.liyunfeng.cn/ygtq/005.jpg" border="0" alt=""/><br/>图 5 文件批量上传界面<br/>&nbsp;&nbsp;&nbsp;&nbsp;文件上传到网络硬盘中后，不仅仅可以在本机快速下载，还可以通过共享地址与他人共享，这一点非常方便。并且通过雨过天晴软件使用时是无缝集成的，不需要像一些网络硬盘那样需要输入用户名和密码才能使用。雨过天晴本身实现了自动登录。<br/>&nbsp;&nbsp;&nbsp;&nbsp;有了“文件共享”功能，一些重要文件就可以放到网上保存了，即使是病毒将文件删除了也能轻松恢复。<br/>有了雨过天晴的极速恢复、系统崩溃恢复以及文件共享功能，可以说在这个病毒、木马横行的年代里，我们的电脑仍然可以高枕无忧。当杀毒软件的“云安全”不是那么可靠的时候，不妨试试雨过天晴的“雨安全”。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=34</link>
			<title><![CDATA[让Xtreme找回丢失的HighID]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[网络]]></category>
			<pubDate>Thu,17 Dec 2009 21:46:47 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=34</guid>
		<description><![CDATA[自从VeryCD坚定了EasyMule后，我就转到了Xtreme的怀抱。<br/><br/>用的Windows Server 2008 R2，一开始还担心Xtreme的64位系统兼容性问题，不想完全不存在，轻松搞定运行，路由器上开了UPnP，未做任何设置便能获得HighID。<br/><br/>用了段日子，最近Xtreme无缘无故就变成了LowID了，基本上是属于长期LowID，偶尔一两次HighID。刚好最近又出现了BT事件，再加上前段日子VeryCD停了一天，还以为eMule服务器有问题了。<br/><br/>时间久了，LowID的速度确实够让人伤心，还是想办法要解决一下。虽然UPnP映射成功了，但在测试端口时却不通。<br/><br/>在检查各方都没有问题后，进到了R2的防火墙，发现Xtreme竟然不在其中，首先直接把防火墙禁用了，再开Xtreme，速度超快，一会就连上了服务器，并且还是HighID。开启防火墙又变成了LowID。<br/><br/>问题找到了，于是在防火墙中手动添加了Xtreme主程序，再次运行HighID又回来了，速度当然也就跟上了。<br/><br/>不过到现在还搞不明白的是，为什么之前一直是HighID的。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=33</link>
			<title><![CDATA[在Windows Server 2008 R2上安装Nero9]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[软件]]></category>
			<pubDate>Sat,05 Dec 2009 22:46:52 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=33</guid>
		<description><![CDATA[因为有个朋友电脑要重装系统，我就索性给他刻张盘，以后让他自己弄。<br/>才发现装了2008R2后一直没装刻录软件，Nero也是抵挡不住破解的攻势，终于给我们发布了免费的Lite版本，于是上官网下载了最新的Nero9Lite版。<br/>不过在安装的时候却出了一些麻烦，怎么装都装不上，用虚拟机测了，在Windows 7上安装一切正常。<br/>经过多次测试后，发现使用Windows 2003 SP1的兼容性模式可以成功安装。<br/>右键单击Nero9的安装程序，选择兼容性，把模式选择为Windows 2003 SP1就OK了。当然不排除其他某个模式也可以，在测的时候有几个模式没过去，试到2003 SP1就OK了。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=32</link>
			<title><![CDATA[EXCEL文档保护]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[VBA]]></category>
			<pubDate>Wed,02 Dec 2009 14:34:43 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=32</guid>
		<description><![CDATA[印象中应该是去年了还是上半年的事情，现在记忆力真的差了。当时是给<a target="_blank" href="http://www.cfan.com.cn" rel="external">CFAN</a>写的一篇回音壁的稿子，是关于EXCEL文档保护的，当时用的啥代码已经忘记了，本想回去查以前的稿子，结果稿子也是半天没找到。<br/>不过找不到也好，可以重新思考这个问题，而不用站在以前的圈子里。虽然日常用VBA不是很多，不过这次再思考这一问题的时候感觉比当时要成熟多了，也因此，个人觉得这次的代码应该是比当时写的代码要简洁、易懂，并且效率也更高了。代码都加了详细的注释，不再一一说明了。<br/><div class="UBBPanel codePanel"><div class="UBBTitle"><a onClick="copycode(code40511);" style="float:right;cursor: pointer;font-weight: normal; font-style: normal">复制内容到剪贴板</a><img src="http://www.liyunfeng.cn/t/images/code.gif" style="margin:0px 2px -3px 0px;" alt="程序代码"/> 程序代码</div><div class="UBBContent" id=code40511><br/>Private Sub Workbook_BeforePrint(Cancel As Boolean)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽打印功能<br/>&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &#34;该文档禁止打印！&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;Cancel = True<br/>End Sub<br/><br/>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽另存为功能<br/>&nbsp;&nbsp;&nbsp;&nbsp;If SaveAsUI = True Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &#34;该文档禁止另存！&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cancel = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>End Sub<br/><br/>Private Sub Workbook_Open()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;程序运行屏蔽相关功能<br/>&nbsp;&nbsp;&nbsp;&nbsp;With Application<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽菜单中的另存为、打印、打印预览<br/>&nbsp;&nbsp; .CommandBars(1).Controls(&#34;文件(&amp;F)&#34;).Controls(&#34;另存为(&amp;A)...&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;文件(&amp;F)&#34;).Controls(&#34;打印(&amp;P)...&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;文件(&amp;F)&#34;).Controls(&#34;打印预览(&amp;V)&#34;).Enabled = False<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽常用工具栏剪切、复制、粘贴<br/>&nbsp;&nbsp; .CommandBars(3).Controls(&#34;剪切(&amp;T)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(3).Controls(&#34;复制(&amp;C)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(3).Controls(&#34;粘贴(&amp;P)&#34;).Enabled = False<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽单元格右键菜单中的剪切、复制、粘贴命令<br/>&nbsp;&nbsp; .CommandBars(&#34;Cell&#34;).Controls(&#34;剪切(&amp;T)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;Cell&#34;).Controls(&#34;复制(&amp;C)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;Cell&#34;).Controls(&#34;粘贴(&amp;P)&#34;).Enabled = False<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽编辑菜单中的剪切、复制、粘贴命令<br/>&nbsp;&nbsp; .CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;剪切(&amp;T)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;复制(&amp;C)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;粘贴(&amp;P)&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;移动或复制工作表(&amp;M)...&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽工作表标签右键及工具栏右键<br/>&nbsp;&nbsp; .CommandBars(&#34;PLY&#34;).Enabled = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;Toolbar list&#34;).Enabled = False<br/>&#39;&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;CELL&#34;).Enabled = False<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽键盘剪切、复制、粘贴键<br/>&nbsp;&nbsp; .OnKey &#34;^x&#34;, &#34;&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;.OnKey &#34;^c&#34;, &#34;&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;.OnKey &#34;^v&#34;, &#34;&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;屏蔽拖拽复制<br/>&nbsp;&nbsp; .CutCopyMode = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CellDragAndDro&#112; = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;End With<br/><br/>End Sub<br/><br/>Private Sub Workbook_BeforeClose(Cancel As Boolean)<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;程序退出还原被屏蔽功能<br/>&nbsp;&nbsp;&nbsp;&nbsp;With Application<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;还原菜单中的另存为、打印、打印预览<br/>&nbsp;&nbsp; .CommandBars(1).Controls(&#34;文件(&amp;F)&#34;).Controls(&#34;另存为(&amp;A)...&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;文件(&amp;F)&#34;).Controls(&#34;打印(&amp;P)...&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;文件(&amp;F)&#34;).Controls(&#34;打印预览(&amp;V)&#34;).Enabled = True<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;还原常用工具栏剪切、复制、粘贴<br/>&nbsp;&nbsp; .CommandBars(3).Controls(&#34;剪切(&amp;T)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(3).Controls(&#34;复制(&amp;C)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(3).Controls(&#34;粘贴(&amp;P)&#34;).Enabled = True<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;还原单元格右键菜单中的剪切、复制、粘贴命令<br/>&nbsp;&nbsp; .CommandBars(&#34;Cell&#34;).Controls(&#34;剪切(&amp;T)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;Cell&#34;).Controls(&#34;复制(&amp;C)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;Cell&#34;).Controls(&#34;粘贴(&amp;P)&#34;).Enabled = True<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;还原编辑菜单中的剪切、复制、粘贴命令<br/>&nbsp;&nbsp; .CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;剪切(&amp;T)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;复制(&amp;C)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;粘贴(&amp;P)&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(1).Controls(&#34;编辑(&amp;E)&#34;).Controls(&#34;移动或复制工作表(&amp;M)...&#34;).Enabled = True<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;恢复工作表标签右键及工具栏右键<br/>&nbsp;&nbsp; .CommandBars(&#34;PLY&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CommandBars(&#34;Toolbar list&#34;).Enabled = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;.CommandBars(&#34;CELL&#34;).Enabled = True<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;还原键盘剪切、复制、粘贴键<br/>&nbsp;&nbsp; .OnKey &#34;^x&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;.OnKey &#34;^c&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;.OnKey &#34;^v&#34;<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&#39;还原拖拽复制<br/>&nbsp;&nbsp; .CutCopyMode = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;.CellDragAndDro&#112; = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;End With<br/>End Sub<br/></div></div><br/><br/>以上代码放到ThisWorkbook中就OK了。不过随之而来的是一个新的问题，如果用户将宏的安全性设置为高甚至中，屏蔽VBA代码的执行那么所有的防护措施将都起不了作用。<br/><br/>后来上ExcelHome找到了更好的解决办法，EXCEL无法屏蔽4.0版的宏，因此可以迂回一下，如果用户屏蔽VBA代码的执行，那么文档自动退出，具体做法如下。<br/>在文档中按下CTRL+F11快捷键插入一个宏工作表，默认工作表名为“Macro1”，在该表中的A1至A6单元格中分别按以下图片中的内容输入。<br/><img src="http://www.liyunfeng.cn/t/download.asp?id=16" border="0" alt=""/><br/>然后分别到各工作表中执行“插入→名称→定义”，添加工作表级别的名称。<br/><img src="http://www.liyunfeng.cn/t/download.asp?id=17" border="0" alt=""/><br/>最后的效果是下面这个样子的，说明名称正确。<br/><img src="http://www.liyunfeng.cn/t/download.asp?id=18" border="0" alt=""/><br/>经过这样设置后，如果用户禁用宏的话，文档就会自动退出了。]]></description>
		</item>
		
			<item>
			<link>http://www.liyunfeng.cn/t/article.asp?id=30</link>
			<title><![CDATA[IE打不开二级链接的解决办法]]></title>
			<author>lyf_128@163.com(admin)</author>
			<category><![CDATA[灵异]]></category>
			<pubDate>Sat,28 Nov 2009 20:57:34 +0800</pubDate>
			<guid>http://www.liyunfeng.cn/t/default.asp?id=30</guid>
		<description><![CDATA[IE打不开二级页面，也就是可以进入网站首页，再单击其中的链接没有任何反应。一般情况下都是因为反复安装、卸载软件造成的DLL文件注册关系丢失，或者是一些恶意软件引起的。<br/>解决办法，来自网络。<br/><br/>开始→运行。依次执行以下命令。完了以后重启系统。 <br/>regsvr32 Shdocvw.dll <br/>regsvr32 Shell32.dll <br/>regsvr32 Oleaut32.dll <br/>regsvr32 Actxprxy.dll <br/>regsvr32 Mshtml.dll <br/>regsvr32 Urlmon.dll <br/><br/>经一位同事验证有效，备注于此。]]></description>
		</item>
		
</channel>
</rss>

