防止用户窗体切换工作表

Question

我有多个工作表，并在子application.onkey中编写了函数workbook_activate() 该功能应该在按钮组合上打开UserForm。

我的问题是：如果按下按钮组合，并且显示用户窗体，它将切换工作表。不管我在哪张纸上，都将其切换为始终相同的纸。我如何防止它这样做？

我尝试了以下操作：

sub showingfrm()
dim tmpfrm as userform1
set tmpfrm = new userform1

    With tmpfrm
    .StartUpPosition = 0
    .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
    .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
    .Show
    End With

但是这似乎不起作用。 （为什么我使用此代码是因为有多个监视器）