excel保存时提示文档未保存

excel保存时提示文档未保存 公司最近很多excel保存时提示文档未保存，麻烦的很，找了许久，终于找到一个高手 写的，测试正常～ 同时按Alt和F11，如果你朋友未给宏设密码，可以在左上窗口找到Thisworkbook，双击它，应该会有以下类似代码: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ThisWorkbook.Saved = True ThisWorkbook.Close 0 End Sub 把这些玩意删除就可以了。 如果文件的宏已设密码，请做如下操作: 关闭你的文件，新开一Excel，同时按Alt和F11，进入VBA界面，右键点左上窗口的Thisworkbook，插入，模块，在右边出来的窗口中粘贴如下代码: Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, False End If End Sub '设置VBA编码保护 Sub SetProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, True End If End Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False) If Dir(FileName) = "" Then Exit Function Else FileCopy FileName, FileName & ".bak" End If Dim GetData As String * 5 Open FileName For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" Exit Function End If If Protect = False Then Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next '加入不配对符号 If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功......", 32, "提示" Else Dim MMs As String * 5 MMs = "DPB=""" Put #1, CMGs, MMs MsgBox "对文件特殊加密成功......", 32, "提示" End If Close #1 End Function 然后按F5，运行MoveProtect，在打开窗口中选择你说的文件，完成后，该文件的宏就没密 码了。接着按我上面的步骤，可以解决了。 不行啊~我重新开了个EXCEL了~但按AIL+F11没有进入VBA的界面~ 提问人的追问 2009-10-28 20:33 不行啊~我重新开了个EXCEL了~但按AIL+F11没有进入VBA的界面~ 首先，原Excel文件的宏是加密了吗, 要同时按Alt键和F11键。 回答人的补充 2009-10-28 20:38 首先，原Excel文件的宏是加密了吗, 要同时按Alt键和F11键。 我在原文件上按ALT+F11了，进入了VBA界面，双击了THISWORKBOOK，就会出现”Private Sub Workbook_Open() End Sub” 但删除不了这条信息啊~~我删了再点击那条信息还会出现啊~~ 2009-10-28 20:53 提问人的追问 我在原文件上按ALT+F11了，进入了VBA界面，双击了THISWORKBOOK，就会出现”Private Sub Workbook_Open() End Sub” 但删除不了这条信息啊~~我删了再点击那条信息还会出现啊~~ 不会吧。你在看看Thisworkbook下面有没有 模块 什么的。 再看看象其他人回答的，文件是否为只读啊。