excel表格修改后在保存时提示“文档未保存”怎么解决？
发布网友
发布时间：2022-03-30 00:27
共5个回答
热心网友
时间：2022-03-30 01:56
同时按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，在打开窗口中选择你说的文件，完成后，该文件的宏就没密码了。接着我上面的步骤，可以解决了。
热心网友
时间：2022-03-30 03:14
ctrl+s保存，
如果还不行的话，你就再重新建立一个excel文件，把你的内容复制到里面，再重新保存。就好像机器不能用你会重启机器一样。追问还是不行啊！有没有不用重新建立文档的解决方法啊！因为里边的内容实在是太多了~好多个呢~
热心网友
时间：2022-03-30 04:49
重新命名文件，另选择一个文件存放位置，试试。
热心网友
时间：2022-03-30 06:40
付费内容限时免费查看回答1、先来打开Excel ，接着点击固定栏的【文件】选项，等我们进入后点击【选项】按钮。
2、在新弹出的窗口找到并点击【保存】选项。
3、这个时候会弹出一个新的对话框，在弹出的新的对话框就可以看到【自动恢复文件的位置】的选项了，这个就是文件自动保存在的目录了。
4、就要把里面的路径全部选中，就可以来点击一下右键了，接着就可以复制这个路径了，复制这个。
5、在打开一个文件夹，可以在路径输入栏中把刚才复制的粘贴过来，打开之后就可以看到文件了。
热心网友
时间：2022-03-30 08:48
另存一个不同名的文件
