保护
上一篇 /
下一篇 2007-04-01 10:41:49
/ 个人分类：excel
Private Sub Workbook_Open()
Dim fs, d, s, sh As Worksheet
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(Me.Path)))
s = d.serialnumber
If s <> 206637564# Then
MsgBox "你使用是文件副本吧?不好意思,我不能让你看到,byebye了" & Chr(10) & Chr(10) & "你的磁盘序列号是:" & s
Application.EnableEvents = False
Me.Close (flase)
Application.EnableEvents = True
Else
'MsgBox "恭喜你,你马上就可以看到我的真面目了"
For Each sh In Me.Worksheets
sh.Visible = True
Next sh
Sheets("sheet3").Visible = xlVeryHidden
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
Sheets("sheet3").Visible = True
For Each sh In Me.Worksheets
If sh.Name <> "Sheet3" Then sh.Visible = xlSheetVeryHidden
Next sh
Me.Save
End Sub
收藏
分享给好友
管理
举报
TAG:
excel
