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

第三杯茶

<P>年初了有点儿忙，不好意思！！！</P>
<P>在<FONT color=#0909f7>ThisWorkbook</FONT>中的<B>Private Sub Workbook_Open()</B>中有一句是:
    <B><FONT color=#ee3d11>LockSheetArea Sheet14, "F1"</FONT>    </B>在前边加一个逗号关闭后再打开就可以解除首页的锁定！另外Q3是隐藏的，解除隐藏就可以看到Q3的内容了，它是通过“用户信息设定”中的权限设置来控制的。</P>
<P>还可以参考一下UserForm1中的代码！</P>
<P>其他的只好随后再说了，好象我没有考虑过超链接的事情！不好意思！</P>

[此贴子已经被作者于2005-1-8 17:23:12编辑过]

第三杯茶

其实我的东东在应用中已经有不小的改动，还没有来得及更新，承蒙厚爱，再完善一下，我会把最新的东西奉献给大家的。

ytxwh

在此先谢了，请把更新的给我们欣赏！

第三杯茶

<P>最新更新在1楼，或打开以下链接：</P>
<P><a href="http://club.excelhome.net/viewthread.php?tid=77754" target="_blank" >http://club.excelhome.net/viewthread.php?tid=77754</A></P>

第三杯茶

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

<P>第三杯茶你好！</P>
<P>我的文件在运用你的权限设置前是通过图片的超链接来打开工作表的，请问</P>
<P>是否可以在保留图片超链接的情况下运用你的权限设置，如何使用？如果不</P>
<P>可以，请问A1的值如何与图片建立关联，我尝试了在点击图片后输入=$A$1,</P>
<P>但在A1中并没有出现数值，而且图片也变了。</P></DIV>
<P>我没有搞明白你的意思，你是在另外一个文件用的超链接吗？</P>

yuhuiyong

<DIV class=quote><B>以下是引用<I>第三杯茶</I>在2005-1-9 9:38:00的发言：</B>


<P>我没有搞明白你的意思，你是在另外一个文件用的超链接吗？</P></DIV>
<P>不是, 是在同一个文件中，比如在“首页”的图片上，建立链接到其他工作表的链接。
<P>昨天把你的文件解除锁定后，看到了权限控制的一些奥秘，照做了，可以按权限来打开工作表了，但必须是在工作簿未保护的情况下。当工作簿受保护时运行，显示“运行时错误‘1004’，在以下代码的红色所示停止，请教什么原因，如何解决
<P>Sub 打开_生产计划单()
If Sheets("主界面").[A40] = Sheets("权限设置").[A20] And Sheets("权限设置").[D20] = 1 Then
  <FONT color=#ff0033>  Sheets("生产计划单").Visible = True
</FONT>    Sheets("生产计划单").Select
Else
    MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示"
End If
   
End Sub
<P>另外，你的文件打开一个工作表再返回时，该工作表能自动隐藏，但我的不能，为什么

第三杯茶

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


<P>不是, 是在同一个文件中，比如在“首页”的图片上，建立链接到其他工作表的链接。

<P>昨天把你的文件解除锁定后，看到了权限控制的一些奥秘，照做了，可以按权限来打开工作表了，但必须是在工作簿未保护的情况下。当工作簿受保护时运行，显示“运行时错误‘1004’，在以下代码的红色所示停止，请教什么原因，如何解决

<P>Sub 打开_生产计划单()
If Sheets("主界面").[A40] = Sheets("权限设置").[A20] And Sheets("权限设置").[D20] = 1 Then
  <FONT color=#ff0033>  Sheets("生产计划单").Visible = True
</FONT>    Sheets("生产计划单").Select
Else
    MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示"
End If
   
End Sub

<P>另外，你的文件打开一个工作表再返回时，该工作表能自动隐藏，但我的不能，为什么
</P></DIV>
<P>
    1.在你的打开代码中加入解除工作簿保护的语句，在程序结束时再进行一下保护！</P>
<P>Sub 打开_生产计划单()</P>
<P>ActiveWorkbook.Unprotect Password:="  "     ’在“”中输入你的工作簿保护密码
If Sheets("主界面").[A40] = Sheets("权限设置").[A20] And Sheets("权限设置").[D20] = 1 Then
  <FONT color=#ff0033>  </FONT><FONT color=#333333>Sheets("生产计划单").Visible = True
</FONT>    Sheets("生产计划单").Select
Else
    MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示"
End If
ActiveWorkbook.Protect Password:="  "   
End Sub</P>
<P>   2.同样的，在你的返回代码中也要加入工作簿保护语句，再加入:<b>ActiveWindow.SelectedSheets.Visible = False</b>。
   
</P>

yuhuiyong

<DIV class=quote><B>以下是引用<I>第三杯茶</I>在2005-1-9 12:02:00的发言：</B>


<P>
    1.在你的打开代码中加入解除工作簿保护的语句，在程序结束时再进行一下保护！</P>
<P>Sub 打开_生产计划单()</P>
<P>ActiveWorkbook.Unprotect Password:="  "     ’在“”中输入你的工作簿保护密码
If Sheets("主界面").[A40] = Sheets("权限设置").[A20] And Sheets("权限设置").[D20] = 1 Then
  <FONT color=#ff0033>  </FONT><FONT color=#333333>Sheets("生产计划单").Visible = True
</FONT>    Sheets("生产计划单").Select
Else
    MsgBox "你无权打开此表,请与管理员联系获得权限!", 1 + 64, "系统提示"
End If
ActiveWorkbook.Protect Password:="  "   
End Sub</P>
<P>   2.同样的，在你的返回代码中也要加入工作簿保护语句，再加入:<B>ActiveWindow.SelectedSheets.Visible = False</B>。
   
</P></DIV>
<P>
<P>Ok了，谢谢你茶生。</P>
<P>代码运行时有不稳定的情况是怎么回事，同一个代码有时运行正常，而有时出错</P>

第三杯茶

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


<P>
<P>Ok了，谢谢你茶生。</P>
<P>代码运行时有不稳定的情况是怎么回事，同一个代码有时运行正常，而有时出错</P></DIV>

估计是应当解除密码保护的时候没有解除的原因，要不把你的东东上传了，大家探讨一下？

虹雨双晴

<P>解压不了呀？</P>