如何防止用户保存Excel xlsm文件后修改其文件扩展名

用户不应在将Excel文件保存为xlsm格式后修改其扩展名。你目前使用的Workbook_BeforeSave事件只能拦截Excel内部的「另存为」操作，无法阻止操作系统层面的文件重命名行为，没有方案可以100%杜绝有权限的用户修改扩展名，以下方案可以大幅提高修改成本，避免普通用户随意修改：

• 方案1：给工作簿设置密码加密
  这是成本最低、效果最好的方案。加密后的xlsm文件不再是普通的zip压缩结构，就算用户修改扩展名为zip，也无法正常解压查看内部文件。操作路径：点击Excel顶部菜单栏「文件」>「信息」>「保护工作簿」>「用密码进行加密」，设置密码后保存即可。
  另外注意你现有代码中FileFormat:=56对应的是.xls格式，保存xlsm格式应该使用参数FileFormat:=52，避免保存格式错误。

• 方案2：新增VBA打开校验逻辑
  在Workbook_Open事件中添加扩展名校验规则，用户修改扩展名后打开文件会直接自动关闭，无法正常使用，从使用侧倒逼用户不能修改扩展名。代码示例：

  Private Sub Workbook_Open()
      ' 校验文件扩展名是否为xlsm
      Dim fileExt As String
      fileExt = LCase(Right(ThisWorkbook.FullName, 5))
      If fileExt <> ".xlsm" Then
          MsgBox "文件扩展名已被修改，程序无法正常运行", vbCritical
          ThisWorkbook.Close SaveChanges:=False
      End If
  End Sub
  

• 方案3：操作系统层面限制（仅适用企业受控环境）
  如果是内部使用的文件，可以给文件设置NTFS只读权限，仅开放给普通用户读取权限，没有修改权限就无法执行重命名操作；也可以通过组策略隐藏已知文件类型的扩展名，降低普通用户修改扩展名的可能性。

内容的提问来源于stack exchange，提问作者Code_everyday