Verify protection status within a macro
I have a sheet that is kept protected unless it is time for data entry. I
would like to run a macro that checks for protection status, unprotect if needed, then sorts, then returns the sheet to the protection status (i.e. if not protected, leave unprotected, if protected, reprotect). Help? |
Verify protection status within a macro
Maybe...
Option Explicit Sub testme01() Dim WasProtected as Boolean wasprotected = WksIsProtected(Worksheets("sheet1")) if wasprotected = true then 'unprotect the sheet end if 'do your sort if wasprotected = true then 'reprotect the sheet end if End Sub Function WksIsProtected(wks As Worksheet) As Boolean If wks.ProtectContents = True _ Or wks.ProtectDrawingObjects = True _ Or wks.ProtectScenarios = True Then WksIsProtected = True Else WksIsProtected = False End If End Function Pivot Table/Query wrote: I have a sheet that is kept protected unless it is time for data entry. I would like to run a macro that checks for protection status, unprotect if needed, then sorts, then returns the sheet to the protection status (i.e. if not protected, leave unprotected, if protected, reprotect). Help? -- Dave Peterson |
All times are GMT +1. The time now is 10:08 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com