Disabling a Macro in the workbook

[Hlowmaster]

Is htere a way to make an if then statement liike


If this macro is activated from a button then disable this private sub in the workbook module? then when the macro is done it re enables it

[mikerickson]

You can use Application.Caller to determine if a routine has been called as the result of a button click.

It would be easier to use that to branch around calling the sub rather than disabling the sub.

If TypeName(Application.Caller) <> "String" Then
    Call theMacro
End If

[Hlowmaster]

That work excepts the code in the workbook is to disable the save function.. And the macro i'm calling is to save something.. see its like.. you can't go to file menu save and save as.. only if you click the save "button" in the sheet.. if that makes sense.. then the macro saves it to a certain location.. not where somebody wants to save it

[royUK]

Are you using the before save event?

[Hlowmaster]

Yes I Am.. its like

Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
    
    If Sheets("Sheet1").Select & Range("A5").Value > 0 Then
    
        ActiveWorkbook.SaveAs Filename:="C:\Users\Hunter\Documents\" & Range("A1").Value, _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                          CreateBackup:=False
    
    ElseIf Sheets("Sheet1").Select & Range("A5").Value = 0 Then

    Cancel = True
    MsgBox "Uh uh"
    
    End If
      
End Sub

except that crashes the workbook i need something like that though where save and save as is disabled.. but u can push a button and it will save to a certain directory