[原创]合同管理系统--无密码,无限制,欢迎批评指正(有更新)

wangxf66

怎么解压啊,谢谢

lovey38

<p>解压不了,能不能发到我的邮箱<a href="mailto:?lovey38@126.com">?lovey38@126.com</a></p>

pigstar

<p>无法解压</p><p>说需要压缩分卷 才能解压</p><p>请高手帮忙</p><p>谢谢</p>

thomastang

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>yclotus</i>在2007-5-18 12:06:22的发言：</b><br/><p>每次右键时，调出的菜单太多，我把它改了改，仅显示自定义菜单，这样即整洁又好看，操作方便。。。&nbsp;</p><p><img src="attachments/dvbbs/2007-5/20075181243468386.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/></p><p>在ThisWorkbook加入以下代码：</p><p>Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)<br/>With Application.CommandBars("cell") '尽量用wiht减少代码，增强可读性，已改<br/>&nbsp;&nbsp;&nbsp; .Reset<br/>&nbsp;&nbsp;&nbsp; For i = 1 To .Controls.Count<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If .Controls.Item(i).Visible = True Then .Controls.Item(i).Visible = False '隐藏可见菜单<br/>&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp; With .Controls<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949) ''尽量用wiht减少代码，增强可读性，太多没改<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "合同管理系统 - 主界面"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuMain"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 266<br/>&nbsp;&nbsp;&nbsp; MCR.BeginGroup = True<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "快速定位这个合同"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuFindFast"<br/>&nbsp;&nbsp;&nbsp; MCR.BeginGroup = True<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 371<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "详细显示这个合同的全部信息"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuFindFastAll"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 274<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "在当前表格中查找合同号"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuFindNumber"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 109<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "转换用印记录"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuMainChange"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 640<br/>&nbsp;&nbsp;&nbsp; MCR.BeginGroup = True<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "自动缩放单元格"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuCloseItem"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 1650<br/>&nbsp;&nbsp;&nbsp; MCR.BeginGroup = True<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "含税/不含税转换"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuShuiShou"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 384<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "开启外部计算器"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuOutCalcu"<br/>&nbsp;&nbsp;&nbsp; MCR.FaceId = 960<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "加/去 表格边框"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuSetKuang"<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "加/去 表格突出背景"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuSetBackColor"<br/>&nbsp;&nbsp;&nbsp; Set MCR = .Add(Type:=msoControlButton, ID:=2949)<br/>&nbsp;&nbsp;&nbsp; MCR.Caption = "显示图例"<br/>&nbsp;&nbsp;&nbsp; MCR.OnAction = "MenuShowColorSample"<br/>&nbsp;&nbsp;&nbsp; MCR.BeginGroup = True<br/>&nbsp; End With<br/>End With<br/>End Sub</p><p>不知道有没有人喜欢。。。</p></div><p></p>谢谢！这样一改菜单的确简单多了。

zr0203

<p>谢谢！<br/></p>

sxyun

<p></p><p></p><p></p><p>收藏了</p>

花雨

<p>都是能人啊</p><p>好多没见过的</p><p></p>

花雨

<p>汗，我也解压不了</p><p>问题在哪</p><p>两个都下载了</p><p></p>

mmc208

<p>精英描述了一下精粹的内容</p>

原乡人

漂亮,精