怎么使用Protect方法和Unprotect方法實現Excel工作簿的保護？

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

Sub ProtectWorkbook()

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

End Sub

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

提示

Protect方法保護3個參數，它們分別是Password、Structure和Windows。其中，Password參數用于指定保護密碼;Structure參數設置為True時，將保護工作簿結構，此時無法對工作簿中的工作表進行插入、刪除和復制等操作;Windows參數設置為True時，將保護工作簿窗口，此時無法對窗口進行最小化、最大化和關閉操作。

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

Sub UnprotectWorkbook()

ActiveWorkbook.Unprotect"123" '取消密碼保護

End Sub

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

3、運行ProtectWorkbook過程，將無法對工作簿中的工作表進行增刪等操作，同時工作簿窗口左上角的最大化、最小化等按鈕消失，該工作簿無法關閉，如圖3所示。運行UnprotectWorkbook過程可取消對工作簿的保護，工作簿能正常操作。

圖3　工作簿被保護