[分享]一个简单精美的密码登录界面(新增注册码功能)

stx1980710

QUOTE:

以下是引用欲擒故纵在2007-2-27 12:20:26的发言：
请问workbook_newsheet事件里的语句是什么意思呀.

新增工作表时，同时定义一名称，实现宏表函数的功能！即“取消宏，则退出文件！”

海的本色

怎么编辑呢？我怎么看不到编辑部分！

shun2233

值得学习，但此程序有个问题：

当进入后，新增一张工作表，将名称删除后保存后退出；

下次进入此工作薄后，禁用宏，你只要不激化Sheet1表，就能正常使用！

dwg0161028

首出现登录窗体，输入密码以后再启动EXCLE主程序 如何在VB中设置。谢谢！

红日东升

谢谢了,有点用

hgp-106

谢谢了

paddy

我先收藏了！！楼主辛苦了！

hbhy012

"stx1980710"老师你好

  我在试用时出了点问题,向您请教:

   首先我将模块及窗体导出后再导入到我自己的工作薄中,并将"宏表1"的内容拷贝到我的"宏表1"中

在启动时以下红色语句编译报错:(用户定义类型未定义)

Option Explicit
'设置窗体样式
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Public Const GWL_STYLE As Long = (-16)
Public Const WS_CAPTION As Long = &HC00000
Public Cnn As New ADODB.Connection
Public UserName As String

我是才开始学习 请老师指教

                                                                谢谢

laola1000

这种东西没得用。VB6.0Z引用库。要做啥样是什么样

hbhy012

"stx1980710"老师你好

 我提的问题 我已经解决了 原来我没有对"ACTIVEX"引用 谢谢你的提供 我要向您多多学习 另外您能否将"DLL"的原码发给我 我想好好学学.我的邮箱是HBHY012@126.COM