在ThisWorkbook模塊中寫入下面的代碼，關(guān)閉并保存對(duì)工作簿的修改，重新打開工作簿，即可看到代碼執(zhí)行的效果。
Private Sub Workbook_Open()
Worksheets(1).Visible = True
Dim i As Integer
For i = 2 To Worksheets.Count
Worksheets(i).Visible = False
Next i
With ActiveWindow
.DisplayGridlines = False '隱藏網(wǎng)格線
.DisplayHeadings = False '隱藏行列標(biāo)
.DisplayWorkbookTabs = False '隱藏工作表標(biāo)簽
.DisplayHorizontalScrollBar = False ' 隱藏水平滾動(dòng)條
.DisplayVerticalScrollBar = False '隱藏垂直滾動(dòng)條
End With
With Application
.DisplayFormulaBar = False '隱藏編輯欄
.DisplayFullScreen = True '全屏顯示
End With
End Sub
當(dāng)然，該過程僅供參考，你寫出的過程不一定與上面的參考過程完全一樣。
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。