Excel97, Gem knappen.

Du kunne evt. prøve at putte den ind i modulet THISWORKBOOK i:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Skal det gælde for både være "Gem" og "Gem som" ?

I et kodemodul for sig selv indsætter du følgende makro'er

Sub WorksheetMenuBar_Comment_OnAction()
    CommandBars("Worksheet menu bar").FindControl(, 3, , , True).OnAction = "DisableSaveInfo" 'File/Save
    CommandBars("Worksheet menu bar").FindControl(, 748, , , True).OnAction = "DisableSaveInfo" 'File/Save As
End Sub

Sub WorksheetMenuBar_Reset()
    CommandBars("Worksheet menu bar").FindControl(, 3, , , True).OnAction = "" 'File/Save
    CommandBars("Worksheet menu bar").FindControl(, 748, , , True).OnAction = "" 'File/Save As
End Sub

Sub DisableSaveInfo()
    MsgBox "Denne funktion virker ikke - brug arket egen gem knap"
End Sub



I kodemodulet "ThisWorkbook" indsætter du disse her.

Private Sub Workbook_Deactivate()
    WorksheetMenuBar_Reset
End Sub

Private Sub Workbook_Activate()
    WorksheetMenuBar_Comment_OnAction
End Sub


På denne måde får brugen en MsgBox hver gang menupunkterne forsøges brugt. "Gem" og "Gem som" er kun omstillet sålænge denne workbook er aktiv.

Hej Flemmingdahl
Din forslag vikrer udmærket. Den virker på både Gem og Gem som i Filer. Men den virker ikke på Gem ikonen i Værktøjslinijen.

En lille ændring/tilføjelse til de første to makro'er, så de kommer til at se således ud:

Sub WorksheetMenuBar_Comment_OnAction()
    CommandBars("Worksheet menu bar").FindControl(, 3, , , True).OnAction = "DisableSaveInfo" 'File/Save
    CommandBars("Worksheet menu bar").FindControl(, 748, , , True).OnAction = "DisableSaveInfo" 'File/Save As
    CommandBars("Standard").FindControl(, 3, , , True).OnAction = "DisableSaveInfo" 'Standard/Save
End Sub

Sub WorksheetMenuBar_Reset()
    CommandBars("Worksheet menu bar").FindControl(, 3, , , True).OnAction = "" 'File/Save
    CommandBars("Worksheet menu bar").FindControl(, 748, , , True).OnAction = "" 'File/Save As
    CommandBars("Standard").FindControl(, 3, , , True).OnAction = "" 'Standard/Save
End Sub