关于保护表格和解锁表格的时候控件刷新问题

[yuqwio852956]

Private Sub CommandButton1_Click()

Sheet2.Protect Password:=1915, DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet2.Application.EnableEvents = True

Sheet2.Application.EnableEvents = False
Sheet2.Unprotect Password:=1915
End Sub

Private Sub CommandButton2_Click()
Sheet1.Protect Password:=1915, DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet1.Application.EnableEvents = True

Sheet1.Application.EnableEvents = False
Sheet1.Unprotect Password:=1915
End Sub

按钮均在表格1，按钮一点击的时候，控件会刷新，按钮二点击的的时候不会刷新，我想要点击按钮的时候控件不会闪一下。

[独梦尘烟]

由于VBA默认屏幕更新是启动的（application.screenupdating=true）,按钮1执行程序过程中需要切换到sheet2，再切换到当前工作簿，因此按钮会刷新，而按钮2本来就在当前sheet1工作薄中，因此不会刷新；只要在按钮1程序中关闭屏幕更新即可（仅供参考）

[yuqwio852956]

自己 顶,希望大神帮忙看看

[赵4老师]

仅供参考：

    Application.ScreenUpdating = False
    Application.Interactive = False

[yuqwio852956]

谢谢两个大神讲解，麻烦了~