求解excel宏程序定时自动删除的方法

1在一台电脑上使用,如果复制到另一台电脑上,提示使用2个月,2个月后自动启动自杀程序,代码如下:

Sub Auto_Open()

Dim fs, d, s

Set fs = CreateObject("ScriptingFileSystemObject")

Set d = fsGetDrive(fsGetDriveName(fsGetAbsolutePathName(ThisWorkbookPath)))

s = dserialnumber '磁盘序列号

If s = 要使用的电脑磁盘序列号 Then Exit Sub

Dim FirstDate, de, days

FirstDate = Date

de = GetSetting("XXX", "YYY", "date", "") '从注册表取值

If de = "" Then '如果取不到值

SaveSetting "XXX", "YYY", "date", FirstDate '把日期保存到注册表

MsgBox "本文件可使用60天，今天是第1次使用", , "提示"

Else

days = Date - CDate(de) '计算文件使用的天数

If days > 60 Then '如果文件使用超过60天

MsgBox "已超过使用期限，本文件将自杀", , "警告"

ThisWorkbookChangeFileAccess xlReadOnly '改为只读属性

Kill ThisWorkbookFullName '自杀

ThisWorkbookClose False '关闭不保存

End If

MsgBox "本文件已使用" & days & "天，还有" & 60 - days & "天可使用", , "提示"

End If

End Sub

2指定时间自杀

Private Sub Workbook_Open()

Sheet1Activate

If Now >= DateSerial("2008", "10", "6") Then

ActiveWorkbookChangeFileAccess xlReadOnly

Kill ActiveWorkbookFullName

ThisWorkbookClose False

End If

End Sub

方法是：选择包含需要删除的数据区域，比如a2：d10，然后按f5键，打开“定位”对话框，单击“定位条件”，打开“定位条件”对话框，选择“空值”，可以批量选择空行，然后单击右键，选择删除即可。

excel批量删除空行方法二：

我们可以在旁边的空白列输入1，然后下拉，作为辅助列。然后开启“筛选”，筛选“空白”，在筛选状态删除这些空白行，最后关闭筛选。

excel批量删除空行方法三：

如果工作表中有大量的空行，可以使用vba代码实现。方法是：按alt+f11，打开vbe编辑器，插入——模块，复制下面的代码，然后按f5键运行。

sub

批量删除空行()

dim

lastrow

as

long

dim

r

as

long

lastrow

=

activesheetusedrangerow

-

1

+

activesheetusedrangerowscount

applicationscreenupdating

=

false

for

r

=

lastrow

to

1

step

-1

if

applicationworksheetfunctioncounta(rows(r))

=

0

then

rows(r)delete

next

r

applicationscreenupdating

=

true

end

sub

1、点击开始，运行（或按键盘win+r）打开

2、在输入框中输入regedit，并敲回车

3、依次打开KEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\

Discardable\PostSetup\ShellNew\

4、在右侧打双击打开 Classes 选项

5、在里面有很多文件后缀，找到 xlsx ，我的是office2016版，2003版的应该是xls

6、你的里面应该是有两个相同的后缀，删除一个

7、关闭注册表，大功告成

以上就是关于求解excel宏程序定时自动删除的方法全部的内容，包括:求解excel宏程序定时自动删除的方法、如何用EXCEL的VBA脚本编写程序删除空行和空列、右键打开方式里面有两个excel程序，怎么删除一个求解等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！