如何在Excel中允许受保护工作表刷新外部数据？

您可能已经通过Excel内置功能“获取外部数据”从其他应用程序导入了数据，并且可以通过“全部刷新”按钮轻松更新导入的数据。然而，在保护工作表之后，“全部刷新”按钮被禁用，导入的数据无法再更新。如何在受保护的工作表中允许外部数据刷新呢？本文中的方法可以帮助您解决这个问题。

使用VBA代码允许在受保护的工作表中刷新外部数据

使用VBA代码允许在受保护的工作表中刷新外部数据

以下VBA代码可以帮助您在Excel中保护工作表后刷新导入的外部数据。请按照以下步骤操作：

1. 在受保护的工作表中，同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块，然后复制并将以下VBA脚本粘贴到模块窗口中。参见截图：

VBA代码：允许在受保护的工作表中刷新外部数据

Sub DataRefresh()
'Update by Extendoffice 5/28/2019
    ActiveSheet.Unprotect "123"
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2 ()
    If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
        Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
    Else
        ActiveSheet.Protect "123"
    End If
End Sub

备注：在VBA代码中，“123”是我们指定用于保护工作表的密码。请根据需要进行更改。

3. 确保光标位于第一个 Sub DataRefresh 代码段中，然后按 F5 键运行代码。在弹出的 导入文件 对话框中，请选择已导入数据的外部文件，然后点击 导入 按钮。

返回工作表后，您可以立即看到外部数据已更新。

备注：此代码可以刷新从Access、文本以及Excel文件导入到受保护工作表中的外部数据。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中允许在受保护的工作表中编辑对象？
• 如何在Excel中允许在受保护的工作表中合并单元格？
• 如何在Excel中允许在受保护的工作表中进行拼写检查？
• 如何在Excel中保护单元格格式但仅允许数据输入？