(VBA)有奖竟答: excel文件停止操作10秒后自动关闭

liyh67

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>喜多多</i>在2010-1-22 9:56:00的发言：</b><br/>不会，来学习，</div><p></p>[em07][em07]

luxueyan2008

<p>学习一下</p><p></p>

gdw99992

<p>学习学习！</p>

amulee

<p>进来学习一下</p><p><br/><font face="Courier" new=""><span style="COLOR: #00007f;">

游客，如果您要查看本帖隐藏内容请回复

</span><span style="COLOR: #00007f;"></span></font></p>

lotte

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>喜多多</i>在2010-1-22 9:56:00的发言：</b><br/>不会，来学习，</div><p></p>

114yes

我和你的答案一样,呵呵,类也无法一次把

dhukewl

好论坛，学习啊

114yes

Dim t<br/>rivate Sub Workbook_Open()<br/>&nbsp;&nbsp;&nbsp; t = Timer<br/>&nbsp;&nbsp;&nbsp; Do While Timer - t &lt; 60<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DoEvents<br/>&nbsp;&nbsp;&nbsp; Loop<br/>&nbsp;&nbsp;&nbsp; MsgBox "已经超过一分钟没有操作.安全起见。即将关闭！"<br/>&nbsp;&nbsp;&nbsp; ThisWorkbook.Close<br/>End Sub<br/>rivate Sub Workbook_SheetActivate(ByVal Sh As Object)<br/>&nbsp;&nbsp;&nbsp; t = Timer<br/>End Sub<br/>rivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)<br/>&nbsp;&nbsp;&nbsp; t = Timer<br/>End Sub<br/>rivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)<br/>&nbsp;&nbsp;&nbsp; t = Timer<br/>End Sub<br/>rivate Sub Workbook_NewSheet(ByVal Sh As Object)<br/>&nbsp;&nbsp;&nbsp; t = Timer<br/>End Sub<br/>

xiaoni

rggggggggg

鱼求雨

不错的技巧，学习中，多谢