- 博客(0)
- 资源 (26)
空空如也
文件另存为_导出为xls和xlsx格式可任选
'-------------------------------------
'窗口环境初始化设置
'-------------------------------------
Private Sub Workbook_Open()
Rem 加快计算速度
Call Mod_Environment
Rem 打开窗口默认最大化显示
Application.WindowState = xlMaximized
Sheets("Config Data").Activate
Rem 解保护
ActiveSheet.Unprotect Password:="huawei"
Rem 设置列宽
Sheets("Config Data").Columns("J:BB").Select
Selection.ColumnWidth = 15
Rem 单元格取消保护
Rows("10:65535").Select
Selection.Locked = False
Selection.NumberFormatLocal = "@"
Rows("9").Select
Selection.NumberFormatLocal = "G/通用格式"
Rem 窗口冻结
workbookname = ThisWorkbook.Name
FileType = Right(workbookname, Len(workbookname) - InStrRev(workbookname, "."))
Select Case FileType
Case "xlsm"
ActiveWindow.SplitRow = 9
Case "xls"
ActiveWindow.SplitRow = 3
End Select
ActiveWindow.FreezePanes = True
Rem 保护
ActiveSheet.Protect Password:="huawei", Contents:=True, Scenarios:=True
Rem 默认窗口位置
Range("B4").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Sheets("Config Data").ScrollArea = "A1:BB65535"
Rem 恢复Excel环境
Call Rec_Environment
End Sub
2012-11-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人