禁止拷贝文件方法

http://www.360doc.com/showweb/0/0/762370756.aspx

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Dim MyDiskCode
　　Set MyDiskCode = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
　　For Each mo In MyDiskCode
　　　Sheet1.Cells(999, 256).Value = mo.Model
　　Next
　　End Sub


   Private Sub Workbook_Open()
　　Dim MyDiskCode
　　Set MyDiskCode = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
　　For Each mo In MyDiskCode
　　MyNewCode = mo.Model
　　Next
　　If (MyNewCode <> Trim(Sheet1.Cells(999, 256).Value)) Then
　　　ThisWorkbook.Close
　　End If
　　End Sub

excel 工作表保护

  1. 可以选定单元格属性为，不锁定，
  2. 保护工作表功能，不允许，用户选定，锁定单元格， 这样用户，就不能通过普通方法，修改单元格
  3. 而我们却可以，使用 VBA 后台编写程序，修改它。

Warning 实践证明，下述方法可行,但是，vba 会产生漏洞，因为 通过 vba， Select 语句选定单元格， 如果不，重新选定为，用户，可访问区域， 而是，锁定区域(用户禁止访问区域)， 那么，用户将获得，禁止区域的访问权限！！！ ===> 因此，使用 vba 后，要 Select 成，用户允许访问区域。