Function isSheetProtectedWithPassword(ws As Worksheet) As Boolean If ws.ProtectContents Then On Error GoTo errorLabel ws.Unprotect "" ws.Protect End If errorLabel: If Err.Number = 1004 Then isSheetProtectedWithPassword = True End Function
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools