XL 2016 Possible de bloquer l'enregistrement du doc si il n'y a pas de données ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim Teste As Boolean, C As Range
  With Sheets("Tabelle1")
    For Each C In .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
      If Application.CountA(C.Resize(, 12)) < 12 Then
        Teste = True
        Exit For
      End If
    Next C
    If Teste = True Then Cancel = True
  End With
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook.Sheets("Tabelle1").Range("A2:L6")
    Cancel = Application.CountA(.Cells) < .Cells.Count
    If Cancel Then
        MsgBox "Enregistrement interrompu: tout le tableau doit être rempli!", vbExclamation, "Enregistrement"
    End If
End With
End Sub

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If ThisWorkbook.Saved = False Then Cancel = True
  Sheets("Feuil1").Visible = xlSheetVisible
  Sheets("Tabelle1").Visible = xlSheetVeryHidden
  ThisWorkbook.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim Teste As Boolean, C As Range
  With Sheets("Tabelle1")
    For Each C In .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
      If Application.CountA(C.Resize(, 12)) < 12 Then
        Teste = True
        Exit For
      End If
    Next C
    If Teste = True Then Cancel = True
  End With
End Sub

Private Sub Workbook_Open()
  Sheets("Tabelle1").Visible = xlSheetVisible
  Sheets("Feuil1").Visible = xlSheetVeryHidden
End Sub