Worksheet.Protection (Excel)

Returns a Protection object that represents the protection options of the worksheet.

Dim prtProtection As Protection
Set prtProtection = ActiveSheet.Protection