오류가 발생하면 시트를 자동으로 보호 할 수 있습니까?

Question

나는 고토를 사용하여 오류를 시도했지만 오류가 발생해도이 작업을 건너 뛰거나 스크립트에 넣을 위치에 따라 오류가 발생하지 않은 것처럼 보입니다.

런타임 오류 코드 줄에서 발생 : 귀하의 의견을 바탕으로

Range(Worksheets("Search Engine").Cells(9, 1), Worksheets("Search Engine").Cells(Endcolumn, Endrow + 2)).Select Selection.RowHeight = 20` when `Endcolumn = 0 

Answer 1

, 당신이보고있는 Application-defined or object-defined error 당신의 Endcolumn 변수는 엑셀 Range 1 기반이기 때문에 이런 일이 0 인 경우,

Sub ErrorExample() 

    On Error GoTo ErrHandler ' Set the Error Handling Condition 
          ' in this case, if an error occurs 
          ' goto the ErrHandler label 

    ' do stuff 
    Debug.Print "I am in `do stuff` code" 

    Range(Worksheets("Search Engine").Cells(9, 1), 
      Worksheets("Search Engine").Cells(Endcolumn, 
      Endrow + 2)).Select Selection.RowHeight = 20 

    Exit Sub ' Exit from the Sub gracefully and do not run the 
      ' following lines of code (if this is not 
      ' included, the ErrHandler code will run in all 
      ' cases, not just error cases 

    Debug.Print "I will never run" 

ErrHandler: 
    Debug.Print "I am in the error code" 
    ' Code to run in case of error 
    ThisWorkbook.Worksheets("Search Engine").Protect ' protect your sheet 
    On Error GoTo 0 ' Reset the error handling condition 
End Sub 

01 : 그것을 처리하는 방법 0

특별히 오류 처리에서 가장 관심을 보인다 때문에이 여기에 대략의 열이 결코 의미하는 0 기반이 아닌