如何在被锁定的Excel工作表中运行宏？

Question

锁定单元格后，宏不可用怎么办？

以下是我的那个宏的代码：
Sub 一键刷新()
'
' 一键刷新 宏
'
'
Range("J6").Select
ActiveWorkbook.RefreshAll
With ActiveSheet.PivotTables("数据透视表1").PivotFields("姓名")
.PivotItems("(blank)").Visible = False
End With
End Sub

如果要加什么语句，请直接写进去，不要告诉我在前和在后，完全不懂VBA，前后不明。

Answer 1

1、解除锁定后，刷新数据透视表。或者
2、保护工作表前，设置允许刷新数据透视表。此时，可以在保护工作表的前提下刷新数据透视表。
详细要看文件哦。

Q 928531376追问

这是一个控件的宏，必须锁定后使其能使用，设置允许刷新数据透视表没用

追答

哈，那就必须锁定后使用吧