Привет всем. Как сделать так чтоб невозможно было сохранить файл. Только с пом. макроса.  
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
a = MsgBox("Нельзя сохранить файл")  
If a = vbOK Then  
Cancel True  
End If  
End Sub  
ну как это все сохранить?    
Или можно при условии если допустим ячейка А1=1 то сохранить.  
Помогите пожалуйста