[ 源码全部公开]用EXCEL做的工资表系统

yoka

谢谢分享

aob

又是假药!!![em06][em06]

bluesky_0

支持原创！

 

[em02]

听说服装企业工资很服装，什么时候见识下！

huwei853853

为庆贺本贴超过2000次 感谢广大朋友的支持 特加上学习版(不屏蔽工具栏)

  学习版

hxyz25

很好！很有特色！我正希望看到这方面的内容，想问问权限是怎么做的，及文中的保护。我的邮箱是hxyz25@163.com.谢谢版主分享。

huwei853853

QUOTE:

以下是引用hxyz25在2007-10-6 20:47:15的发言：
很好！很有特色！我正希望看到这方面的内容，想问问权限是怎么做的，及文中的保护。我的邮箱是hxyz25@163.com.谢谢版主分享。

呵呵 谢谢你的夸奖! 我在做的权限很简单,就是第一名字登陆,是管理级的

它能进行一些设置 下载等.别的名字就只能普通编辑工作. 设计的简单但实用.

"文中的保护" 就是安全编辑 :

 
 With Sheets("工资编辑")
      .Unprotect                 '去保护
      .Range("L6:M6").Locked = True
    .Range("P6:Q6").Locked = True
        . Range("U6:V6").Locked = True
  . Range("G6:I6").Locked = True
    .Range(Cells(10, 3), Cells(2002, 29)).Locked = True  '解除鼠标限定
        .Range(Cells(10, 3), Cells(2000, 29)).Interior.ColorIndex = 0  '还原颜色  

          .Range(Cells(10, 3), Cells([D2000].End(xlUp).Row, 3)).Locked = False   '设定编辑区域
       .Range(Cells(aa, 9), Cells(aa, 19)).Locked = False
       .Range(Cells(aa, 9), Cells(aa, 19)).Interior.ColorIndex = 44          '变成橘色 编辑醒目

  .Range(Cells(aa, 22), Cells(aa, 27)).Locked = False
  .Range(Cells(aa, 22), Cells(aa, 27)).Interior.ColorIndex = 44

      .EnableSelection = xlUnlockedCells    ' 出现编辑标
      .Protect                  '保护工作表
   End With

[此贴子已经被作者于2007-10-9 9:40:20编辑过]

wangxiaoqin

QQ:627110690 白狐

 

wangxiaoqin

你们的问题都太复杂啦,我只想简单的,请教我!

huwei853853

感谢广大朋友的支持

我这套工资系统,适合初学者的 里面的编码很多都有,手工录制痕迹

设计思想 还给流程图 这在 发帖不多见 ,目的就是大家共同学习

如果对我工资系统感兴趣,我非常高兴同你一起探讨 帮你设计你所需要系统

我想设计整体结构很重要,就像树的躯干, 有了躯干添枝加叶就简单了

有象是盖房子,结构就想地基 一但定型就不好改动了

我的具体的程序没有用 高深的代码 等到你水平高时候 改一改就行,就像装修随时可以进行

我的数据汇总就是不是很快算法 ,我还要改动那 ,刚学了数组 字典 准备用上那 .

[此贴子已经被作者于2007-10-9 9:53:45编辑过]

小小天空

以下是引用free_loong在2007-9-28 11:36:27的发言：

为什么一定要放在D盘?我放了也是不可以用,不是有宏病毒吧?呵呵

不要用小人之心度君子之腹...

楼主的工资表非常不错.顶.. 已经在研究学习..还望指教