让VAB窗体停在工作表

深秋红叶2019

如何让VBA窗体停留在sheet1表，不能关闭 ， 点击sheet2表不会显示这段代码不知道怎么放

• Private Sub Workbook_SheetActivate(ByVal Sh As Object)
•     If Sh.Name = "Sheet1" Then UserForm1.Show 0 Else UserForm1.Hide
• End Sub
• Private Sub Workbook_WindowActivate(ByVal Wn As Window)
•     If Wn.ActiveSheet.Name = "Sheet1" Then UserForm1.Show 0 Else UserForm1.Hide
• End Sub
• Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
•     UserForm1.Hide
• End Sub
  

liulang0808

楼主看看是否可行吧

microyip

liulang0808 发表于 2020-2-2 16:34
楼主看看是否可行吧

看着版主大大开始截图了，我笑了

深秋红叶2019

microyip 发表于 2020-2-2 17:05
看着版主大大开始截图了，我笑了

老师是关注我很久了吗

深秋的黎明

深秋红叶2019 发表于 2020-2-2 17:16
老师是关注我很久了吗

这几天你很活跃，搞好录入表，准备开工大显身手了吧。

microyip

深秋红叶2019 发表于 2020-2-2 17:16
老师是关注我很久了吗

你说的没错，我就看看你是如何让论坛帮你代工完成整个系统的

深秋红叶2019

深秋的黎明 发表于 2020-2-2 17:26
这几天你很活跃，搞好录入表，准备开工大显身手了吧。

多提点问题，学习者也会遇到同样的问题，给别人搜索问题的机会，同时也是帮助自己，一举两得

深秋红叶2019

microyip 发表于 2020-2-2 17:34
你说的没错，我就看看你是如何让论坛帮你代工完成整个系统的

多提点问题，学习者也会遇到同样的问题，给别人搜索问题的机会，同时也是帮助自己，一举两得

microyip

针对你这个问题的特殊性，提供代码给你
在Thisworkbook模块

1. Private Sub Workbook_SheetActivate(ByVal sh As Object)
   
2.     CheckForm1 sh:=sh, IsShow:=True
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_WindowActivate(ByVal Wn As Window)
   
6.     CheckForm1 sh:=ActiveSheet, IsShow:=True
   
7. End Sub
   
8. 
   
9. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
   
10.     CheckForm1 sh:=ActiveSheet
    
11. End Sub

复制代码

在公共模块

1. Public oForm As Object
   
2. 
   
3. Sub CheckForm1(ByVal sh As Object, Optional ByVal IsShow As Boolean)
   
4.     If TypeName(oForm) <> "UserForm1" Then Set oForm = UserForm1
   
5.     If sh.CodeName = "Sheet1" And IsShow Then
   
6.         oForm.Show 0
   
7.     Else
   
8.         oForm.Hide
   
9.     End If
   
10. End Sub

复制代码

microyip

针对你这个问题的特殊性，附上附件以供参考。另外，注意一下，你使用WPS，并不是所有需求都会得到相关帮助