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