如何利用VBA製作各組權限

cict4

各位大大 您好:

小魯剛學vba,但又急於在execl製做出各個不同人員的對於檔案內容執行權限,例如:

1~5-只能開起檔案及keyin資料;儲存檔案就無法修改任何資料.再開啟也不能修改先前資料!

6 ~ 9-能開起檔案,keyin資料及能修改資料

請問我該怎麼製作出出這樣的權限呢?希望大大可以幫忙!!

感恩!

reangame

回復 1# cict4

您好：
小弟也是剛學習VBA中，不過我依照您的需求能想到的如下：
一、檔案開啟時，先製作人員登入表單，將登入人員資料輸入到人員名冊
二、依照您的需求去製作不同權限的功能，幫您起個頭，程式碼如下：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Set sh = Sheets("人員名冊")
   
3.     pena = sh.Cells(3, 1).Value
   
4.     Set r = sh.Columns("B").Find(pena)
   
5.         If Not r Is Nothing Then
   
6.             pena = sh.Cells(r.Row, 1).Value
   
7.         End If
   
8.     Select Case pena
   
9.         Case 1 To 5
   
10.             MsgBox "第一權限"
    
11.         Case 6 To 9
    
12.             MsgBox "第二權限"
    
13.     End Select
    
14. End Sub

複製代碼

以上，是小弟的愚見，當然論壇中高手很多，再看看有沒有高手可以協助的吧！

補充一下，要先創立一個分頁叫做【人員名冊】，第一欄為1到10或更多的編號，第二欄為人員姓名，第三欄為登入人員姓名
然後，要在輸入資料頁面的輸入上面的程式碼。

cict4

親愛大大(reangame )

小弟,我看了一兩天,加上我又是剛進門的新人.
實在是"看不懂"的!

真是抱歉,不過我很想學!

不曉得你可以再說明點嗎?!