<20 시트 보호되어 있는 시트에서 매크로 작업 가능하도록 하기>

<20 시트 보호되어 있는 시트에서 매크로 작업 가능하도록 하기> 
Sub 메인프로시저() 
   Dim sh As Worksheet 
   Set sh = Sheet1    
   Call fnUnProtect(sh) 
      'To do    
   Call fnProtect(sh) 
End Sub 

Sub fnProtect(sh As Worksheet) 
   sh.Protect Password:="1234567", AllowFormattingColumns:=True, _ 
   AllowFormattingRows:=True, AllowFiltering:=True 
End Sub 

Sub fnUnProtect(sh As Worksheet) 
   sh.Unprotect "1234567"    
End Sub

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]