求教！excel表不同分级密码设置，VBA代码怎么写？

对VBA代码，刚接触，希望大神们能帮忙，并带简单解释 谢谢了

嗯，之前做过一个多用户登录的表格，想法是这样的，在表格内建一个名为 权限 的SHEET
图片如下

D1:J1为SHEET名
d2:j5为权限，2级最高，不隐藏，不设密码。1级可以查看，但有密码，0隐藏
主要的代码如下，供参考
设置权限段的代码如下，供参考
For a = 4 To UBound(arr, 2) - 1 'arr=.usedrange, for a =4 到数组的第二维（列数），因为我后面还有一列内容，所以减1
Select Case arr(r, a) 'r为登录时符合用户名，密码那一行，
Case 2 '全部权限
Sheets(arr(1, a)).Visible = True ’表格可见
Sheets(arr(1, a)).Unprotect Password:=123 '解开保护
Case 1 '打开查看，但表有密码,结构及窗口保护 Sheets(arr(1, a)).Visible = True
Sheets(arr(1, a)).Protect Password:=123 '工作保护，并设定密码为123
Case 0 '隐藏，有密码
Sheets(arr(1, a)).Visible = False '隐 藏
Sheets(arr(1, a)).Protect Password:=123
End Select
Next a

Sub aaa()
Dim i%, a%, s, arr
s = [e7]
arr = Sheets("权限").UsedRange.Value
For i = 1 To UBound(arr)
If arr(i, 1) = s Then
r = i
Exit For
End If
Next i
For a = 4 To UBound(arr, 2) 'arr=.usedrange, for a =4 到数组的第二维（列数），因为我后面还有一列内容，所以减1
Select Case arr(r, a) 'r为登录时符合用户名，密码那一行，
Case 2 '全部权限
Sheets(arr(1, a)).Visible = True '表格可见
Sheets(arr(1, a)).Unprotect Password:=123 '解开保护
Case 1 '打开查看，但表有密码,结构及窗口保护
Sheets(arr(1, a)).Visible = True
Sheets(arr(1, a)).Protect Password:=123 '工作保护，并设定密码为123
Case 0 '隐藏，有密码
Sheets(arr(1, a)).Visible = False '隐 藏
Sheets(arr(1, a)).Protect Password:=123
End Select
Next a
MsgBox "完成"
End Sub


，因为我后面还有一列内容，所以减1
上面这一句可以不用理会