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

azhong

<DIV><FONT size=2>楼主你好</FONT></DIV>
<DIV><FONT size=2>   很高兴看到你公开贴出财务软件的制作代码，并真诚感谢你！我现在看了你的代码我学了做了个小小电气管理系统，请教用什么软件来封装又如何做好封装过程！还有就是你的界面能不能锁起来，（免得鼠标搞得不好把背景被移动），我做的界面现在也不能锁，一旦工作表保护起来就不能执行选项控件，在此希望能得到你的真心指教，并告知具体怎样做！</FONT></DIV>

第三杯茶

<DIV><FONT size=2>答复206楼<STRONG>azhong</STRONG>朋友:</FONT></DIV>
<DIV><FONT size=2>1.点击选项按钮后直接打开相应的工作表不更直接吗?指定一个宏,在宏里取消对工作表的保护,再验证权限,随后再进行工作表的保护;要锁定主界面工作表,可以参考我的那个小系统里的代码,不过要在工作薄打开前事件Workbook_Open里增加相应的代码.</FONT></DIV>
<DIV><FONT size=2>2.Sub 按钮14_单击()里的第一句代码If Sheets("SHEET1").[n20] = 1 Then 变更为If Sheets("SHEET1").[ah20] = 1 then 即可,注意相应权限设置对应的单元格要正确.</FONT></DIV>
<DIV><FONT size=2>3.权限提示的对话框代码位置有误,我在<FONT color=#008000>MsgBox "你无权打开此表,请与系统管理员联系!", 1 + 64, "系统提示"</FONT>前面加一代码else,就行了.你试一下.</FONT></DIV>

米村519

<p>楼主强，佩服，佩服！偶对这玩意基本是不懂！</p>

pigeons

版主：这个date.exe是用什么工具做出来的。

ccjm

为何输完一张凭证后，怎样保存的，转到输下一凭证的？如何删去上一张有误的凭证？

sarahlin1015

<p>录入日期和公司名称怎么改呀?楼主前面的解释我实在看不懂呀!我是菜鸟呀!</p>[em06]

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>pigeons</i>在2006-7-16 12:25:00的发言：</b><br/>版主：这个date.exe是用什么工具做出来的。</div><p></p>用VB做的!

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>pigeons</i>在2006-7-16 12:25:00的发言：</b><br/>版主：这个date.exe是用什么工具做出来的。</div><p></p>是用VB6.0做的.

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>ccjm</i>在2006-7-22 16:13:00的发言：</b><br/>为何输完一张凭证后，怎样保存的，转到输下一凭证的？如何删去上一张有误的凭证？</div><p></p><p>凭证信息录入界面有个保存按钮,点击就可以保存凭证了.</p><p>有误的凭证必须用红字冲销,即做同样的负数凭证.</p>

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>sarahlin1015</i>在2006-7-22 21:40:00的发言：</b><br/><p>录入日期和公司名称怎么改呀?楼主前面的解释我实在看不懂呀!我是菜鸟呀!</p>[em06]</div><p></p><p>录入日期:在右面有个小小的按钮,点向上可或向下可改变日期.</p><p>至于公司名称,是在注册时自动更新的.有问题可E-MAIL给我:gaoyuexun@163.com</p>