Opslaan van Macrobestand beveiligen

[halloikke]

Geachte lezers,

In onze organisatie speelt het volgende probleem:

Wij gebruiken Excelsheets met hierin macro's om bepaalde gegevens om te kunnen schrijven zodat deze goed geïmporteerd kunnen worden in onze softwaresystemen. Nu worden de gegevens in de excelsheets aangeleverd door onze klanten. Nu wil het nog wel eens voorkomen dat klanten minder kennis hebben van Excel en daardoor de excelsheet opslaan als bestand zonder macro's. Zodra wij het bestand dan terugontvangen zijn bij ons de macro's weg. Is het mogelijk om een bestand te beveiligen bij het opslaan zodat alleen de keuze gemaakt kan worden om het betreffende bestand op te slaan als bestand met macro's?

 

[ExcelAmateur]

Kijk op deze link, of je er wat mee kunt.
http://www.helpmij.nl/forum/showthread.php/882751-quot-Opslaan-Als-quot-in-VBA?p=5692685&highlight=Opslaan+als+xlsm#post5692685

 

[gast0660]

Hoi,
Test deze eens, onder this workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then Exit Sub
    On Error GoTo ErrorHandler
    Cancel = True
    Dim FileName As String
    FileName = Application.GetSaveAsFilename(FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    If FileName = "False" Then Exit Sub
    Application.EnableEvents = False
    ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ErrorHandler:
    Application.EnableEvents = True
End Sub

 

[snb]

Dan zou ik meteen een macro inbouwen die de gegevens automatisch naar jullie website (FTP) uploadt.

 

[VenA]

Altijd leuk dat een vraag op opgelost gezet wordt zonder te weten wat de oplossing is.

Het lijkt mij vrij onzinnig om bestanden met daarin VBA te gaan versturen omdat veel bedrijven/gebruikers er geen gebruik van willen/mogen maken. En zoals blijkt uit de vraag er ook niet mee om kunnen gaan. Je zal dus wat code moeten schrijven om de ontvangen bestanden om te zetten naar dat wat je wilt. Dit lijkt mij een logischer proces