[更新]劳动合同管理系统V2.0

cutyhead

<p>回复楼主：</p><p>我觉得这样的excel文件虽然解决了劳动合同管理部分事务，但关键的问题没得到解决：</p><p>1、合同到期前提醒非常重要；其实我想应该不难：只需要设定针对某一列的数据满足设定条件就弹出或者人工搜索也可以，例如 合同到期&lt;30天的；</p><p>2、现有数据导入，可以省很多事；从实际操作出发，很有必要。</p><p></p><p>你认为呢？？</p>

[此贴子已经被作者于2008-6-3 9:30:36编辑过]

sunya_0529

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>cutyhead</i>在2008-6-3 9:28:14的发言：</b><br/><p>回复楼主：</p><p>我觉得这样的excel文件虽然解决了劳动合同管理部分事务，但关键的问题没得到解决：</p><p>1、合同到期前提醒非常重要；其实我想应该不难：只需要设定针对某一列的数据满足设定条件就弹出或者人工搜索也可以，例如 合同到期&lt;30天的；</p><p>2、现有数据导入，可以省很多事；从实际操作出发，很有必要。</p><p></p><p>你认为呢？？</p><br/></div><p></p><p></p><p>这位兄台言之有理，每个单位都有不同的管理方式，形成的数据也各不相同，所以每次有什么新工具出现的时候，都要面临数据迁移的问题。 </p><p>我做的这个小东西本来是给自己公司用的，人也不多，一条一条录进去问题不大。另外，设计时为了执行效率高一点，有些数据的标准化做得不够规范。导入数据的话，得严格按照系统定义的数据类型处理，如出生日期采用“MMDD”的格式（直接从身份证号取得）。 </p><p>不过从理论上讲，只要原数据里包括系统里的一些必要字段，完成数据的批量导入是没有问题的。感谢你的建议，想做出一个真正实用的工具，还有很多需要改进的地方，我再寻思寻思</p>

samuel_xu

<p>楼主辛苦了！</p>

samuel_xu

不错！

xinyang6755

<p>楼主,谢谢!</p><p>你辛苦了!我想给你提个建议,这个东西很好,但是针对每个企业情况会不一样!你能否把保护密码也发布呢?这样的话那些不适合的地方可以做适当的修改!!</p>

xinyang6755

<p>顺便请教你一个问题,你的保护是怎样去做呢?我在主界面上什么都修改不了.连粘贴、复制这样的功能都不能用。能把操作的方法交给我吗？</p><p>在次谢谢你的无私奉献！</p>

sunya_0529

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>xinyang6755</i>在2008-6-24 17:48:30的发言：</b><br/><p>楼主,谢谢!</p><p>你辛苦了!我想给你提个建议,这个东西很好,但是针对每个企业情况会不一样!你能否把保护密码也发布呢?这样的话那些不适合的地方可以做适当的修改!!</p></div><p>密码在一楼就有，之所以没有明说，是想使用的人都能把说明看完，要不然又会有很多问题会提出来</p><p>另外，加密不是为了保护什么代码，只是防止误操作产生的修改。</p>

sunya_0529

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>xinyang6755</i>在2008-6-24 17:50:57的发言：</b><br/><p>顺便请教你一个问题,你的保护是怎样去做呢?我在主界面上什么都修改不了.连粘贴、复制这样的功能都不能用。能把操作的方法交给我吗？</p><p>在次谢谢你的无私奉献！</p></div><p></p><p>保护分为两块：</p><p>一是使用工作表保护，将“允许此工作表的所有用户进行”下面的选项全部取消勾选；</p><p>二是定义工作薄文件的Open事件，将“主界面”这个工作表的滚动区域设置为“A1”，如下代码所示。</p><p>Private Sub Workbook_Open()<br/>&nbsp;Application.ScreenUpdating = False<br/>&nbsp;With Sheets("主界面")<br/>&nbsp; .Unprotect Password:="sunya"<br/>&nbsp; .ScrollArea = "A1"&nbsp; <font color="#669966">'锁定可滚动区域</font><br/>&nbsp; .Activate<br/>&nbsp; .Protect Password:="sunya"<br/>&nbsp;End With<br/>&nbsp;With Sheets("data")<br/>&nbsp; .Protect Password:="sunya", AllowFiltering:=True<br/>&nbsp; .Visible = False<br/>&nbsp;End With<br/>&nbsp;With Sheets("输出")<br/>&nbsp; .Unprotect Password:="sunya"<br/>&nbsp; .Cells.ClearContents<br/>&nbsp; .Protect Password:="sunya"<br/>&nbsp; .Visible = False<br/>&nbsp;End With<br/>&nbsp;With Sheets("setup")<br/>&nbsp; .Protect Password:="sunya"<br/>&nbsp; .Visible = False<br/>&nbsp;End With<br/>&nbsp;Application.ScreenUpdating = True<br/>End Sub</p>

hxmhb111

很好很强大 谢谢楼主

roselie

<p>很需要的一个软件</p><p>多谢分享</p>