在ThisWorkbook模塊中寫入下面的代碼，關閉并保存對工作簿的修改，重新打開工作簿，即可看到代碼執(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 '隱藏行列標
.DisplayWorkbookTabs = False '隱藏工作表標簽
.DisplayHorizontalScrollBar = False ' 隱藏水平滾動條
.DisplayVerticalScrollBar = False '隱藏垂直滾動條
End With
With Application
.DisplayFormulaBar = False '隱藏編輯欄
.DisplayFullScreen = True '全屏顯示
End With
End Sub
當然，該過程僅供參考，你寫出的過程不一定與上面的參考過程完全一樣。
承擔因您的行為而導致的法律責任，
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。