Vba Excel

2017-08-09 约 288 字 预计阅读 1 分钟

禁止拷贝文件方法

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 成，用户允许访问区域。

阅读更多

Calc of Emacs Notes

2017-03-17 约 1496 字 预计阅读 3 分钟

enter Algebraic Mode

temperarily 单次进入

  • 使用单引号(')

all the time 长久地进入

  • shortcut (m a)

    • 即：mod algebraic

常见命令

  • 负号：n
  • 倒数：&
  • sqrt: Q
  • abs: A
  • sign 判断正负号： f s

  • 输入负数：下划线再加上数字，eg：-3 –> （_ 3 <RET>）

阅读更多

Org Notes

2016-10-11 约 4722 字 预计阅读 10 分钟

visibility

  • 注：以下功能在设置完后要使用 C-c C-c 刷新 org mode

starup

1
2
3
4

#+STARTUP: overview
#+STARTUP: content
#+STARTUP: showall
#+STARTUP: showeverything

注：上面的逗号，我本没写，是 emacs 自动添加的

阅读更多