[已解决]老师帮忙看看这代码怎么加

晓梦迷蝶

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True MsgBox "禁止保存" End Sub 可是当前的代码无法保存 加上一段代码后可以强制保存 Application.EnableEvents = False ActiveWorkbook.Save Application.EnableEvents = True 但是又无法禁止工作簿保存了

最佳答案

月排行榜 / 总排行榜

zjdh

2011-10-15 13:25

我理解错了。
你可以在一个工作表的一个单元输入一个标识，例当前工作表的“A1"输入”1“，然后保存。
工作簿打开时自动将标识清除，就起到不可保存的效果了。

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2.     If Range("A1") <> 1 Then
   
3.         Cancel = True
   
4.         MsgBox "禁止保存"
   
5.     End If
   
6. End Sub
   
7. Private Sub Workbook_Open()
   
8.    Range("A1") = ""
   
9. End Sub

复制代码

跳转到最佳答案楼层

mxg825

到底是要保存还是不要保存？
自相矛盾！

zjdh

1. 
   
2. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
3.     S = InputBox("请输入密码尚可保存！", "提示")
   
4.     If S = "123" Then
   
5.         Application.EnableEvents = False
   
6.         ActiveWorkbook.Save
   
7.         Application.EnableEvents = True
   
8.         Exit Sub
   
9.     End If
   
10.     Cancel = True
    
11.     MsgBox "密码错误禁止保存!"
    
12. End Sub
    

复制代码

晓梦迷蝶

楼上的老师，只能依靠输入密码来控制别人不能保存么？

zjdh

那你说既要不可保存，又可以保存，不自相矛盾吗？

晓梦迷蝶

我写上这个代码后Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "禁止保存"
End Sub
就不能保存生效，当我关闭工作簿后，代码就消失了，就没起到禁止保存的作用

zjdh

我理解错了。
你可以在一个工作表的一个单元输入一个标识，例当前工作表的“A1"输入”1“，然后保存。
工作簿打开时自动将标识清除，就起到不可保存的效果了。

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2.     If Range("A1") <> 1 Then
   
3.         Cancel = True
   
4.         MsgBox "禁止保存"
   
5.     End If
   
6. End Sub
   
7. Private Sub Workbook_Open()
   
8.    Range("A1") = ""
   
9. End Sub

复制代码

晓梦迷蝶

楼上的老师，先禁用宏---保存----再启用宏就行了哦

zjdh

你这样做，就不能设置“禁用宏就退出”的功能啦。