afteropenproject事件
Tables("表A").Visible = False
然后做一个显示的按钮,写代码
Dim pwd As StringIf InputPassWord(pwd,"提示","请输入密码:") Then If pwd = "123456" Then
Tables("表A").Visible = True
End If