Excel 切換sheet需輸入密碼

單看你截的部分，會沒有答案，還好你有給來源

Private Sub CommandButton1_Click()

Dim j, i As Integer

maxr = Application.CountA(Sheets("权限表").Range("A:A"))
maxc = Application.CountA(Sheets("权限表").Range("1:1"))

If TextBox1.Value = "" Then MsgBox "用户名不能为空", vbInformation, "注意": Exit Sub
If TextBox2.Value = "" Then MsgBox "密码名不能为空", vbInformation, "注意": Exit Sub

For i = 2 To maxc
u = Worksheets("权限表").Cells(1, i)
k = Worksheets("权限表").Cells(2, i)
If TextBox1.Text = u And TextBox2.Text = k Then
Unload Me
Application.Visible = True --------->如果用戶明和密碼對了，權限工作表變成可看到
Application.EnableCancelKey = xlInterrupt --------->恢復使用者可以用esc來取消程式執行
for j=maxr to 3 step -1 --------->maxr 是計算A欄的行數，也就是6(參考下圖)，所以J是從6至3，-1的意思就是從6開始循環，每循環一次-1，因為表名的部分只有4~6行，他只是反過來循環
ThisWorkbook.Activate

偶不是專業的，所以不保證對，但其實應該有更簡單的寫法跟做法就能達成目的，一般公司應該也不用搞得太複雜，這種對高手防範可能也沒用，但對一般人綽綽有餘，所以用簡單點就可以了

近期因為要請人員使用excel輸入資料
想以不同sheet，人員切換的時候需輸入密碼才能開啟權限

是怕人看到資料嗎?還是怎樣考量?如果做個表單根據不同名字或權限匯總會不會更快?
或直接設三組權限，分別直接對應打開不同的工作表(跟上面好像，但我覺得上面寫太複雜)