Excel excel文件怎样禁止“另存为”-excel禁止另存,excel无法保存和另存为

Sub Macro1()
'
ActiveWorkbook.SaveAs Filename:="C:\2131.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
这就可知以了，道文件名可以自己回改一下答

解决方案是:
在工复具-保护-保护工作表-设置密码，把下面的勾选全取消，
工作表就不能修改，就是保存或另存为了也不能修改。制
也可以用vb宏代码禁止:
在宏编辑器里的ThisWorkBook下写入代码:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
文件打开zd什么样子，关闭时将不会有任何变化。
把共享文件的属性里选择共享，然后在“允许网络用户更改我的文件”打勾，就可以在别的机子上修改并保存了

在工具-保护-保护工作表-设置密码，把下面的勾选全取消，工作表就不能修改，就是保存或另存为了也不能修改。