Prevent save and save as for specific sheet if condition within the sheet doesn't meet.

If you want to save a single sheet as a workbook, then use the 'Sheet.Copy' method without specifying a destination to copy to. That automatically creates a new workbook with your sheet in it. Then you can 'SaveAs' to name the file whatever you want. The methods you are using will save the entire workbook, not just the one sheet. The code for the 'SaveAs' button triggers the 'Workbook_BeforeSAve' macro causing it to make the comparison of the totals, and if they do not match, it will not do the SaveAs. Your problem is in the logic, not the code per se.

JLGWhiz you know what of kind things I would like to do? If I activate and working on first sheet , don't check total and save, But if I working on second sheet in this case check the total and then save it if criteria meet.

You have entered the "Private Sub WorkbookBeforeSave" in "ThisWorkbook" that means that this code is activated for every worksheet in your workbook and will stop you from saving if the condition specified in the macro is met in any of the sheets.

If you cut the code and paste it to Sheet2 ("Staff Targets") the macro will only check condition on sheet2 and stop saving if condition is met only on sheet2. I.e.

If ST.Range("C" & Rows.Count).End(xlUp) <> Range("B4") Then

Alf

Try subsitituting this code for your Daily Targets SaveAs button code. It should save the Daily Targets sheet without triggering the BeforeSave macro.

Sub SaveAsDailyTarget()
Dim Path As String, wb As Workbook
Dim Workbook_Name As String
Set wb = ThisWorkbook
Path = "C:\Users\xezer.suleymanov\Desktop\Personal Folder\ItalDizain\Report Form for Target Sales_Version 2\"
Workbook_Name = Range("A1") & " " & Range("A2")
Sheets("Daily Targets").Copy
ActiveWorkbook.Saveas Filename:=Path & Workbook_Name
wb.Activate
End Sub

Also, in your BeforeSave macro modify the If statement as follows.

If ST.Range("C" & Rows.Count).End(xlUp) <> ST.Range("B4") Then

Check post #5, using original codes.