BPC10:锁定EPmFormattingSheet并在保存数据时发出

2020-09-07 08:47发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)亲爱的社区, 我已经拥有解锁工...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


亲爱的社区,

我已经拥有解锁工作表的密码:" IO_Budget_LC"和" IO_Budget_MAD",但是该密码不适用于工作簿" EPMFormattingSheet"。

这是当我单击保存数据时出现的VBA代码:

子Button7_Click()

 设置api = Application.COMAddIns(" FPMXLClient.Connect")。Object
    
     api.SaveWorksheetData
 结束子

 函数BEFORE_SAVE()

 设置api = Application.COMAddIns(" FPMXLClient.Connect")。Object

 api.SetSheetOption Sheet1、301,False," Password",SheetProtectionOptions

 如果(Range(" H1")。Value =" ALERT")然后

 MsgBox("错误:您正尝试同时发送具有一般帐户详细信息和总值的数据。请在下面的屏幕上单击-否-")

 其他
    
 万一

 api.SetSheetOption Sheet1、301,True,"密码",SheetProtectionOptions

 结束功能

 函数AFTER_SAVE()

 设置api = Application.COMAddIns(" FPMXLClient.Connect")。Object

     api.RefreshActiveSheet

 api.SetSheetOption Sheet1、301,False," Password",SheetProtectionOptions

 如果(Range(" H1")。Value =" ALERT")然后

 MsgBox("错误:您同时发送了具有一般帐户明细和总值的数据。请以红色删除细胞的一个选项并再次保存")
 其他
 万一
 api.SetSheetOption Sheet1、301,True,"密码",SheetProtectionOptions
 结束功能
 

刷新工作表时,尽管出现了已保存数据的成功状态,但未保存数据。

能帮我解决这个问题吗?

此致

(14.6 kB)