用VBA編制用戶(hù)權(quán)限管理系統(tǒng)

正 確 學(xué) 會(huì) Excel VBA的 16堂 課 用VBA編制用戶(hù)權(quán)限管理系統(tǒng)創(chuàng)建管理用戶(hù)權(quán)限的窗體保護(hù)設(shè)計(jì)完成的使用權(quán)限管理系統(tǒng)應(yīng)用用戶(hù)權(quán)限管理系統(tǒng) 創(chuàng)建管理用戶(hù)權(quán)限的窗體創(chuàng)建“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”和“用戶(hù)權(quán)限”工作表創(chuàng)建【登錄】窗體創(chuàng)建【注冊(cè)】窗體創(chuàng)建【更改用戶(hù)權(quán)限】窗體 創(chuàng)建“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”和“用戶(hù)權(quán)限”工作表具體操作步驟如下：步驟1：新建一個(gè)工作薄并將其保存為“用戶(hù)權(quán)限管理系統(tǒng)”；將“Sheet1”工作表的名稱(chēng)設(shè)置為“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”，最后合并A1：I1之間的單元格，在其中輸入文本“用戶(hù)權(quán)限管理系統(tǒng)”，如圖14-1所示。步驟2：選中A1單元格并右擊，在彈出菜單中選擇【設(shè)置單元格格式】菜單項(xiàng)，即可打開(kāi)【設(shè)置單元格格式】對(duì)話框，如圖14-2所示。在【字體】選項(xiàng)卡“字體”列表框中選擇“華文宋體”選項(xiàng)；在“字形”列表框中選擇“加粗”選項(xiàng)；在“字號(hào)”列表框中選擇“16”選項(xiàng)，在“顏色”下拉列表中選擇相應(yīng)的顏色。 創(chuàng)建“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”和“用戶(hù)權(quán)限”工作表具體操作步驟如下：步驟3：選擇【填充】選項(xiàng)卡，在“背景色”欄中選擇需要填充的顏色，如圖14-3所示。單擊【確定】按鈕，即可看到設(shè)置后的單元格字體和填充效果，如圖14-4所示。步驟4：分別合并A2:A6、A7:A11、B2:I2、B3:I3、B4:I4、B5:I5、B6:I6 以及B8:I10之間的單元格，合并后的效果如圖14-5所示。 創(chuàng)建“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”和“用戶(hù)權(quán)限”工作表具體操作步驟如下：步驟5：為了表格的美觀，需要使用自動(dòng)換行功能。選中B2：I7之間單元格，在右擊彈出菜單中選擇【設(shè)置單元格格式】選項(xiàng)，即可打開(kāi)【設(shè)置單元格格式】對(duì)話框，在【對(duì)齊】選項(xiàng)卡“水平對(duì)齊”下拉列表中選擇“靠左”選項(xiàng)；在“文本控制”區(qū)域中勾選“自動(dòng)換行”復(fù)選項(xiàng)，如圖14-6所示。單擊【確定】按鈕，即可啟動(dòng)“自動(dòng)換行”功能。步驟6：設(shè)置其他已合并的單元格對(duì)齊方式。分別在A2:I10之間的單元格區(qū)域內(nèi)輸入有關(guān)“用戶(hù)權(quán)限管理系統(tǒng)”的說(shuō)明文字，如圖14-7所示。 創(chuàng)建“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”和“用戶(hù)權(quán)限”工作表具體操作步驟如下：步驟7：設(shè)置A2:B6之間單元格的邊框和填充屬性，如圖14-8所示?！坝脩?hù)權(quán)限管理系統(tǒng)說(shuō)明”工作表就制作完成了，用戶(hù)可以考慮添加一些圖片和動(dòng)畫(huà)等內(nèi)容。步驟8：創(chuàng)建“用戶(hù)權(quán)限”工作表，在“用戶(hù)權(quán)限管理系統(tǒng)”工作薄中將“Sheet2”工作表重命名為“用戶(hù)權(quán)限”；合并A1：E1之間的單元格，在其中輸入文本“用戶(hù)權(quán)限管理”，如圖14-9所示。 創(chuàng)建“用戶(hù)權(quán)限管理系統(tǒng)說(shuō)明”和“用戶(hù)權(quán)限”工作表具體操作步驟如下：步驟9：選中合并后的A1單元格，設(shè)置該元格的字體和填充屬性，如圖14-10所示。在B3:D10之間的單元格中分別輸入已經(jīng)注冊(cè)用戶(hù)的編號(hào)、級(jí)別、密碼等信息，如圖14-11所示。步驟10：拖動(dòng)鼠標(biāo)選中B3:D30之間單元格，再采用設(shè)置邊框的方法給這些單元格設(shè)置行高、填充背景色和邊框，設(shè)置完畢后的效果如圖14-12所示。 保護(hù)設(shè)計(jì)完成的用戶(hù)權(quán)限管理系統(tǒng)隱藏工程代碼鎖定工程 鎖定工程具體的操作步驟如下：步驟1：在【Microsoft Visual Basic for Application】主窗口可對(duì)工程進(jìn)行保護(hù)，在【Microsoft Visual Basic for Application】主窗口中選擇“VBAProject（用戶(hù)權(quán)限管理系統(tǒng)）”工程，如圖14-84所示。步驟2：在右擊彈出菜單中選擇【VBAProject屬性】菜單項(xiàng)，即可打開(kāi)【VBA Project-工程屬性】對(duì)話框，在【保護(hù)】選項(xiàng)卡“鎖定工程”組合框勾選“查看時(shí)鎖定工程”復(fù)選項(xiàng)，在“查看工程屬性的密碼”組合框中的“密碼”和“確認(rèn)密碼”文本框輸入相同的密碼，這里輸入的是123456，如圖14-85所示。 鎖定工程具體的操作步驟如下：步驟3：?jiǎn)螕簟敬_定】按鈕，即可對(duì)該工程進(jìn)行保護(hù)。再次打開(kāi)“用戶(hù)權(quán)限管理系統(tǒng)”工作薄，再打開(kāi)【Microsoft Visual Basic for Application】主窗口，在其中看到“用戶(hù)權(quán)限管理系統(tǒng)”工程已經(jīng)被鎖定，如圖14-86所示。步驟4：雙擊“VBAProject（用戶(hù)權(quán)限管理系統(tǒng)）”工程，即可打開(kāi)【VBAProject密碼】對(duì)話框，如圖14-87所示。如果在“密碼”文本框中輸入一個(gè)錯(cuò)誤的密碼，單擊【確定】按鈕，即可打開(kāi)【無(wú)效的密碼】提示框，如圖14-88所示。 鎖定工程具體的操作步驟如下：步驟5：只有在“密碼”文本框中輸入正確的密碼（123）之后，單擊【確定】按鈕，方可在【Microsoft Visual Basic for Application】主窗口看到“用戶(hù)權(quán)限管理系統(tǒng)”工程已經(jīng)變成可用狀態(tài)，如圖14-89所示。步驟6：如果想取消鎖定工程，則需在【VBAProject-工程屬性】對(duì)話框取消勾選“查看時(shí)鎖定工程”復(fù)選框，單擊【確定】按鈕，即可成功取消鎖定工程。 應(yīng)用用戶(hù)權(quán)限管理系統(tǒng)驗(yàn)證用戶(hù)權(quán)限管理系統(tǒng) 1. 未注冊(cè)用戶(hù) 2一般用戶(hù) 3高級(jí)用戶(hù) 4管理員將用戶(hù)權(quán)限管理系統(tǒng)保存為模板 管理員具體的操作步驟如下：步驟1：在【登錄窗口】對(duì)話框中的“用戶(hù)名”下拉列表中選擇一個(gè)管理員用戶(hù)，例如“Administrator”，并在“密碼”文本框中輸入“Administrator”，如圖14-106所示。步驟2：?jiǎn)螕簟镜卿洝堪粹o，即可自動(dòng)關(guān)閉【登錄窗口】對(duì)話框并進(jìn)入用戶(hù)權(quán)限管理系統(tǒng)”工作薄中，在“用戶(hù)權(quán)限”工作表中可看到設(shè)置的用戶(hù)權(quán)限，在其中可看到所有已注冊(cè)的用戶(hù)信息，如圖14-107所示。 管理員具體的操作步驟如下：步驟3：?jiǎn)螕簟靖挠脩?hù)權(quán)限】按鈕，即可打開(kāi)【更改用戶(hù)權(quán)限】對(duì)話框，如圖14-108所示。在“請(qǐng)輸入用戶(hù)名”下拉列表中選擇“SL04012”選項(xiàng)，此時(shí)在“用戶(hù)名”和“當(dāng)前用戶(hù)級(jí)別”文本框中分別顯示該用戶(hù)的用戶(hù)名和當(dāng)前級(jí)別，如圖14-109所示。步驟4：在“更改用戶(hù)級(jí)別為”下拉列表中選擇“高級(jí)用戶(hù)”選項(xiàng)，單擊【確定】按鈕，即可打開(kāi)【用戶(hù)權(quán)限更改成功】對(duì)話框，如圖14-110所示。 管理員具體的操作步驟如下：步驟5：在【更改用戶(hù)權(quán)限】對(duì)話框中單擊【取消】按鈕，即可取消對(duì)該用戶(hù)信息的選擇，看到“用戶(hù)名”和“當(dāng)前用戶(hù)級(jí)別”文本框中信息已經(jīng)被清空，如圖14-111所示。步驟6：在【更改用戶(hù)權(quán)限】對(duì)話框中單擊【取消】按鈕，即可返回“用戶(hù)權(quán)限”工作表中，在其中看到“SL04012”用戶(hù)的級(jí)別已經(jīng)變?yōu)椤案呒?jí)用戶(hù)”，如圖14-112所示。步驟7：將“SL04011”用戶(hù)級(jí)別更改為“管理員”，如圖14-113所示。管理員可提升或降低每個(gè)注冊(cè)用戶(hù)的用戶(hù)級(jí)別。管理員還可以在“用戶(hù)資料表”工作表修改用戶(hù)的信息。 專(zhuān)家課堂（常見(jiàn)問(wèn)題與解答）點(diǎn)撥1：在用戶(hù)權(quán)限管理系統(tǒng)設(shè)計(jì)完成后，為什么還要隱藏工程代碼和鎖定工程？解答：之所以要進(jìn)行隱藏工程代碼和鎖定工程操作，是為避免用戶(hù)通過(guò)【登錄窗口】進(jìn)入工作薄，單擊“代碼”組中的【Visual Basic】按鈕，在打開(kāi)窗口中可對(duì)創(chuàng)建的用戶(hù)權(quán)限管理系統(tǒng)進(jìn)行修改。點(diǎn)撥2：在創(chuàng)建【注冊(cè)】窗體后，為什么要在“模塊1”代碼編輯窗口中設(shè)置“change”函數(shù)？解答：在“模塊1”代碼編輯窗口中設(shè)置“change”函數(shù)的原因在于：只有通過(guò)單擊【更改用戶(hù)權(quán)限】按鈕才可以打開(kāi)【更改用戶(hù)權(quán)限】窗體，而【更改用戶(hù)權(quán)限】按鈕對(duì)應(yīng)的“宏名”為“change”。所以“change”函數(shù)就是【更改用戶(hù)權(quán)限】按鈕指定宏的內(nèi)容。