以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何标记文件名?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69798)
--  作者：发财
--  发布时间：2015/6/11 9:02:00
--  如何标记文件名?
如果对一个EXCEL表进行操作后,如何标记EXCEL表文件名,在再次打开EXCEL表文件前提示是否打开该文件?
--  作者：发财
--  发布时间：2015/6/11 9:11:00
--  
只标记文件名,不加密?
--  作者：大红袍
--  发布时间：2015/6/11 9:11:00
--  

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
app.Visible = True

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle Like "*test*" Then
        msgbox("test文件已经打开")
        Return Nothing
    End If
Next

Dim App1 As New MSExcel.Application
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open("D:\\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1)
app1.Visible = True