Private Sub Workbook_Open()If Sheet1.Range("h1") = 1 Then Exit Sub'以下是你的其他代码End Sub这个代码在工作簿刚打开时会运行，然后它判断工作表1的H1单元格内容，如果值为1则终止代码，否则执行下面的代码。
