使用Protect方法和Unprotect方法如何實現(xiàn)Excel工作簿的保護
Excel工作簿的保護是指不允許對Excel工作簿進行增刪改操作,比如不能在工作簿中新增工作表,或者是不能在工作簿中刪除工作表,更改工作表的名稱等操作。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于使用Protect方法和Unprotect方法實現(xiàn)Excel工作簿的保護,希望對您有所幫助。
使用Protect方法和Unprotect方法實現(xiàn)Excel工作簿的保護
1、啟動Excel并打開Visual Basic編輯器,在工程資源管理器中插入一個模塊,在該模塊的“代碼”窗口中輸入VBA代碼,如圖1所示。該程序代碼用于為工作簿添加保護,具體代碼如下所示:
Sub ProtectWorkbook()
ActiveWorkbook.Protect Password:="123",Structure:=True '添加保護
End Sub
圖1 在“代碼”窗口中添加程序代碼
提示
Protect方法保護3個參數(shù),它們分別是Password、Structure和Windows。其中,Password參數(shù)用于指定保護密碼;Structure參數(shù)設(shè)置為True時,將保護工作簿結(jié)構(gòu),此時無法對工作簿中的工作表進行插入、刪除和復(fù)制等操作;Windows參數(shù)設(shè)置為True時,將保護工作簿窗口,此時無法對窗口進行最小化、最大化和關(guān)閉操作。
2、如果需要解除對工作簿添加的密碼保護,可以在“代碼”窗口中添加代碼,如圖2所示。具體程序代碼如下所示:
Sub UnprotectWorkbook()
ActiveWorkbook.Unprotect"123" '取消密碼保護
End Sub
圖2 添加用于解除工作簿保護的程序代碼
3、運行ProtectWorkbook過程,將無法對工作簿中的工作表進行增刪等操作,同時工作簿窗口左上角的最大化、最小化等按鈕消失,該工作簿無法關(guān)閉,如圖3所示。運行UnprotectWorkbook過程可取消對工作簿的保護,工作簿能正常操作。
圖3 工作簿被保護
猜你喜歡: