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

1、正確學(xué)會Excel VBA的16堂課用VBA編制用戶權(quán)限管理系統(tǒng)創(chuàng)建管理用戶權(quán)限的窗體保護(hù)設(shè)計(jì)完成的使用權(quán)限管理系統(tǒng)應(yīng)用用戶權(quán)限管理系統(tǒng)創(chuàng)建管理用戶權(quán)限的窗體創(chuàng)建管理用戶權(quán)限的窗體 創(chuàng)建“用戶權(quán)限管理系統(tǒng)說明”和“用戶權(quán)限”工作表 創(chuàng)建【登錄】窗體 創(chuàng)建【注冊】窗體 創(chuàng)建【更改用戶權(quán)限】窗體創(chuàng)建創(chuàng)建“用戶權(quán)限管理系統(tǒng)說明用戶權(quán)限管理系統(tǒng)說明”和和“用戶權(quán)限用戶權(quán)限”工作表工作表具體操作步驟如下：步驟1：新建一個(gè)工作薄并將其保存為“用戶權(quán)限管理系統(tǒng)”；將“Sheet1”工作表的名稱設(shè)置為“用戶權(quán)限管理系統(tǒng)說明”，最后合并A1：I1之間的單元格，在其中輸入文本“用戶權(quán)限管理系統(tǒng)”，如圖14-1所示

2、。步驟2：選中A1單元格并右擊，在彈出菜單中選擇【設(shè)置單元格格式】菜單項(xiàng)，即可打開【設(shè)置單元格格式】對話框，如圖14-2所示。在【字體】選項(xiàng)卡“字體”列表框中選擇“華文宋體”選項(xiàng)；在“字形”列表框中選擇“加粗”選項(xiàng)；在“字號”列表框中選擇“16”選項(xiàng)，在“顏色”下拉列表中選擇相應(yīng)的顏色。創(chuàng)建創(chuàng)建“用戶權(quán)限管理系統(tǒng)說明用戶權(quán)限管理系統(tǒng)說明”和和“用戶權(quán)限用戶權(quán)限”工作表工作表具體操作步驟如下：步驟3：選擇【填充】選項(xiàng)卡，在“背景色”欄中選擇需要填充的顏色，如圖14-3所示。單擊【確定】按鈕，即可看到設(shè)置后的單元格字體和填充效果，如圖14-4所示。步驟4：分別合并A2:A6、A7:A11、B2:I

3、2、B3:I3、B4:I4、B5:I5、B6:I6 以及B8:I10之間的單元格，合并后的效果如圖14-5所示。創(chuàng)建創(chuàng)建“用戶權(quán)限管理系統(tǒng)說明用戶權(quán)限管理系統(tǒng)說明”和和“用戶權(quán)限用戶權(quán)限”工作表工作表具體操作步驟如下：步驟5：為了表格的美觀，需要使用自動(dòng)換行功能。選中B2：I7之間單元格，在右擊彈出菜單中選擇【設(shè)置單元格格式】選項(xiàng)，即可打開【設(shè)置單元格格式】對話框，在【對齊】選項(xiàng)卡“水平對齊”下拉列表中選擇“靠左”選項(xiàng)；在“文本控制”區(qū)域中勾選“自動(dòng)換行”復(fù)選項(xiàng)，如圖14-6所示。單擊【確定】按鈕，即可啟動(dòng)“自動(dòng)換行”功能。步驟6：設(shè)置其他已合并的單元格對齊方式。分別在A2:I10之間的單元格

4、區(qū)域內(nèi)輸入有關(guān)“用戶權(quán)限管理系統(tǒng)”的說明文字，如圖14-7所示。創(chuàng)建創(chuàng)建“用戶權(quán)限管理系統(tǒng)說明用戶權(quán)限管理系統(tǒng)說明”和和“用戶權(quán)限用戶權(quán)限”工作表工作表具體操作步驟如下：步驟7：設(shè)置A2:B6之間單元格的邊框和填充屬性，如圖14-8所示?！坝脩魴?quán)限管理系統(tǒng)說明”工作表就制作完成了，用戶可以考慮添加一些圖片和動(dòng)畫等內(nèi)容。步驟8：創(chuàng)建“用戶權(quán)限”工作表，在“用戶權(quán)限管理系統(tǒng)”工作薄中將“Sheet2”工作表重命名為“用戶權(quán)限”；合并A1：E1之間的單元格，在其中輸入文本“用戶權(quán)限管理”，如圖14-9所示。創(chuàng)建創(chuàng)建“用戶權(quán)限管理系統(tǒng)說明用戶權(quán)限管理系統(tǒng)說明”和和“用戶權(quán)限用戶權(quán)限”工作表工作表具體操

5、作步驟如下：步驟9：選中合并后的A1單元格，設(shè)置該元格的字體和填充屬性，如圖14-10所示。在B3:D10之間的單元格中分別輸入已經(jīng)注冊用戶的編號、級別、密碼等信息，如圖14-11所示。步驟10：拖動(dòng)鼠標(biāo)選中B3:D30之間單元格，再采用設(shè)置邊框的方法給這些單元格設(shè)置行高、填充背景色和邊框，設(shè)置完畢后的效果如圖14-12所示。保護(hù)設(shè)計(jì)完成的用戶權(quán)限管理系統(tǒng)保護(hù)設(shè)計(jì)完成的用戶權(quán)限管理系統(tǒng) 隱藏工程代碼 鎖定工程鎖定工程鎖定工程具體的操作步驟如下：步驟1：在【Microsoft Visual Basic for Application】主窗口可對工程進(jìn)行保護(hù)，在【Microsoft Visual

6、Basic for Application】主窗口中選擇“VBAProject（用戶權(quán)限管理系統(tǒng)）”工程，如圖14-84所示。步驟2：在右擊彈出菜單中選擇【VBAProject屬性】菜單項(xiàng)，即可打開【VBA Project-工程屬性】對話框，在【保護(hù)】選項(xiàng)卡“鎖定工程”組合框勾選“查看時(shí)鎖定工程”復(fù)選項(xiàng)，在“查看工程屬性的密碼”組合框中的“密碼”和“確認(rèn)密碼”文本框輸入相同的密碼，這里輸入的是123456，如圖14-85所示。鎖定工程鎖定工程具體的操作步驟如下：步驟3：單擊【確定】按鈕，即可對該工程進(jìn)行保護(hù)。再次打開“用戶權(quán)限管理系統(tǒng)”工作薄，再打開【Microsoft Visual Basi

7、c for Application】主窗口，在其中看到“用戶權(quán)限管理系統(tǒng)”工程已經(jīng)被鎖定，如圖14-86所示。步驟4：雙擊“VBAProject（用戶權(quán)限管理系統(tǒng)）”工程，即可打開【VBAProject密碼】對話框，如圖14-87所示。如果在“密碼”文本框中輸入一個(gè)錯(cuò)誤的密碼，單擊【確定】按鈕，即可打開【無效的密碼】提示框，如圖14-88所示。鎖定工程鎖定工程具體的操作步驟如下：步驟5：只有在“密碼”文本框中輸入正確的密碼（123）之后，單擊【確定】按鈕，方可在【Microsoft Visual Basic for Application】主窗口看到“用戶權(quán)限管理系統(tǒng)”工程已經(jīng)變成可用狀態(tài)，如

8、圖14-89所示。步驟6：如果想取消鎖定工程，則需在【VBAProject-工程屬性】對話框取消勾選“查看時(shí)鎖定工程”復(fù)選框，單擊【確定】按鈕，即可成功取消鎖定工程。應(yīng)用用戶權(quán)限管理系統(tǒng)應(yīng)用用戶權(quán)限管理系統(tǒng) 驗(yàn)證用戶權(quán)限管理系統(tǒng) 1. 未注冊用戶 2一般用戶 3高級用戶 4管理員 將用戶權(quán)限管理系統(tǒng)保存為模板管理員管理員具體的操作步驟如下：步驟1：在【登錄窗口】對話框中的“用戶名”下拉列表中選擇一個(gè)管理員用戶，例如“Administrator”，并在“密碼”文本框中輸入“Administrator”，如圖14-106所示。步驟2：單擊【登錄】按鈕，即可自動(dòng)關(guān)閉【登錄窗口】對話框并進(jìn)入用戶權(quán)限管

9、理系統(tǒng)”工作薄中，在“用戶權(quán)限”工作表中可看到設(shè)置的用戶權(quán)限，在其中可看到所有已注冊的用戶信息，如圖14-107所示。管理員管理員具體的操作步驟如下：步驟3：單擊【更改用戶權(quán)限】按鈕，即可打開【更改用戶權(quán)限】對話框，如圖14-108所示。在“請輸入用戶名”下拉列表中選擇“SL04012”選項(xiàng)，此時(shí)在“用戶名”和“當(dāng)前用戶級別”文本框中分別顯示該用戶的用戶名和當(dāng)前級別，如圖14-109所示。步驟4：在“更改用戶級別為”下拉列表中選擇“高級用戶”選項(xiàng)，單擊【確定】按鈕，即可打開【用戶權(quán)限更改成功】對話框，如圖14-110所示。管理員管理員具體的操作步驟如下：步驟5：在【更改用戶權(quán)限】對話框中單擊【

10、取消】按鈕，即可取消對該用戶信息的選擇，看到“用戶名”和“當(dāng)前用戶級別”文本框中信息已經(jīng)被清空，如圖14-111所示。步驟6：在【更改用戶權(quán)限】對話框中單擊【取消】按鈕，即可返回“用戶權(quán)限”工作表中，在其中看到“SL04012”用戶的級別已經(jīng)變?yōu)椤案呒売脩簟?，如圖14-112所示。步驟7：將“SL04011”用戶級別更改為“管理員”，如圖14-113所示。管理員可提升或降低每個(gè)注冊用戶的用戶級別。管理員還可以在“用戶資料表”工作表修改用戶的信息。專家課堂（常見問題與解答）專家課堂（常見問題與解答）點(diǎn)撥點(diǎn)撥1：在用戶權(quán)限管理系統(tǒng)設(shè)計(jì)完成后，為什么還要隱藏工程代碼和鎖定工程？解答：解答：之所以要進(jìn)行隱藏工程代碼和鎖定工程操作，是為避免用戶通過【登錄窗口】進(jìn)入工作薄，單擊“代碼”組中的【Visual Basic】按鈕，在打開窗口中可對創(chuàng)建的用戶權(quán)限管理系統(tǒng)進(jìn)行修改。點(diǎn)撥點(diǎn)撥2：在創(chuàng)建【注冊