Snasui Excel Forum

Code: Select all

    Workbooks("AAA.xlsm").Select
    Workbooks("AAA.xlsm").Open true

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Cannot to save file"
End Sub

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveSheet.Name <> "Sheet1" Then
        Cancel = True
        MsgBox "Cannot to save file"
    End If
End Sub