De macro's altijd mee-opslaan bij het opslaan van de spreadsheet.

[EJProsman]

Beste helpmij-ers

Ik heb een Excel system met macro's. Is het mogelijk om de eigenschappen van de spreadsheet zo worden opgeslagen dat de macro's altijd meegenomen worden? Als ik nu bijvoorbeeld opsla als 'Excel werkmap' gaan alle macro's verloren. Het blokkeren van de optie om gewoon op te slaan is voldoende, ik zou zelf eventueel een knop kunnen maken voor het opslaan met macro's. Het is de bedoeling dat de gebruiker niet zonder macro's kan opslaan.

Alvast bedankt voor de hulp!

 

[Mark xl]

Het makkelijkste is om et standaard saveformat in te stellen op XLSM / XLS

Of plaats deze macro in de "thisworkbook" module van je project

Option Explicit
Private mlngDefSaveFormat As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myAnswer As VbMsgBoxResult

    If Not ThisWorkbook.Saved Then
        'zorg ervoor dat onder geen beding het standaard
        ' msgbox de macro kan onderbreken
        myAnswer = MsgBox("Wilt u het bestand opslaan?", _
                            vbYesNoCancel + vbQuestion)
        Select Case myAnswer
            Case vbCancel
                Cancel = True
                Exit Sub
            Case vbNo
                'Schrijf saved status > voorkomt save msgbox
                ThisWorkbook.Saved = True
            Case vbYes
                ThisWorkbook.Save
        End Select
        
    End If
    
    Application.DefaultSaveFormat = mlngDefSaveFormat
    
End Sub
Private Sub Workbook_Open()
        mlngDefSaveFormat = Application.DefaultSaveFormat
        Application.DefaultSaveFormat = xlOpenXMLWorkbookMacroEnabled
End Sub

 

[edmoor]

Als de bedoeling is dat de macro's altijd beschikbaar zijn voor een gebruiker kun je er beter een invoegtoepassing (XLAM) van maken.

 

[EJProsman]

Ik heb het opgelost door de knoppen voor opslaan te blokkeren zodat er alleen via een knop opgeslagen kan worden. Via deze knop wordt het altijd met macro's opgeslagen!