<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("数据库,Access,实例,技巧") PageTitle=stripHTML("如何设置ACCESS2003(运行时)的宏安全性级别") ArticleIntro=stripHTML("") Articlecontent=stripHTML("ACCESS2003版本加了宏安全性级别的设置,设置地用处在处不表。方法:                    操作菜单                   …") ModuleName = stripHTML("classical") InfoID = stripHTML("27982") ChannelShortName=stripHTML("文章") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("classical") %> 如何设置ACCESS2003(运行时)的宏安全性级别 - 华盟网 - http://www.77169.com  <% Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") strOutput = Replace(strOutput,Chr(34),Chr(39)) stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function %> "> 
您现在的位置: 华盟网 >> 知识库 >> 数据库 >> Access >> 实例技巧 >> 正文

如何设置ACCESS2003(运行时)的宏安全性级别

2005/8/29 作者:unknown 来源: unknown
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>
ACCESS2003版本加了宏安全性级别的设置,设置地用处在处不表。方法:

操作菜单
可以自定义菜单,或直接调用菜单上的操作:
CommandBars("menu bar").Controls("工具(&T)").Controls("宏(&M)").Controls("安全性(&S)...").Execute

设置注册表(运行时不适用):
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security]
"Level"=1 //低
"Level"=2 //中
"Level"=3 //高

 

                  微信群名称:华盟-黑白之道         华盟--黑白之道⑦QQ群: 9430885

  • 上一篇文章:

  • 下一篇文章:
  • 
    网友评论
      验证码
     
    

    关注

    分享

    0

    讨论

    2

    猜你喜欢

      <%=CorrelativeArticle%>

    论坛最新贴