最簡單,複製整表,貼上在全新的表中。 複雜的: 第1步:在工作表選單欄上新增[開發工具]。方法是:依次單擊[檔案]--->[選項]--->[自定義功能區]命令,在[自定義功能區]主選項卡下面鉤選[開發工具]即可,方法因版本不同稍有差異。當然,已新增的讀者,這一步是多餘的; 第2步:按Alt+F11快捷鍵,開啟VBE視窗; 第3步:單擊[插入]選單命令,在其下拉選單中,選擇[模組1]; 第4步:雙擊[模組1],在其程式碼視窗下輸入如下的程式碼, Sub DeletePW() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.Unprotect End Sub 第5步:在非設計模式下,單擊[執行]按鈕,即可啟動解除密碼程式
最簡單,複製整表,貼上在全新的表中。 複雜的: 第1步:在工作表選單欄上新增[開發工具]。方法是:依次單擊[檔案]--->[選項]--->[自定義功能區]命令,在[自定義功能區]主選項卡下面鉤選[開發工具]即可,方法因版本不同稍有差異。當然,已新增的讀者,這一步是多餘的; 第2步:按Alt+F11快捷鍵,開啟VBE視窗; 第3步:單擊[插入]選單命令,在其下拉選單中,選擇[模組1]; 第4步:雙擊[模組1],在其程式碼視窗下輸入如下的程式碼, Sub DeletePW() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.Unprotect End Sub 第5步:在非設計模式下,單擊[執行]按鈕,即可啟動解除密碼程式