ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 111582|回复: 252

[原创] (供新手学习)简单制作、套用电子表格登陆窗口

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-4-27 11:01 | 显示全部楼层 |阅读模式
本帖最后由 ジ冷メ缘ゞ 于 2012-4-27 16:58 编辑

先前一直都是在论坛里找资料、求帮助,今天我也班门弄斧一把,把我自己这段时间来,搞出来的一些经验与大伙分享下,第一次哦,不好请见谅!
很多人,都想在Excel里弄个非常漂亮的登录窗口,如图:
QQ截图201.jpg
其实也无可厚非,不过据本人这段时间的研究表明,其实这个登录窗口并没有太实际的意义,甚至说比不上Excel自带的密码保护工具,当然这也是本人的拙见,呵呵。
下面切入正题,就是关于登录窗口制作,个人觉得可以简单点,毕竟现在真正懂VB语言的高手在实际工作中并不多,因此代码越少越好,这样也能减轻不少压力。举个实际:
QQ截图20120427105557.jpg
这个窗口是我自己弄的,看这个感觉复杂吗?
呵呵,其实一点都不复杂,我是用PS做的背景图片,真正用VB的地方并不多。
未标题-1.jpg
这是原图,当然你也可以不用这个背景了,随你高兴。比如这样:
打开PS,选择想用的图片或公司外观图片
2010919372142.jpg
之后按自己的意愿编辑,如图:
2010919372142副本_副本.jpg
到了这一步,接下来就是编写代码了,当然您还可以继续美化!

以上有不到位的地方,请高手们指导下!
涉及到VBA代码编写这一块,我只能粗略的说下,毕竟我也是初学者。送给像我一般初学者一句话就是,多看VBA实例,看多了,其实哪怕你不是很懂编写代码,但也可以从别人编写的代码中,找到自己能用的那一部分,不过这也是解燃眉之急时用用,更多的还得用心去学。
如今,在网上我们都可以下到一些那些高手们写好的代码,要么被锁了,要么在我们想套用的时候,经常会在我们要用的表格中出现编码错误,毕竟他们编写代码的时候,表格选用、分布上,和我们往往是不一致的,因此如何快速准确的让我们初学者套用高手的成型代码就值得我们研究了。见图:
QQ代码.jpg
这是一个登陆窗口成型代码,需要密码才可以登录,密码对了就进入编辑模式,错了直接退出,这些命令的字眼其实在代码中我们就可以找到,见附图
biaozhu.JPG
图中红色标示部分,即为我刚才所说的命令代码的文字提示。请看登陆界面样:
登陆界面样.jpg
这个登录窗口是我按上面说的方法做的,要注意的是其中右侧的3个文本框和2个命令按钮(其中第2个是下拉菜单)。在代码中,都有与之关联的地方,当然具体代码代表什么意思,我也说不生很清楚,当然,您可以学我的一招,实在不行把其中的函数单词拿去翻译,注意就可以明白点代码的意义。下面大家下载附件,进去看看你,相信会理解得比较快。
最后,我给大家截几张图,在相应需改动的位置给新手做下标示,之后您就可以根据自己的实情,相应地做好改动。
首先打开VBA编辑器,会弹出这样的一个窗口:
vba操作窗口.jpg
试着点击Microsoft Office Excel 2003对象下的工作表,如sheet10(系统设置),右侧会弹出属性窗口,见图:
sheeet10.JPG
当然不是每个工作表的属性栏中都有代码的,需要用到的时候才需要编写,当然更多的VBA控件功能,要高手们才能解决,其中sheet10(系统设置)的代码意义相信大家一看就明白,再不懂的打开附件点击下看看了,
xitongshezhi.jpg
这里要特别说明的是“ThisWerkbook”这个对象,这里的代码应该是不可或缺的,因为它关系着你打开电子表格的直接反应,具体参数,见下图:
book.JPG
大家想了解其相关代码信息,也可以参考下面这个成品代码,这是我从网上某个高手手上“挖”来的,具体见:
  Private Sub Workbook_Open()
  Application.Visible = False '隐藏应用程序窗口
  Application.EnableCancelKey = xlDisabled '不答应应用程序中止
  UserForm1.Show '模态启动登陆对话框,进入登录界面
  Application.WindowState = xlMaximized '登录完成后窗口最大化
  Application.Visible = True '显示应用程序窗口
  Application.EnableCancelKey = xlInterrupt '答应应用程序中止
End Sub
而对于窗体中的frmFace这个窗体对象,其代码的含义,无非是对登录界面最大化的要求。在您使用的我附件中“登录窗口”的时候,您可以剪切后保存试试,甚至将其导出后删除,其不影响登录窗口代码。
frmace.JPG

最后,我们一起来研究高手们如何实现电子表格登陆窗口化的。
log.JPG
点击“Login,进入上图界面。数遍左键双击登陆窗口或鼠标右键点击“Login”选择“查看代码”,进入代码属性窗口界面
log2222.JPG
太深奥的东西,我也不懂,能和大家分享的是,怎么去改这个“窗口代码”,使其适合大伙自己实际运用。大家仔细看截图,有标注的地方,需要注意。
biaozhu2.JPG
biaozhu3.JPG
在我红线标注的地方,您只要按你工作表的实际去改动,就可以完成这个登陆窗口制作。
当然如果您还想按您自己的设计模板制作登陆界面,登陆背景什么的,您就按我上面所说,用PS或其他图形工作先做修饰、编辑等等,之后再导入工作工程窗体中,即可。
这一块,就容我再唠叨下,高手们就当做没有看见,相信这样的帖子也不会引起您们的注意,对吧,高手们?
关于如果导入自己设计好的窗口背景及模板,大家再打开刚才那个登陆窗体界面,如图

之后右键点击窗口图片,选择“属性”或者直接点击 shuxig.JPG 也可以打开,弹出属性窗口,如图
shuxing2.JPG
在这一块,您就可以很好的编辑了,在按字母这边您可以找到“picture”点击并导入您制作好的图片等,如图
shuxig33.JPG
调整下,即可,至于具体的,大家可以按自己的意愿去一项项的编辑,这个属性窗口参数并不难。
怎么样,写得乱糟糟的,见谅了!由衷的希望新手们能从中获取点什么,那是我最大的幸福!
还有一点要澄清的是,我开始说的,其实如果为了实用,真没的没有必要花尽心思做个登陆窗口,除了好看没有什么用处,因为电子表格你就算设置再多的权限用户,可它本身同时只允许一个操作用户打开,因此没有太实际的意义。当然了,要是高手就不一样了,多用控件等等,按钮化一键操作,这倒是值得大家深入学习的。
最后,希望版主加个精,第一次啊,新手不容易,而且附件工程不加密,服务广大新手!
新手们,给点力,支持下!

写给需要附件的新手们:

很对不起,附件超过200K,我权限不够,要的回复,留下邮箱。见谅!

shuxig.JPG

评分

10

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-4-27 11:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
怎么后边没有了吗???

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-27 11:14 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
king2wing 发表于 2012-4-27 11:11
怎么后边没有了吗???

正在写,稍等会!

TA的精华主题

TA的得分主题

发表于 2012-4-27 16:29 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-4-27 17:02 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-28 08:12 | 显示全部楼层
zhjg1 发表于 2012-4-27 17:02
不错啊!

谢谢!!

请注意查收,已发送至您提供的邮箱。

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-28 08:13 | 显示全部楼层
写得这么详细,回复还是坦荡荡,看来真是自己落伍了,这里高手还是多的,见笑了

TA的精华主题

TA的得分主题

发表于 2012-4-28 08:39 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-4-28 14:09 | 显示全部楼层
现在正在学习这方面,很有用,帮我传一下,万分感谢!!!  272420522@qq.com

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-28 14:54 | 显示全部楼层
chjw8248 发表于 2012-4-28 08:39
正需要学习,请发至,谢谢!

已发送至您邮箱,记得接收
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-19 15:38 , Processed in 0.055187 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表