密码窗体代码

Question

点击确定按钮，弹出一个窗口，请输入密码（密码用*表示），如果密码错误，则继续显示窗体，否则就激活sheet3
我是菜鸟，请高手们写段代码指教

Answer 1

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

form1上面有一个按钮
Private Sub Command1_Click()
Form2.Show
End Sub

form2用作登录界面
form2的代码如下

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表

Private Sub Command1_Click()
If Text1.Text = "1234" Then
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件
Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
xlapp.Visible = True '设置EXCEL对象可见（或不可见）

xlapp.worksheets("sheet3").activate '激活sheet3

'Set xlapp = Nothing '释放xlApp对象

Else
MsgBox "密码不对"
Text1.Text = ""
End If

End Sub

Private Sub Form_Load()
Text1.PasswordChar = "*"
End Sub

excel借鉴
来自CSDN博客，转载请标明出处：http://blog.csdn.net/tornadofeng/archive/2007/09/27/1803358.aspx

Answer 2

DIM PW
DIM IPW'输入的密码
IPW=TEXT1.TEXT
IF IPW=PW THEN
SHEET3.active=TRUE'？我不会
unload me
else
MSGBOX"密码错"
ENDIF

Answer 3

是Excel吧
看我的贴吧帖子
http://tieba.baidu.com/club/9503575/p/5036212

点击
http://tieba.baidu.com/club/9503575/invite/join/?c=126956776992de143890e084d2ab180023
加入讨论