2020-09-03 19:04发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）嗨， 这个有点奇怪，我试图更新... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
嗨，
这个有点奇怪，我试图更新工作表保护并启用"编辑页面轴"，因为我有很多文件都不能手动执行。
出于某种奇怪的原因，我无法保存文件并保留新设置，因此可以使用VBA启用它们，但是通过VBA保存时，下次打开该设置时，这些设置就会消失。
当我手动保存文件时，可以通过VBA启用相同的设置。
我目前很沮丧，非常感谢您的帮助。
有时候问题很明显，但是很难发现....
问题似乎仅仅是我在测试用例中使用的是工作簿保护" 301"，而不是工作表保护" 300"。
希望我没有在任何人身上浪费太多时间，再次感谢您对Vadim的投入，这使我再次经历了此事。
EPM.SetSheetOption myWorksheet，300，True，" 12345"，SheetProtection
对不起，但是，如果您不提供VBA代码，该如何帮助您？
我的道歉，凌晨3点，我不再是最专注的对象。 谢谢您，我现在提供了一个测试示例。
将EPM用作FPMXLClient.EPMAddInAutomation 昏暗的wb作为工作簿 薄板保护 子测试（） Application.EnableEvents = False Application.ScreenUpdating = False 昏暗的文件系统作为对象 昏暗的HostFolder作为字符串 HostFolder =" C：\ Users \ TestUser \ Desktop \ Small Sample Test" 设置FileSystem = CreateObject（" Scripting.FileSystemObject"） DoFolder FileSystem.GetFolder（HostFolder） Application.ScreenUpdating = True Application.EnableEvents = True Debug.Print"全部完成！" 结束子 '遍历文件夹 子文件夹（文件夹） 设置EPM = New FPMXLClient.EPMAddInAutomation 昏暗的子文件夹 SheetProtection = FPMXLClient.ProtectSheet_ProtectContents _ + FPMXLClient.ProtectSheet_AllowFormatCells _ + FPMXLClient.ProtectSheet_AllowInsertAnyMember _ + FPMXLClient.ProtectSheet_AllowEditPageAxis 对于Folder.SubFolders中的每个子文件夹 如果子文件夹喜欢" * TEAM FILES *"，则 Debug.Print子文件夹 其他 DoFolder子文件夹 万一 下一个 昏暗的文件 对于Folder.Files中的每个文件 如果文件类似" * .xlsx *"，则 设置wb = Workbooks.Open（fileName：= File，UpdateLinks：= False） 设置myWorksheet = wb.ActiveSheet 在错误转到To ErrorHandler EPM.SetSheetOption myWorksheet，301，False，" 12345"，FPMXLClient.ProtectSheet_ProtectContents Application.DisplayAlerts = False EPM.SetSheetOption myWorksheet，301，True，" 12345"，SheetProtection '设置在这里应用，但是保存和关闭会删除它们 wb.SaveAs fileName：=文件，FileFormat：= xlOpenXMLWorkbook wb.Close SaveChanges：= True Application.DisplayAlerts = True 万一 下一个 退出子 ErrorHandler： 调试打印错误说明 继续下一个 结束子
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 就爱装逼 的问题《EPM-无法使用VBA代码保存工作表保护》','https://www.easysap.com/q-52219.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
有时候问题很明显，但是很难发现....
问题似乎仅仅是我在测试用例中使用的是工作簿保护" 301"，而不是工作表保护" 300"。
希望我没有在任何人身上浪费太多时间，再次感谢您对Vadim的投入，这使我再次经历了此事。
对不起，但是，如果您不提供VBA代码，该如何帮助您？
我的道歉，凌晨3点，我不再是最专注的对象。 谢谢您，我现在提供了一个测试示例。
将EPM用作FPMXLClient.EPMAddInAutomation 昏暗的wb作为工作簿 薄板保护 子测试（） Application.EnableEvents = False Application.ScreenUpdating = False 昏暗的文件系统作为对象 昏暗的HostFolder作为字符串 HostFolder =" C：\ Users \ TestUser \ Desktop \ Small Sample Test" 设置FileSystem = CreateObject（" Scripting.FileSystemObject"） DoFolder FileSystem.GetFolder（HostFolder） Application.ScreenUpdating = True Application.EnableEvents = True Debug.Print"全部完成！" 结束子 '遍历文件夹 子文件夹（文件夹） 设置EPM = New FPMXLClient.EPMAddInAutomation 昏暗的子文件夹 SheetProtection = FPMXLClient.ProtectSheet_ProtectContents _ + FPMXLClient.ProtectSheet_AllowFormatCells _ + FPMXLClient.ProtectSheet_AllowInsertAnyMember _ + FPMXLClient.ProtectSheet_AllowEditPageAxis 对于Folder.SubFolders中的每个子文件夹 如果子文件夹喜欢" * TEAM FILES *"，则 Debug.Print子文件夹 其他 DoFolder子文件夹 万一 下一个 昏暗的文件 对于Folder.Files中的每个文件 如果文件类似" * .xlsx *"，则 设置wb = Workbooks.Open（fileName：= File，UpdateLinks：= False） 设置myWorksheet = wb.ActiveSheet 在错误转到To ErrorHandler EPM.SetSheetOption myWorksheet，301，False，" 12345"，FPMXLClient.ProtectSheet_ProtectContents Application.DisplayAlerts = False EPM.SetSheetOption myWorksheet，301，True，" 12345"，SheetProtection '设置在这里应用，但是保存和关闭会删除它们 wb.SaveAs fileName：=文件，FileFormat：= xlOpenXMLWorkbook wb.Close SaveChanges：= True Application.DisplayAlerts = True 万一 下一个 退出子 ErrorHandler： 调试打印错误说明 继续下一个 结束子一周热门 更多>