运行代码屏幕会闪下和出现查看代码VB编辑界面界面

BMW5566

运行以下代码出现两个问题：1、屏幕会闪一下

                                                 2、运行后会出现查看代码的VB编辑界面
需求：1、如何不让屏幕闪下
          2、自动关闭查看代码的VB编辑界面  
哪位大神能帮我代码改善下，谢谢！


s = ThisWorkbook.VBProject.Name
If s = "ocean" Then
ThisWorkbook.VBProject.Name = "VBAProject"
Exit Sub
End If
'------------------------------
On Error Resume Next
    Application.VBE.MainWindow.Visible = True           '显示VBE主界面
    Application.DisplayAlerts = False                   '隐藏过程画面
    Application.Visible = False                         '隐藏Excel应用程序界面，此句非常重要，正因为有了此句，模拟按键才不会将焦点定位到Excel表格里，而是自动定位到VBE界面上，才不会失效。
        Application.SendKeys "%"                        '打开工程密码输入框
        Application.SendKeys "{T}"                      '打开工程密码输入框
        Application.SendKeys "{E}"                      '打开工程密码输入框
     Application.SendKeys "ocean"                    '自动输入密码字符
     Application.SendKeys "{ENTER}"                      '确认
     Application.Wait (Now + TimeValue("0:00:00"))       '避免操作过快
     Application.SendKeys "{ESC}"                        '退出对话框
    Application.SendKeys "{NUMLOCK}"
DoEvents
Application.DisplayAlerts = True
Application.Visible = True
End Sub

xdychina1

代码不全无法测试

BMW5566

xdychina1 发表于 2024-2-20 19:25
代码不全无法测试

我上传附件了，点击表格的小方框，帮忙看下：1、屏幕会闪一下；2、运行后会出现查看代码的VB编辑界面

BMW5566

BMW5566 发表于 2024-2-21 11:44
我上传附件了，点击表格的小方框，帮忙看下：1、屏幕会闪一下；2、运行后会出现查看代码的VB编辑界面

运行3楼附件出现两个问题：1、屏幕会闪一下
                                      2、运行后会出现查看代码的VB编辑界面
需求：1、如何不让屏幕闪下
          2、自动关闭或不让出现：查看代码的VB编辑界面  
哪位大神能帮我代码修订下，谢谢！