總結(jié)1打開含有VBA的Excel文件2點擊“開發(fā)工具”中的“VisualBasic”3輸入VBA保護密碼4雙擊相應(yīng)的工作表5就可以查看VBA代碼了。

在工作表界面按下組合快捷鍵Alt+F11或者右鍵單擊任意一個工作表標簽，在彈出的右鍵快捷菜單單擊“查看代碼”進入VBA編輯環(huán)境請點擊輸入圖片描述 24 在任意一個模塊的代碼窗口中輸入以下的代碼Sub xyfSheet1Visible =。

3使用vba則不需要這么麻煩，可以在任意選擇單元格后，直接點擊運行代碼，則可以隱藏該單元格所在的行4我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼Sub HideRowDim iRow As。

Sheet的Visible屬性可以顯示是否隱藏，0是隱藏，1沒隱藏，例如下面的代碼可以查看Sub xxxMsgBox Sheet1Visible End Sub 下面的代碼可以隱藏工作表Sheet1Visible=0 顯示隱藏工作表的語句作為課堂練習，你寫寫看。

被隱藏了excel丟失vba項目，是excel版本的差異造成VBA中的模塊無法正常讀取，被隱藏了選定文件，右鍵－屬性，將文檔屬性中的只讀選項的勾去掉后再打開文件修改，修改后即可保存。

在寫代碼窗口，單擊工具TVBAproject屬性E保護勾選查看時鎖定工程V輸入密碼后確定關(guān)閉代碼窗口，保存工作表，關(guān)閉excel，在打開看看沒密碼能不能看見代碼或插入模塊。

設(shè)置隱藏顯示是修改range的Hidden屬性，這個你的代碼里面就有例子，一般有下面的三種使用方法一取消隱藏 ColumnsquotBFquotHidden = False 二設(shè)置隱藏 ColumnsquotBFquotHidden = True 三反轉(zhuǎn)如果原本隱藏就。

NextEnd SubIf str5 = quotAIRCquot Then Sheet1Visible =1 #39顯示工作表 你是試一下這樣改或者改成 善良的豬頭3 If str5 = quotAIRCquot Then Sheet1Visible =true #39顯示工作表這樣的代碼，試試。

如果對隱藏的表格進行數(shù)據(jù)處理，根本不用選擇啊直接引用處理就行了，如worksheet2range=8848 ，如果確實需要激活并選擇的話，可以把表格顯示出來，處理完再隱藏如果這個過程不想被展現(xiàn)，可以在這個階段把屏幕更新關(guān)閉。

新建excel，ALT+F11插入以下代碼，按住F8執(zhí)行，瀏覽到有VBA工程密碼的excel文件，確定后，再按F5就可以了Private Sub VBAPassword#39你要解保護的Excel文件路徑 Filename = ApplicationGetOpenFilenamequotExcel文件*xls。

您可以使用VBA代碼隱藏Excel文檔的標題欄以下是示例代碼Private Declare Function FindWindowA Lib quotuser32quot _ByVal lpClassName As String， ByVal lpWindowName As String As Long Private Declare Function。

以填寫數(shù)據(jù)的區(qū)域B5G99為例1按Alt+F11打開代碼編輯器2在左側(cè)欄中雙擊需要添加代碼的工作表3在右側(cè)輸入或粘貼代碼4如圖，你只修改兩個參數(shù)即可，其他代碼不用動5改好后關(guān)閉代碼編輯器即可Private。

點擊窗口界面，然后重置窗口界面，隱藏的菜單欄就能顯示出來了在編寫VBA代碼的時候會實現(xiàn)自動隱藏和顯示任意Excel文檔中的指定工資表，還可以利用快捷鍵Alt+F8調(diào)出運行宏窗口，選擇“隱藏名稱”，然后單擊“執(zhí)行”按鈕來操作。

ShapesRangeArrayquot圖片 2quotVisible = msoTrueEnd IfEnd Sub 代碼貼在本表的代碼窗中，不是模塊中圖片 2的名稱請按實際名稱修改，選中圖片，看下地址欄中顯示的名稱是啥就改成啥，比如”圖片 10”。

如果您用的是 2007 及以后的版本打開 972003 格式的文件，那么您的模塊很有可能會丟失的，要保證在 972003 格式的文件中編寫的模塊能夠在高版本的 Excel 中打開并且 100% 不會丟失代碼，您可以先導出原來編寫的模塊。

Dim FileName As String FileName = ApplicationGetOpenFilenamequotExcel文件*xls *xla，*xls*xlaquot， ， quotVBA破解quotIf FileName = CStrFalse Then Exit Sub Else VBAPassword FileName， False End If。