文件名称:
文件另存为_导出为xls和xlsx格式可任选
开发工具:
文件大小: 7kb
下载次数: 0
上传时间: 2012-11-15
详细说明：'-------------------------------------
'窗口环境初始化设置
'-------------------------------------
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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
