作者ilf0121 (思想的崛起)
看板Office
标题[问题] Excel 共用怎麽设定权限、不能编辑 隐藏
时间Fri Sep 23 07:43:12 2022
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 118.169.111.31 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1663890194.A.349.html