<p>还是使用注册表好点</p><p>Sub auto_open()<br/>Dim n As Integer<br/>n = GetSetting("myapp", "myse", "mykey", 0)<br/>n = n + 1<br/>SaveSetting "myapp", "myse", "mykey", n<br/>If n <= 3 Then<br/> MsgBox "工作表只能使用3次,你已使用" & n & "次"<br/>Else<br/> MsgBox "使用次数已满,工作簿关闭!"<br/> ThisWorkbook.Close False<br/>End If<br/>End Sub</p>