Alex Willard
Alex Willard

Reputation: 47

How do I Use a Function as a Parameter?

I would like a function that will unprotect and reprotect my Worksheet.

The function I have currently is as follows:

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

Is this possible or is there an easier way? I have to unprotect my sheets when trying to edit my tables in using VBA.

Upvotes: 1

Views: 161

Answers (1)

Alex Willard
Alex Willard

Reputation: 47

Protect once with UserInterfaceOnly:=true, and you won't need to unprotect each time. -GSerg

Thank you!

Upvotes: 2

Related Questions