VBA Excel如何使用函数作为参数？

Question

我想编写一个函数，该函数将在我的工作表运行时取消保护并重新保护它们。我目前拥有的功能如下：

Public Function RunProtect(fun As Function, sheet As Worksheet)
    Dim protected As Boolean: protected = False
    If sheet.ProtectContents = True Then
        protected = True
        sheet.Unprotect
    End If

    'Code to run fun 

    If protected = True Then
        sheet.protect
    End If
End Function

这是否可行，或者有更简单的方法吗？在尝试使用vba编辑表格时，我必须取消保护自己的工作表。

Answer 1

使用UserInterfaceOnly:=true保护一次，您无需每次都取消保护。 -GSerg

谢谢！