[原创]账务处理系统V7.3（2008年12月6日更新,增加损益结转及反月结功能）

dd_qq1980

谢谢！

第三杯茶

<p><b><font color="#ff0000" size="4">特别提醒:</font><font color="#000000">"导入年度科目汇总"代码有重大错误，新的更新如下，请参考：</font></b></p><p></p><p>一楼已做修改和更新！！！！<br/></p>

[此贴子已经被作者于2006-9-17 10:37:04编辑过]

xgirlwqh

楼主，建议将修改完后，再传到一楼，谢谢

以太

<P>请问一楼是否是修改后重传的？</P>

第三杯茶

<P>这几天一直上不了网，急死我了！1楼代码10月30日已更新，别修正了一些小错误！</P>

[此贴子已经被作者于2004-10-30 14:29:28编辑过]

fsp3450

代码如何增加

兰色幻想

<DIV class=quote><B>以下是引用<I>第三杯茶</I>在2004-10-10 16:25:00的发言：</B>


学习无止境，大家都在乎产权的问题我的系统也就出不来了，你可以查看一下this workbookr 的代码！</DIV>
<P>茶兄，好长时间没见了</P>

yuhuiyong

<P>第三杯茶你好！</P><P>请教你如何控制打开工作表, 查看你的代码如下</P><P>Sub 打开_凭证汇总()
If Sheets("首页").[q3] = Sheets("用户信息设定").[A20] And Sheets("用户信息设定").[d20] = 1 Then
    Sheets("凭证信息汇总").Visible = True
    Sheets("凭证信息汇总").Select
    Range("A3").Select
Else
    MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示"
End If
   
End Sub</P><P>是否关键在于通过q3的值来控制可否打开工作表, 而q3的值是否与控件建立</P><P>了关联，你的工作表“首页”锁定了，无法看到q3单元格中的设置，请教如</P><P>何解锁。</P><P>我的文件在运用你的权限设置前是通过图片的超链接来打开工作表的，请问</P><P>是否可以在保留图片超链接的情况下运用你的权限设置，如何使用？如果不</P><P>可以，请问A1的值如何与图片建立关联，我尝试了在点击图片后输入=$A$1,</P><P>但在A1中并没有出现数值，而且图片也变了。</P>

yuhuiyong

<DIV class=quote><B>以下是引用<I>yuhuiyong</I>在2005-1-7 11:01:00的发言：</B>

<P>第三杯茶你好！</P>
<P>请教你如何控制打开工作表, 查看你的代码如下</P>
<P>Sub 打开_凭证汇总()
If Sheets("首页").[q3] = Sheets("用户信息设定").[A20] And Sheets("用户信息设定").[d20] = 1 Then
    Sheets("凭证信息汇总").Visible = True
    Sheets("凭证信息汇总").Select
    Range("A3").Select
Else
    MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示"
End If
   
End Sub</P>
<P>是否关键在于通过q3的值来控制可否打开工作表, 而q3的值是否与控件建立</P>
<P>了关联，你的工作表“首页”锁定了，无法看到q3单元格中的设置，请教如</P>
<P>何解锁。</P>
<P>我的文件在运用你的权限设置前是通过图片的超链接来打开工作表的，请问</P>
<P>是否可以在保留图片超链接的情况下运用你的权限设置，如何使用？如果不</P>
<P>可以，请问A1的值如何与图片建立关联，我尝试了在点击图片后输入=$A$1,</P>
<P>但在A1中并没有出现数值，而且图片也变了。</P></DIV>

楼主不在，请其他朋友解一下好吗

chenqihui9

谢谢