Userform en opslaan

[allard1]

Vrienden,

Ik heb voor een workbook een userform gemaakt waarbij mensen een keuze kunnen maken voor verschillende rekensheets. Dit ziet er zeer gelikt uit. Ik heb ook een sluiten knop gemaakt. Nu wil ik echter bij de sluiten knop op het menu niet dat het scherm voor opslaan e.d. in beeld komt. Nu heb ik van Demeter een vbascript gekregen om ervoor te zorgen dat je alleen Save as kan gebruiken.......Maar ik wil dus alleen voor die ene specifieke knop gewoon sluiten en verder niets.

Vraag 2....Als ik een opslaan als knop wil maken in VBA, hoe boks ik dat voor elkaar ?

Veel vragen, misschien teveel maar ik wil ook veel weten

Groet en bedankt,

Allard:thumb:

 

[Vangans]

Op je 2devraag kan ik normaal antwoorden.

Sub opslaan()

Deze macro slaat de ingegeven bestanden op nadat de naam is ingegeven

    fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excelbestanden (*.xls), *.xls")
    If fileSaveName <> False Then ThisWorkbook.SaveAs fileSaveName1 & ".xls"
    
End Sub

Hang dit achter je knop en je kan hem opslaan

 

[Axel Hagg]

Dag Allard,

Antwoord op eerste vraag:

Activeworkbook.close SaveChanges=False

gegroet,

Axel.