Excel实现电子发票管理

Excel实现电子发票管理

实现自动保存

• 启用宏

  文件 -> 选项 -> 信任中心 -> 信任中心设置 -> 宏设置 -> 启用宏

  

• 关闭保存个人信息

  文件 -> 选项 -> 信任中心 -> 信任中心设置 -> 隐私选项 -> 保存时从文件属性中删除个人信息

  

• 按alt + f11进入VBA代码编辑页面，双击ThisWorkbook，输入代码

  

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  
      ThisWorkbook.Save
      
  End Sub
  

  此时就能实现自动保存的功能

实现输入一次后无法更改，除授权人外其他人无权修改

原理是设置两个状态 “用户态” 和 “特权态”。用户态下无法选中非空单元格，特权态下可以选中单元格。进入特权态需要运行一段特殊代码

• 右键单