国产免费一区二区三区最新,中文字幕精品一区,成人午夜国产福到在线

驚了！每天按時下班的男同事，私下竟用Excel搞「多人運(yùn)動」！【excel教程】

2020.10.30

全套Excel視頻教程，掃碼觀看

編按：

哈嘍，大家好！在日常工作中，工作表經(jīng)常會被多人編輯，為此，我們往往需要為不同的人設(shè)置不同的查看權(quán)限，以實(shí)現(xiàn)工作表的分級保密。下面分享一種用VBA設(shè)置權(quán)限的方法，它擁有高逼格的用戶登錄界面，以及完善的分級保密機(jī)制，趕緊來看看吧！

提到“多人運(yùn)動”，你一定以為小花一言不合就開車。你錯了！作為一個正經(jīng)的Excel教程作者，小花說的多人運(yùn)動，指的是同一個Excel表格經(jīng)常需要由多人編輯，供多人使用。

溫馨提示：加入下面QQ群：1043683754，下載教程配套的課件練習(xí)操作。

Excel中的多人運(yùn)動，往往需要賦予不同的人不同的查看權(quán)限，從而做到分級保密。簡單地通過文件保護(hù)不能區(qū)分權(quán)限，而通過簡單地隱藏工作表又太容易被取消，形同虛設(shè)！為此，小花深夜不睡，YY了一個VBA授權(quán)查閱套路，相信小花瓣看完一定會由衷嘆一句：666！

第一步：建立權(quán)限表

賦予不同角色不同的查看權(quán)限是“多人運(yùn)動”表格的重頭戲，我們通過建立權(quán)限表來實(shí)現(xiàn)這一功能。從權(quán)限表第三行開始，我們需要將工作簿中的所有工作表名稱依次填寫；而從第二列開始的每一列，則用于填寫每個角色的用戶名、密碼和對應(yīng)的權(quán)限(用是否表示)。由此，我們可以自由添加工作表和查看角色，不受初始設(shè)置的限制。詳見下表。

PS：建立權(quán)限表后，我們需要將文件保存為啟用宏的工作簿，文件類型為.xlsm。

第二步：創(chuàng)建窗體

通過窗體驗(yàn)證用戶權(quán)限是“多人運(yùn)動”表格的門面，它讓這套表的逼格瞬間提升了好幾個檔次有木有。如此裝逼必備老少皆宜的窗體，該如何創(chuàng)建呢？

1. 按Alt+F11，或者點(diǎn)擊開發(fā)工具中的Visual Basic按鈕，打開VBA窗口。

2. 點(diǎn)擊【插入】–【用戶窗體】，在彈出的界面中繪制兩個標(biāo)簽，分別為用戶名和密碼，同時插入兩個文本框和兩個命令按鈕(取消和確定)。具體插入方式和Excel工作表中插入形狀無異，此處不再贅述。

第三步：按鈕代碼

VBA代碼是這套“多人運(yùn)動”表格的靈魂，表格之所以能夠?qū)崿F(xiàn)酷炫的分權(quán)功能，全在于這寥寥數(shù)語！所以，拿走不謝！

具體操作如下：

1. 雙擊窗體中的“確定”按鈕，將下述代碼粘貼到VBA代碼窗口中即可。該段代碼可以實(shí)現(xiàn)單擊“確定”按鈕，即啟動校驗(yàn)用戶密碼并將對應(yīng)的表格顯示出來的功能。

Private Sub CommandButton1_Click()Dim j, i As Integermaxr = Application.CountA(Sheets("權(quán)限表").Range("A:A"))maxc = Application.CountA(Sheets("權(quán)限表").Range("1:1"))If TextBox1.Value = "" Then MsgBox "用戶名不能為空", vbInformation, "注意": Exit SubIf TextBox2.Value = "" Then MsgBox "密碼名不能為空", vbInformation, "注意": Exit SubFor i = 2 To maxc u = Worksheets("權(quán)限表").Cells(1, i) k = Worksheets("權(quán)限表").Cells(2, i) If TextBox1.Text = u And TextBox2.Text = k Then Unload Me Application.Visible = True Application.EnableCancelKey = xlInterrupt For j = maxr to 3 step -1 ThisWorkbook.Activate If Sheets("權(quán)限表").Cells(j, i) = "是" Then Sheets(j - 2).Visible = xlSheetVisible Else Sheets(j - 2).Visible = xlSheetVeryHidden End If Next j If Sheets("權(quán)限表").Visible = xlSheetVisible Then pw = "excelinexcel" Sheets("權(quán)限表").Unprotect Password = pw Cells.Select Selection.EntireColumn.Hidden = False End If Exit Sub End IfNext iMsgBox "用戶名或密碼錯誤！"End Sub

2.雙擊窗體中的“取消”按鈕，同樣粘貼下述VBA代碼。該段代碼功能很簡單，即退出Excel。

Private Sub CommandButton2_Click()Application.DisplayAlerts = FalseUnload MeApplication.Visible = TrueApplication.QuitApplication.EnableEvents = FalseEnd Sub

3. 在兩段代碼的下方，粘貼以下VBA代碼，用于防止用戶通過關(guān)閉窗體入侵。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = TrueEnd Sub

4. 雙擊對象窗口中的ThisWorkbook，將下方代碼粘貼到代碼窗口中去。這兩段代碼實(shí)現(xiàn)了打開工作簿即彈出窗體開始驗(yàn)證，并保護(hù)和隱藏工作表行列，避免用戶通過禁用宏來越權(quán)查看。

工作簿打開事件代碼：

Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.DisplayAlerts = FalseSheets(1).Visible = xlSheetVisibleDim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "權(quán)限表" Thensht.Visible = xlSheetVeryHiddenElsesht.SelectCells.EntireColumn.Hidden = Truepw = "excelinexcel"sht.Protect Password = pwsht.EnableSelection = xlNoSelectionEnd IfNextApplication.Visible = FalseThisWorkbook.Close savechanges:=TrueEnd Sub

工作簿關(guān)閉事件代碼

Private Sub Workbook_Open() Application.DisplayAlerts = False Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.ShowEnd Sub

5. 保護(hù)VBA工程，確保用戶無法刪除、查看或修改。

操作步驟：

點(diǎn)擊【工具】-【VBAProject屬性】，彈出【VBAProject-工程屬性】對話框，選擇【保護(hù)】選項(xiàng)卡，輸入【查看工程屬性的密碼】，點(diǎn)擊【確定】即可。