[已解决]如何去掉这个提示？

hrpotter

1. Private Sub Workbook_Activate()
   
2.   On Error Resume Next
   
3.   Application.Caption = "学良 人事系统" '改变EXCEL左上标题
   
4.     Sheets("首页").Select '并定位在窗口上。。。。。。
   
5.     Application.StatusBar = "本系统登录时间： " & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & "(" & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & ")" & " 〓★〓【学良 欢迎您】〓★〓 " & W
   
6. End Sub

复制代码

alt+F11打开VBE编辑器，双击左边工程窗口中的:thisworkbook,把上面的这段代码删掉保存

bb75308973

用代码实现的,进入VBE将相关的代码删除掉就OK了!

happym8888

tj966 发表于 2012-3-12 18:10
恩已经可以了。我本来是想您告诉我方法。能说吗？或者帮我修改这个，这才是我要修改的。

企业客户信息维护已成功汇总修改中.rar (184.5 KB, 下载次数: 22)

2012-3-12 19:05 上传

点击文件名下载附件

1. Private Sub Workbook_Activate()
   
2.   On Error Resume Next
   
3. '  Application.Caption = "学良 人事系统" '改变EXCEL左上标题
   
4.     Sheets("首页").Select '并定位在窗口上。。。。。。
   
5. '    Application.StatusBar = "本系统登录时间： " & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & "(" & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & ")" & " 〓★〓【学良 欢迎您】〓★〓 " & W
   
6. End Sub
   
7. 
   

复制代码

正常步骤打开你的文件后按Alt+F11进入代码窗口，在左边的工程-VBAProject窗口找到Thisworkbook，双击他，如图：

以上代码出现在右侧窗口，在Application.Caption 和 Application.StatusBar 两行代码前加小撇'

happym8888

这个最佳应该给帅老师的。