朋友发了个EXCEL文件给我~我打开文件在里面修改后，就保存不了~~
请高手指教一下~~~
为什么EXCEL保存时出现文档未保存的提示？？
答案:4 悬赏:60 手机版
解决时间 2021-07-17 15:54
- 提问者网友：wodetian
- 2021-07-17 10:57
最佳答案
- 五星知识达人网友：雪起风沙痕
- 2021-07-17 11:15
是只读文件吧，把它改成存档，
全部回答
- 1楼网友：西岸风
- 2021-07-17 13:11
目前试出了两种方法：
方法一、用WPS表格2012打开、编辑和保存，但以后也只能这样用WPS表格操作，到了excel上还是不能正常保存； 方法二、
1、编辑完成后，右键点左下角的任一标签名，点选定“全部工作表”；
2、再在标签名上点右键，这次选“移动或复制工作表”，但弹出的小窗口
一定要这样选：
选上面选“新工作簿”，下面勾选“建立副本”
3、然后点“确定”，这时会新打一个新的EXCEL文件，文件名是BOOK1，这个BOOK1就是我们可以进行任何操作的复制文件了；
4、把BOOK1换名另存到需要的位置，以前操作的那个原文件就不管它了。 5、大功告成！
- 2楼网友：毛毛
- 2021-07-17 12:20
既然是朋友发给你的，应该是只读文件，如果有宏默认情况下Excel会有提示的，所以你修改后不要直接保存，选另存为看看是不是可以。
- 3楼网友：话散在刀尖上
- 2021-07-17 11:41
同时按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，在打开窗口中选择你说的文件，完成后，该文件的宏就没密码了。接着按我上面的步骤，可以解决了。我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯