Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
menu search
person
Welcome To Ask or Share your Answers For Others

Categories

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.

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
738 views
Welcome To Ask or Share your Answers For Others

1 Answer

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

Thank you!


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
...