[问题] Excel 共用怎么设定权限、不能编辑 隐藏

楼主: ilf0121 (思想的崛起)   2022-09-23 07:43:12
软件:EXCEL
请问各位大神
Excel 共用怎么设定权限、有些不给使用者输入、还有些要隐藏字段
目前有找到部分资料 是要写VBA的
但好像是写整个分页隐藏还有使用者的权限区别看不懂
请问能否有大大开释
档案有五个分页
要在其中一个分页
比如 A和B使用者 能全部权限
C和D使用者 不能编辑K和L栏
E和F使用者无法察看N跟O栏
然后另外一个分页只有A和B能察看,其他都不行
这样的写法 愿意奉上本帐号的一半P币
恳请大神解惑
谢谢大神
1 Sub abc()
2 工作表1.Visible = xlSheetVeryHidden
3 工作表2.Protect ("123456")
4 End Sub
1 Sub myProtectSharing()
2
3 Dim myPWD As String
4 myPWD = "mypass"
5
6 Application.DisplayAlerts = False
7
8 With Worksheets("Sheet2")
9 .Select
10
11 Range("A1:B5").Select
12 Selection.Locked = False
13 Selection.FormulaHidden = False
14
15 .EnableOutlining = True
16 .Unprotect myPWD
17 .Protect Password:=myPWD, UserInterfaceOnly:=True
18 End With
19 Worksheets("Sheet3").Visible = False
20
21 With ActiveWorkbook
22 'ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName,
Accessmode:=xlShared
23 .ProtectSharing Password:=myPWD, SharingPassword:=myPWD
24 .SaveAs ActiveWorkbook.FullName
25 End With
26
27 Application.DisplayAlerts = True
28 End Sub
29
30 Sub myUnProtectSharing()
31 myPWD = InputBox("请输入密码!")
32 If myPWD <> "mypass" Then
33 MsgBox "Wrong password!"
34 Else
35 Application.DisplayAlerts = False
36 ActiveWorkbook.UnProtectSharing SharingPassword:=myPWD
37 ActiveWorkbook.Unprotect myPWD
38 Worksheets("Sheet2").Unprotect Password:=myPWD
39 Application.DisplayAlerts = True
40 Worksheets("Sheet3").Visible = True
41 End If
42 End Sub

Links booklink

Contact Us: admin [ a t ] ucptt.com