ThisWorkbook 在代码窗口粘贴下列代码
Private Sub Workbook_Open()
Dim Yfm As String
Dim Mima As String
Yfm = "123456"
Mima = "456123"
t = InputBox("请输入用户名", "")
If t <> Yfm Then
MsgBox "用户名错误！"
Exit Sub
End If
t1 = InputBox("请输入密码")
If t1 <> Mima Then
MsgBox "您的密码错误！"
Exit Sub
End If
Sheet1.Select
End Sub
Private Sub Workbook_Open()
Dim Yfm As String
Dim Mima As String
Yfm = "123456"
Mima = "456123"
t = InputBox("请输入用户名", "")
If t <> Yfm Then
MsgBox "用户名错误！"
Exit Sub
End If
t1 = InputBox("请输入密码")
If t1 <> Mima Then
MsgBox "您的密码错误！"
Exit Sub
End If
Sheet1.Select
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 2011-01-07
在工程资源管理器 中双击 ThisWorkbook 在代码窗口粘贴下列代码在打开 工作簿 或 插入 工作表时在第一表的A1单元将显示工作簿总页数 = x ,x 为EXcel总
第2个回答 2011-01-07
哦，直接求代码了？我知道怎么搞，可是懒得写代码了。。。
相似回答
