打开文件时出现错误，需要修复，点修复后提示“已删除的功能: /xl/worksheets/shee...

wlianke · 发表于 2024-1-14 13:24

请老师帮忙看看这个文件问题出在哪里。

打开文件时的提示

点选修复后的提示

修复日志信息

安全生产责任制考核)(3).rar (350.19 KB, 下载次数: 8)

wlianke · 发表于 2024-1-14 13:28

费了好大的功夫做的，实在是不想重做，请好心的老师帮忙给看看

wlianke · 发表于 2024-1-14 13:36

修复完成后，文件能正常打开使用，就是保存的时候会另存为

wlianke · 发表于 2024-1-14 13:57

在线等，不要沉

perfect131 · 发表于 2024-1-14 14:48

本帖最后由 perfect131 于 2024-1-14 14:49 编辑

一般 WPS跟Office 混着用会出现这种问题，还有金山文件下载后打开也会出现

从你的图片看这个文件 sheet1工作表有数据验证但office 不认识这种 xml格式（估计这个数据验证是wps做的）
所以你用wps打开试试

vba 打开
https://club.excelhome.net/forum.php?mod=viewthread&tid=1672101

3190496160 · 发表于 2024-1-15 10:01

安全生产责任制考核)(3).rar (317.17 KB, 下载次数: 8)

3190496160 · 发表于 2024-1-15 10:03

我这里是不报错了，自己看看呗
代码生成的数据有效性，在不同的版本中国运行就会出现你这样的错误提示，
可以在关闭文件时，自动删除数据有效性，每次打开文件时再重建数据有效性，
另外，你原来的代码存在重复累赘的代码，条件判断存在逻辑关系错误

wlianke · 发表于 2024-1-15 23:53

自己解决了，是数据有效性字符太长的原因，我不知道是谁举报的我这个贴子。
加入以下事件，完美解决问题
Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
Sheets("辅助表").Activate
ActiveSheet.UsedRange.Select
With Selection.Validation
.Delete
End With
ActiveWorkbook.Save
Application.Quit
Application.ScreenUpdating = True
End Sub

wlianke · 发表于 2024-1-15 23:55

3190496160 发表于 2024-1-15 10:03
我这里是不报错了，自己看看呗
代码生成的数据有效性，在不同的版本中国运行就会出现你这样的错误提示，
...

解决了，加入关闭工作薄前清除有效性并保存才行。谢谢你的提示！
Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
Sheets("辅助表").Activate
ActiveSheet.UsedRange.Select
With Selection.Validation
.Delete
End With
ActiveWorkbook.Save
Application.Quit
Application.ScreenUpdating = True
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 打开文件时出现错误，需要修复，点修复后提示“已删除的功能: /xl/worksheets/shee...

评分