怎样进行用户窗体的设定（位置和显示）

tengshj

项目总结表。现在第一页做一个“用户窗体”来对视图进行设定，通过按钮在不同的视图间切换。
通过搜索论坛的帖子，基本上做了一个样子。可以看到我抄了论坛的一些代码，但是有些能正常执行，有些不行。有几个问题，希望能得到专家的帮助。
1. 这个“用户窗体”不能去除标题栏。
2. “用户窗体”不能仅仅在sheet1里出现，在其他sheet中自动隐藏。
3. “用户窗体”不能紧跟在按钮的右边，或者设定窗口固定在表单的第一行

tengshj

有大神指点一下吗？

洋务德雷

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

洋务德雷

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.       If ActiveSheet.Name = "Sheet1" Then UserForm1.Show 0 Else UserForm1.Hide
   
3. End Sub

复制代码

tengshj

洋务德雷 发表于 2021-11-13 21:51
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
      If ActiveSheet.Name = "Sheet1" Then Us ...

这个可以让窗口在其他的worksheet里消失，但是回到sheet1，不能自动再跳出来。下面的代码没有起作用。
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If Wn.ActiveSheet.Name = "Sheet1" Then UserForm1.Show 0 Else UserForm1.Hide
End Sub