EXCEL MASTER 如何使用 VBA 在 10 秒后实现闭合

public declare function settimer lib "user32" (byval hwnd as long, byval nidevent as long, byval uelaspe as long, byval lptimerfunc as long) as long

public declare function killtimer lib "user32" (

byval hwnd as long, byval nidevent as long) as long

dim tid as long

const sec = 10 '时间可以在这里修改。

sub closetest(byval hwnd as long, byval umsg as long, byval idevent as long, byval systime as long)

", true '发送回复，这是关闭窗口的命令。

killtimer 0, tid

end sub

低于 10 秒自动关机 （）。

tid = settimer(0, 0, sec * 1000, addressof closetest)

msgbox sec & "在几秒钟内自动关闭窗口", 65, "技巧"

end sub

如果不启用宏，则无法自动关闭工作簿。 因为如果不启用宏，则不会运行任何内容，那么如何自动关闭工作簿。

通常的做法是在工作簿关闭事件期间深入隐藏所有有用的工作表，例如，显示没有工作表的工作表，并提示必须启用宏。 在工作簿打开事件中，将显示有用的工作表，并隐藏无用的工作表。 这样，当您在不启用宏的情况下打开工作簿时，您将没有任何有用的内容，只会在无用的工作表中显示提示消息。

启用宏时，打开以查看和使用普通工作表。

注意：深度隐藏的工作表不能手动显示，只能按**显示。

该模板可以在内存中修改，似乎它仅适用于某些版本。

其他人给你一个方法：

转换所有主要功能（包括基本创建、格式初始化、宏生成 - 宏可以将宏添加到模块并使用 vb 制作 dll

在excel宏调用dll并实现函数，那么你可以想象，如果你想使用你的函数，你必须打开宏，否则你甚至看不到你的**，包括你的基本**，如果宏被打开，那么你就很容易控制，

详见毕熙森的手附。

本文最后发表于 hytsky 于 2011-12-19 23：50。

sub time()

dim a as date

dim b as date

dim c as date

a = date

b = sheets("用户和密码").range("h500").value

c = 2011 - 12 - 20"

if a < b then

elseif a > b then

sheets("用户和密码").range("h500") a

elseif c - a <=2 and c - a > 0 then

msgbox "您还可以使用："&c - a & day！ ",64, "警告"

elseif c - a <=0 then

msgbox "使用时间已过", 64, "警告"

end if

end sub

VBA，请复制以下内容：

public sub closeworkbook()end sub

然后，在要控制的工作簿中复制此工作簿中的以下内容。

private sub workbook_open()now + timevalue("00:00:10"),closeworkbook"

end sub

问题还没有结束。 请添加完整的。

sub test()

for i=1 to 10

for j=1 to range("a:a").offset(,i-1).end(3).row

if cells(j,i)="停"然后goto停了下来。

elseif cells(j,i)<>"" then'复制结束 如果

next j

next i

exit sub

停'停止 ** 段落。

end sub

dim rag as range,i as integer,arri=1for each rag in range("a2:c26")if >0 then

arr(i)=

i=i+1end if

接下来，到目前为止，数据被收集到 arr 数组中。

'保存当前工作表。

当前工作表将关闭。

'关闭此表。

关闭活动表。

从在线**一个定时器控件，并添加到excel中，使用定时器控件实时监控excel的运行情况，如果有操作，则重置计时器，一旦计时器达到阈值，就关闭excel。 这样你的目的就达到了。

这个问题很深奥，本以为可以做到，但师傅有师傅的难度

Excel是这样的，有一个副本自动保存后，通过自己的VBA运行将副本保存为下一个副本，也就是说，下一个副本是通过上一个副本的VBA建立的，而不是通过初始文件，所以母版使用这个函数，这个函数将指定工作簿的副本保存到文件中， 但不修改内存中打开的工作簿，即每次保存初始工作簿后的文件，此工作簿仍然是初始工作簿，而不是保存的工作簿。但是这个功能有一个缺陷，它只能选择保存文件的名称，而不能选择要保存的文件类型"d:\"这个表单没有问题，所以**会稍微改一下，保存的xls可以打开，但是在**运行过程中不要打开它，在运行过程中打开它，那么这个工作簿就变成了一个打开的工作簿，**运行会出现你说的问题：