如何在excel中通过vba代码实现一个工作薄中多账号使用 - 编程论坛

#2

woolley2023-02-01 10:57

试试这个代码，放在workbook对象的open事件中
Private Sub Workbook_Open()
Worksheets(1).Visible = 2
Worksheets(2).Visible = 2
Dim sinput As String
sinput = InputBox("please input password", "password")
If sinput = "001" Then
    Worksheets(1).Visible = -1
    ElseIf sinput = "002" Then
    Worksheets(2).Visible = -1
End If
End Sub

#3

pvm20002023-02-07 00:48

微软没有将功能搞这么细吧

#4

厨师王德榜2023-02-08 11:40

可以给你一个示范,密码有五个,最后一个是管理员密码: 1/2/3/4/888
声明,这种方式,对于高手无用.

只有本站会员才能查看附件，请登录