方法如下：
1.首先我們開啟一個工作樣表作為例子。
2.我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：
Sub UsePassword()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
wb.Password = InputBox("請輸入密碼:")
wb.Close
End Sub
3.我們首先宣告wb為工作薄物件，並將其賦值為物件應用程式為活動工作薄。這裡其實是為了簡寫所以宣告一個變數，可以直接使用物件的password方法進行設定。
4.也就是說Application.ActiveWorkbook.password 與wb.password是等價的。我們使用inputbox來輸入密碼，並執行下一步儲存。
6.重新開啟該工作薄，彈出輸入密碼對話方塊，我們需要輸入正確的密碼才能開啟工作薄進行工作。
Microsoft Excel是Microsoft為使用Windows和Apple Macintosh作業系統的電腦編寫的一款電子表格軟體。直觀的介面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機資料處理軟體。
在1993年，作為Microsoft Office的元件釋出了5.0版之後，Excel就開始成為所適用操作平臺上的電子製表軟體的霸主。
Microsoft Office是一套由微軟公司開發的辦公軟體套裝，它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系統上執行。
與其他辦公室應用程式一樣，它包括聯合的伺服器和基於網際網路的服務。從2007版的Office被稱為“Office System”而不叫“Office Suite”，反映出它們包括伺服器的事實。
Office最初是一個推廣名稱，出現於1990年代早期，指一些以前曾單獨發售的軟體的合集。當時主要的推廣重點是：購買合集比單獨購買要省很多錢。最初的Office版本包含Word、Excel和PowerPoint。
方法如下：
1.首先我們開啟一個工作樣表作為例子。
2.我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：
Sub UsePassword()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
wb.Password = InputBox("請輸入密碼:")
wb.Close
End Sub
3.我們首先宣告wb為工作薄物件，並將其賦值為物件應用程式為活動工作薄。這裡其實是為了簡寫所以宣告一個變數，可以直接使用物件的password方法進行設定。
4.也就是說Application.ActiveWorkbook.password 與wb.password是等價的。我們使用inputbox來輸入密碼，並執行下一步儲存。
6.重新開啟該工作薄，彈出輸入密碼對話方塊，我們需要輸入正確的密碼才能開啟工作薄進行工作。
拓展資料Microsoft Excel是Microsoft為使用Windows和Apple Macintosh作業系統的電腦編寫的一款電子表格軟體。直觀的介面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機資料處理軟體。
在1993年，作為Microsoft Office的元件釋出了5.0版之後，Excel就開始成為所適用操作平臺上的電子製表軟體的霸主。
Microsoft Office是一套由微軟公司開發的辦公軟體套裝，它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系統上執行。
與其他辦公室應用程式一樣，它包括聯合的伺服器和基於網際網路的服務。從2007版的Office被稱為“Office System”而不叫“Office Suite”，反映出它們包括伺服器的事實。
Office最初是一個推廣名稱，出現於1990年代早期，指一些以前曾單獨發售的軟體的合集。當時主要的推廣重點是：購買合集比單獨購買要省很多錢。最初的Office版本包含Word、Excel和PowerPoint。