用户窗体仅在特定的工作表上打开
我试图创build一个工作簿，它是用于包裹数据的，工作簿上的工作表是特定于一年中的几周，所以我有52个工作日，名为WK 1，WK 2，WK 3等等。另一张名为“Front”的纸张，当用户打开工作簿时，即使它保存在另一张纸上，也会自动显示该纸张。
从前面的屏幕上，他们可以select当前的星期编号，从而也导致他们也工作表和用户窗体popup的数据录入开始，我唯一的问题是，如果我点击返回到首页用户窗体出现。 有什么办法，我可以禁用它打开？
我目前有一些代码为“字体”工作表，它停止打开时，工作簿打开，但它不会停止它时，我移动到工作表，然后再回来。
所以这是目前我的前台代码。
Private Sub ComboBox1_Change() Sheets(ComboBox1.Value).Select Application.EnableEvents = False Application.EnableEvents = True 这是目前我的工作簿代码。
Private Sub Workbook_Open() Worksheets("Front").Activate Dim iCount As Integer Sheet1.ComboBox1.Clear For iCount = 1 To Sheets.Count Sheet1.ComboBox1.AddItem Sheets(iCount).Name Next iCount End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Call OpenDataEntryForm End Sub Public Sub OpenDataEntryForm() Dim dataEntryForm As ParcelDataEntry Set dataEntryForm = New ParcelDataEntry dataEntryForm.Show Set dataEntryForm = Nothing End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name <> "Front" Then OpenDataEntryForm End Sub