Sub зберегти_лист_зведена_на_стіл()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets(Array("ЗВЕДЕНА"))                                 
        s.Copy 
For Each cell in ActiveSheet.UsedRange.Cells
   cell.Formula = cell.Value
Next cell                                                 
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & s.Range("K5") & ".xlsx" 
    Next
End Sub

Sub сохранить()
 Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets(Array("Лист1"))                                 
        s.Copy                                                  
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & s.Range("K5") & ".xlsx" 
    Next
End Sub

vButVis = CommandButton1.Visible

Private Sub Worksheet_Activate()
If ActiveWorkbook.Password = "" = False Then CommandButton1.Visible = 0 
If ActiveWorkbook.Password = "" = True Then CommandButton1.Visible = -1    
 End Sub