[已解决]用户登录表格会闪动

xingyu111700

登录用户A\B\C时，表格闪动，请各位高手帮忙处理一下，谢谢！附件在（关闭表格时会闪动）里面，是因之前忘了提出。
http://www.excelpx.com/thread-254464-1-1.html

最佳答案

月排行榜 / 总排行榜

zyouong

2012-8-2 09:48

打开代码需要密码，你看一下里面肯定有一个BeforeClose代码，就是它有问题。

跳转到最佳答案楼层

zyouong

打开代码需要密码，你看一下里面肯定有一个BeforeClose代码，就是它有问题。

xingyu111700

VBA代码密码123456

xingyu111700

找到了，要删除吗？还是要修改？什么修改？

xingyu111700

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheet14.Visible = True
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Name <> Sheet14.Name Then
        If sh.Name <> Sheet1.Name Then sh.Protect Password:="123"
        sh.Visible = xlSheetVeryHidden
    End If
Next
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub