作者：乔山办公网日期：
返回目录：excel表格制作
老实说，您找的这代码我看着头疼。百。
不必度这么麻烦，插入模块复制粘贴下面的自定义函数版，
通过CreateObject("MSXML2.ServerXMLHTTP")，检测网址是否有效。
工作表公式调用或权VBA过程调用都可以。
URLDecoder.decode(url, "utf-8"); url是你的地址，zd 解码完之后，接收一下。应该可以了。 编码之后，记内得解码。 import java.net.URLDecoder; 一个解码， import java.net.URLEncoder; 一个编码。 如果遇到无法解码，在页面上将%替换成！容 URLEnc...
在excel的工具功能中进入百vba编辑器执行宏保护公式的功能，即可对指定单元格，或区域单元格进行保护。
具体操作步骤如下：
1、打开EXCEL2003，输入并编辑好相关的数据。
2、编辑相关的统计公式，如在原始度数据最后一列增加总分列，并在K4单元格输入：=SUM(D4:J4)，然后往下拖拉填充公式。版
3、点击EXCEL工作薄的工具——宏
4、在弹出的界面选择保护公式，点击执行。
5、最后按Alt+F11在弹出的界面输入密码即可。
注意事项：
为了权避免别人进入VBA编辑模式查看解锁密码或者乱修改代码，最后一定要记得将宏设置密码。
用这个自定义函数
Public Function UrlDecode(ByVal strText As String) As String '如果值中带有非英文和数字，zhidao则需转换专成%形式
'url编码 utf-8
Dim js
Set js = CreateObject("msscriptcontrol.scriptcontrol")
js.Language = "JavaScript"
'UrlDecode = js.eval("decodeURI('" & strText & "');") '忽略! @ # $& * ( ) = : / ; + '
'UrlEncode = js.Eval("escape('" & Replace(strText, "'", "\'") & "');") '汉字转换为%u开头的Unicode码 不会被此方法编码的字符： @ * / +
UrlDecode = js.Eval("decodeURIComponent('" & strText & "');") '包含属://
End Function
欢迎到EXCEL880工作室来看实例视频