如何在excel中通过vba代码实现一个工作薄中多账号使用
大家好,请问如何在Excel中实现同一工作薄多账号使用哇?大概实现之后就是:假设现在有一个命名为“测试”的工作薄,里面有“sheet1、sheet2、sheet3、sheet4”等若干工作表,已经事先赋予sheet1-4打开密码,如sheet1的打开密码为001,以此类推。先点击“测试”这个工作薄,输入密码001,则打开了sheet1工作表,其他工作表同时隐藏;输入002打开sheet2工作表,其他工作表隐藏,这种情况代码怎么写哇?如何实现?请大神赐教
试试这个代码,放在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