作者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/m.aspx?n=bbs/Office/M.1663890194.A.349.html