为什么EXCEL保存时出现文档未保存的提示？？

Question

朋友发了个EXCEL文件给我~我打开文件在里面修改后，就保存不了~~请高手指教一下~~~

Answer 1

1、先来打开Excel ，接着点击固定栏的【文件】选项，等我们进入后点击【选项】按钮。

2、在新弹出的窗口找到并点击【保存】选项。

3、这个时候会弹出一个新的对话框，在弹出的新的对话框就可以看到【自动恢复文件的位置】的选项了，这个就是文件自动保存在的目录了。

4、就要把里面的路径全部选中，就可以来点击一下右键了，接着就可以复制这个路径了，复制这个。

5、在打开一个文件夹，可以在路径输入栏中把刚才复制的粘贴过来，打开之后就可以看到文件了。

Answer 2

EXCEL保存时出现“文档未保存”提示的可能原因：
1.宏出问题。
2.部分模块丢失。
3.病毒破坏。
4.采用了“自动筛选”和“冻结窗口”两个功能。
5.临时文件没有被删除。
6.软件未正确安装或使用过程中被损坏。
解决办法：
1.先打开需要处理的excel，然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程序
Sub 恢复保存()
name0 = ActiveWorkbook.Name
j = Sheets.Count
For i = 1 To j
Sheets(1).Visible = -1
Sheets(1).Move
Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)
Next
End Sub
然后接着运行宏，后停止。最后关闭即可。
2.重装软件。
3.用杀毒软件对电脑全盘杀毒。本回答被网友采纳

Answer 3

EXCEL保存时出现“文档未保存”提示的可能原因：
1.宏出问题。
2.部分模块丢失。
3.病毒破坏。
4.采用了“自动筛选”和“冻结窗口”两个功能。
5.临时文件没有被删除。
6.软件未正确安装或使用过程中被损坏。
解决办法：
1.先打开需要处理的excel，然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程序
Sub 恢复保存()
name0 = ActiveWorkbook.Name
j = Sheets.Count
For i = 1 To j
Sheets(1).Visible = -1
Sheets(1).Move
Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)
Next
End Sub
然后接着运行宏，后停止。最后关闭即可。
2.重装软件。
3.用杀毒软件对电脑全盘杀毒。

Answer 4

同时按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 SubPrivate 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，在打开窗口中选择你说的文件，完成后，该文件的宏就没密码了。接着按我上面的步骤，可以解决了。本回答被网友采纳

Answer 5

可能是在服务器上打开的，建议另存到本地后编辑应该就可以了。