如何在选项卡控件设置密码

lsqian

请问是否可以在选项卡控件中的页设置密码，让有的页打开要有密码？ 请问这种要求是否可以实现？
谢谢！

Henry D. Sy

可以  

t小宝

cuxun 怎么突然讲到EXCEL了呢？？？

andymark

自已做一个密码窗体

poly

，看不懂，不过用代码一定可以做到的

lsqian

谢谢各位！偶试试看！！！！！

lsqian

Private Sub 基础资料维护_Click()
Dim myNum As String
Dim password As String
myNum = InputBox(password, "密码录入确认", "0", "5", "5")
If myNum = "123" Then Me.基础资料维护 = Visible
Else
Me.基础资料维护 = False
End If

End Sub

t小宝

'以下为窗体模块的代码,
'包括两个公共变量、选项卡控件的更改事件过程和检查密码子过程

Option Compare Database
Option Explicit

Dim i原值 As Integer
Dim b密码 As Boolean

Private Sub 选项卡控件0_Change()
'假设有四页，其中第二、四页需要密码"123"
If Not b密码 Then
    Select Case Me.选项卡控件0
    Case 1
        检查密码 1, "123"
    Case 3
        检查密码 3, "123"
    Case Else
       i原值 = Me.选项卡控件0.Value
    End Select
End If
End Sub

Public Sub 检查密码(i页 As Integer, s密 As String)
    Dim s输入 As String
    Me.选项卡控件0.Value = i原值
    s输入 = Nz(InputBox("请输入密码："))
   
    If s输入 = s密 Then
        b密码 = True
        Me.选项卡控件0.Value = i页
        b密码 = False
    ElseIf Len(s输入) > 0 Then
        MsgBox "密码错误！", vbExclamation
    End If
   
End Sub

poly

有没有看过王宇虹的书，最后有一个主窗体案例，稍加改下就可以了

t小宝

如果把代码放在选项卡控件的单击事件中,人家用END、HOME等快捷键照样可以进入有密码的页！