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

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

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

Sheet的Visible屬性可以顯示是否隱藏，0是隱藏，1沒(méi)隱藏，例如下面的代碼可以查看Sub xxxMsgBox Sheet1Visible End Sub 下面的代碼可以隱藏工作表Sheet1Visible=0 顯示隱藏工作表的語(yǔ)句作為課堂練習(xí)，你寫(xiě)寫(xiě)看。

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

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

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

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

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

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

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

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

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

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

如果您用的是 2007 及以后的版本打開(kāi) 972003 格式的文件，那么您的模塊很有可能會(huì)丟失的，要保證在 972003 格式的文件中編寫(xiě)的模塊能夠在高版本的 Excel 中打開(kāi)并且 100% 不會(huì)丟失代碼，您可以先導(dǎo)出原來(lái)編寫(xiě)的模塊。

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