使用Protect方法和Unprotect方法實(shí)現(xiàn)Excel工作簿的保護(hù)

1、啟動(dòng)Excel并打開(kāi)Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在該模塊的“代碼”窗口中輸入VBA代碼，如圖1所示。該程序代碼用于為工作簿添加保護(hù)，具體代碼如下所示：

Sub ProtectWorkbook()

ActiveWorkbook.Protect Password:="123",Structure:=True '添加保護(hù)

End Sub

圖1　在“代碼”窗口中添加程序代碼

提示

Protect方法保護(hù)3個(gè)參數(shù)，它們分別是Password、Structure和Windows。其中，Password參數(shù)用于指定保護(hù)密碼;Structure參數(shù)設(shè)置為True時(shí)，將保護(hù)工作簿結(jié)構(gòu)，此時(shí)無(wú)法對(duì)工作簿中的工作表進(jìn)行插入、刪除和復(fù)制等操作;Windows參數(shù)設(shè)置為True時(shí)，將保護(hù)工作簿窗口，此時(shí)無(wú)法對(duì)窗口進(jìn)行最小化、最大化和關(guān)閉操作。

2、如果需要解除對(duì)工作簿添加的密碼保護(hù)，可以在“代碼”窗口中添加代碼，如圖2所示。具體程序代碼如下所示：

Sub UnprotectWorkbook()

ActiveWorkbook.Unprotect"123" '取消密碼保護(hù)

End Sub

圖2　添加用于解除工作簿保護(hù)的程序代碼

3、運(yùn)行ProtectWorkbook過(guò)程，將無(wú)法對(duì)工作簿中的工作表進(jìn)行增刪等操作，同時(shí)工作簿窗口左上角的最大化、最小化等按鈕消失，該工作簿無(wú)法關(guān)閉，如圖3所示。運(yùn)行UnprotectWorkbook過(guò)程可取消對(duì)工作簿的保護(hù)，工作簿能正常操作。

圖3　工作簿被保護(hù)