![]() 'Report any sheets that cound not be unprotected (if applicable) MsgBox "The following Worksheets were not found in your Excel file:" & Chr(10) & Chr(10) & Trim(NotFoundList) 'Report any sheet names that were not found (if applicable) ![]() 'Store a list of sheets not found in the ActiveWorkbook If sht.ProtectContents = True Then WrongPasswordList = WrongPasswordList & " If ProtectionStateDetermined = False And (sht.ProtectContents Or sht.ProtectDrawingObjects Or sht.ProtectScenarios) Then UnprotectSheet = True 'Determine if we need to protect or unprotect these sheets (based off of first instance) Set sht = ActiveWorkbook.Sheets(SheetArray(x)) ![]() SheetArray = Array("Sheet1", "Sheet2", "Sheet4")įor x = LBound(SheetArray) To UBound(SheetArray) 'PURPOSE: Add/Remove password protection to a list of tab names
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |