통합시트보호와 VBA 명령어 설정 오류 해결 방법

회사에서 사용하고 있는 엑셀에

아래 코드를 이용하여 VBA 기능으로 '저장' 과 '다른이름으로 저장'을 막아두었습니다. (전임자가 작성해둔 코드입니다.)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"

If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.Count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub

최근 보안사항 업데이트를 위해 '통합시트 보호' 설정을 추가하게 되었는데

에러가 발생하였습니다.

통합시트보호 설정을 하게 되면 상단 VBA 코드에 문제가 있다는 알림 메세지와 함께 아래 코드에 노란 음영이 표시됩니다.

Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = xName & ""

필요한 설정은 아래와 같습니다.

1. 통합시트 보호
2. 파일의 저장 및 다른이름으로 저장 막기

상기 두가지 설정을 위해 VBA를 수정하거나 좀 더 간단한 방법이 있는지 문의드립니다.