Question

我正在处理受保护的Excel工作簿，并试图消除或理解为什么在我的.MsgBox弹出窗口后出现关注消息：

您尝试更改的单元格或图表位于受保护的工作表上。至进行更改，单击Review选项卡中的Unprotect Sheet（您可能需要）密码）。

我在工作簿中只有一个输入字段（日期字段），我将该单元格样式设置为“输入”，并将单元格格式修改为“不受保护”，以便即使工作簿是锁定。

我的VBA / Macro：

Sub WeeklyReport()

Dim Week As String

Set WeekValue = ThisWorkbook.Sheets("Report_Weekly").Range("PRM_weekvalue")

Week = WeekValue


Application.ScreenUpdating = False
Call unprotectmacro


With ActiveWorkbook.Connections("SQLDBConnection").OLEDBConnection
.CommandText = "EXEC dbo.usp_WeeklyReport '" & Week & "'"
ActiveWorkbook.Connections("SQLDBConnection").Refresh

    Sheets("Report_Weekly").Select
    Range("A13").Select
    MsgBox "The workbook is now refreshed."

End With
    ActiveSheet.Protect "passwordgoeshere", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Protect "passwordgoeshere", Structure:=True, Windows:=False
    'Application.ScreenUpdating = True
End Sub

我希望此消息不会出现给我的最终用户，但我不明白为什么会这样。我唯一想到的是，在重新打开保护页后，表格没有被刷新。如果是这种情况，有没有办法等待后台查询完成运行再次保护工作表？

Answer 1

要解决我的问题，我进入了数据标签，取消选中“启用后台刷新”。我相信这只能解决我的问题，因为我使用的是OLEDB连接类型。

Excel 2013受保护的工作表vba弹出消息

1 个答案: