Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
    
 Dim FullFileName As String
 Dim FileName As String
 Dim FullPath As String
 Dim PathName As String
    
    'первое условие - данные из ячейки С2
    FullFileName = ThisWorkbook.Sheets("band").[C2]
    
    ' второе условие - определяем имеющееся название и место сохранения книги
    FileName = Application.ThisWorkbook.Name
    FullPath = ActiveWorkbook.Path
    PathName = FullPath & "\" & FileName
        
    'сравниваем условия, указываем действия при несовпадении
    If FullFileName <> PathName Then MsgBox ("Копия запрещена!")
    If FullFileName <> PathName Then Cancel = True
      
End Sub