EXCELVBA登錄界面程序源代碼

EXCELVBA登錄界面程序源代碼在工作中可能遇到這種情況，就是有一個(gè)錄入工作需要多人協(xié)同完成，每個(gè)人所要錄入的部份又不相同，于是就在同一個(gè)EXCEL工作簿中建立多個(gè)工作表，當(dāng)某一個(gè)人錄入時(shí)，只打開(kāi)他需要操作的那個(gè)工作表，其他工作表自動(dòng)隱藏起來(lái)，防止被誤操作。我看到網(wǎng)上有不少朋友在找有這個(gè)功能的表格，于是就試著做了一個(gè)，跟大家分享一下。注意：由于EXCEL的VBA安全性非常低，網(wǎng)上有很多破解的方法，所以對(duì)那些數(shù)據(jù)安全性要求較高的請(qǐng)不要用這種方法。一、表格部份這個(gè)工作簿中有多個(gè)工作表，分成三類。第一類：工作簿的第一個(gè)工作表，里面沒(méi)有數(shù)據(jù)，只用于顯示登錄窗口，起名為“登錄”。由于在VBA代碼中要調(diào)用這個(gè)工作表，在實(shí)際使用時(shí)，這個(gè)名字不要改動(dòng)。第二類：工作簿的第二個(gè)工作表，里面存儲(chǔ)了各登錄人員的姓名、登錄密碼以及各人要操作的工作表（權(quán)限），起名為“設(shè)置”，這個(gè)工作表的名字同樣不要修改，里面的數(shù)據(jù)位置也不要改動(dòng)。第三類：工作簿的第三及以后的工作表，這些表都是登錄人員要操作的表格，應(yīng)根據(jù)自己的需要設(shè)置，我為了介紹方便，給他們起名為“表一”、“表二”、...，可以添加多個(gè)，表的名字也可任意。在做上面這些表時(shí)，只要注意“登錄”表的名字不要改、“設(shè)置”表的名字與數(shù)據(jù)位置不要改，其他部份可隨意。提示：如果非要改變“登錄”表與“設(shè)置”表的名字，必須在EXCEL中改名后，把VBA代碼中相關(guān)的名字也改過(guò)來(lái)才能正常使用。二、VBA部份上面表格部份完成后，就需要做VBA代碼了，在EXCEL窗口按ALT+F11調(diào)出VBA窗口。1、登錄窗體在工具欄中按“插入-用戶窗體”，添加一個(gè)窗體。將插入的窗體調(diào)整到適當(dāng)大小。2、代碼在所添加的窗體上雙擊鼠標(biāo)，然后把下面代碼粘貼進(jìn)去：PrivateSubCommandButton1_Click()OnErrorGoTo10'當(dāng)姓名與密碼不對(duì)應(yīng)時(shí)，會(huì)出現(xiàn)錯(cuò)誤，轉(zhuǎn)到10語(yǔ)句處理DimnAsStringSetsh=Sheets("設(shè)置")na=TextBox1.Text:ps=TextBox2.Text'取得登錄窗口中的姓名與密碼Ifna=""Orps=""ThenMsgBox"未輸入用戶名或密碼，不能登錄",,"提示":ExitSubs=WorksheetFunction.Match(na,sh.[a:a],0)'查找用戶在A列的位置n=sh.Cells(s,2)'取出“設(shè)置”表中的權(quán)限密碼，字符型Ifn<>psThenGoTo10Call隱藏表'檢查一下“設(shè)置”表的C列及右邊各格中的內(nèi)容，有內(nèi)容的，說(shuō)明可以打開(kāi)內(nèi)容所指定的工作表Fori=4To255b=sh.Cells(s,i).ValueIfb=1Andsh.Cells(1,i)<>""Then'單元格為1時(shí)，表示有權(quán)限打開(kāi)這個(gè)表，就讓它顯示出來(lái)Sheets(sh.Cells(1,i).Value).Visible=-1EndIfNextUnloadUserForm1'退出窗體ExitSub10：MsgBox"姓名或密碼錯(cuò)誤，不能登錄",,"提示"EndSubSub隱藏表()TextBox1.Text="":TextBox2.Text=""Fori=1ToWorksheets.CountIfSheets(i).Name<>"登錄"ThenSheets(i).Visible=2ElseSheets(i).Visible=-1'只讓“登錄”表顯示出來(lái)EndIfNextEndSubPrivateSubCommandButton2_Click()Call隱藏表EndSubPrivateSubUserForm_Activate()'窗體出現(xiàn)在屏幕上的位置Me.Top=220Me.Left=120EndSub代碼中都做了注釋，看不明白也不影響使用，只要粘貼上就行了。再用鼠標(biāo)雙擊左側(cè)的thisworkbook模塊，把下面代碼粘貼上去。PrivateSubWorkbook_BeforeClose(CancelAsBoolean)CallUserForm1.隱藏表ActiveWorkbook.Save'保存當(dāng)前工作簿文檔EndSubPrivateSubWorkbook_Open()CallUserForm1.隱藏表UserForm1.Show'加載登錄窗體EndSub再用鼠標(biāo)雙擊左側(cè)“設(shè)置”表模塊，把下面代碼粘貼上去。PrivateSubWorksheet_Activate()'將各工作表的名字填入第一行中Fori=2ToWorksheets.CountCells(1,i+2)=Sheets(i).NameNextEndSub再用鼠標(biāo)雙擊左側(cè)“登錄”表模塊，把下面代碼粘貼上去。最后給VBA加上一個(gè)保護(hù)密碼，防止其他人員改動(dòng)代碼。按“工具-VBAProject屬性”，調(diào)出“VBAProject”屬性窗口，選“保護(hù)”選項(xiàng)卡，按下圖設(shè)置就行了。至此就完成了整個(gè)制做過(guò)程，關(guān)閉VBA窗口回到EXCEL窗口，就可以在這個(gè)工作簿中添加你要操作的全部工作表了，注意添加的位置在“設(shè)置”工作表的右邊。使用時(shí)的注意事項(xiàng)：1、在“登錄”工作表中，登錄窗體是自動(dòng)顯示的，只要輸入姓名、密碼正確，按“登錄”按鈕，就會(huì)根據(jù)“設(shè)置”表中的權(quán)限，自動(dòng)打開(kāi)該操作者所要操作的工作表，與他無(wú)關(guān)的表會(huì)自動(dòng)隱藏。2、當(dāng)以管理員身份（本例中的“張三”）登錄后，只要一打開(kāi)“設(shè)置”工作表，就能自動(dòng)在D1單元格及右邊的各單元格中更新工作表名字。3、任何操作者在操作完成后，要在“登錄”窗體上點(diǎn)擊“退出”按鈕，以便關(guān)閉所操作的工作表。4、為了保證登錄功能正常運(yùn)行，在打開(kāi)工作簿時(shí)一定要啟用宏。另外，為了保證工作簿在關(guān)閉時(shí)只顯示“登錄”工作表，會(huì)自動(dòng)將其他表隱藏并保存工作簿。補(bǔ)充說(shuō)明：如果想在登錄窗口的密碼框不顯示“明文”，只顯示一串星號(hào)“***”，可以用下面方法設(shè)置。打開(kāi)VBA窗口，用鼠標(biāo)選中登錄窗體的密碼文本框textbox2,在左邊“屬性”窗口中找到passwordChar屬性，輸入一個(gè)星號(hào)就行了。補(bǔ)充2有朋友提出，在顯示登錄窗口時(shí)，不想手工輸入“姓名”，最好用下拉框選擇“姓名”，想實(shí)現(xiàn)這個(gè)功能，只要把登錄窗口中的姓名“文本框”刪除，換成一個(gè)“復(fù)合框”，再改一下代碼就可以了。1、改文本框?yàn)閺?fù)合框2、修改代碼分兩步，先把原代碼中的所有“TextBox1.Text”替換成“ComboBox1.Text”（提示：可以在VBA窗口中按“編輯-替換”，輸入內(nèi)容后選“全部替換”即可）。再將原代碼中的下面這段：PrivateSubUserForm_Activate()'窗體出現(xiàn)在屏幕上的位置Me.Top=220Me.Left=120EndSub替換成：PrivateSubUserForm_Activate()'窗體出現(xiàn)在屏幕上的位置Me.Top=220Me.Left