返回列表 上一主題 發帖

如何利用VBA製作各組權限

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
1# 跳轉到 »
發表於 2014-5-27 23:42 | 顯示全部帖子
本帖最後由 reangame 於 2014-5-27 23:45 編輯

回復 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或更多的編號，第二欄為人員姓名，第三欄為登入人員姓名
然後，要在輸入資料頁面的輸入上面的程式碼。
我是斯多

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題