Opslaan als .xls

[Aljohn]

Hallo,

Ik heb een exel sjabloon, waarin een knop zit om hem opteslaan.
Als je hem opent door er dubbel op te klikken(dus niet als sjabloon openen) en dan op de knop opslaan drukt dan wil ik dat hij hem opslaat als .xls.

Sub SaveAs()
'
' SaveAs Macro
'

Application.Dialogs(xlDialogSaveAs).Show [d3] & " mw" & [h3] & ".xls"


End Sub

dit is de code die ik ervoor heb, alleen slaat hij hem nu op als .xlsx
En hierdoor werken de macro's niet meer zodat je hem niet opnieuw op deze manier kunt opslaan.
En het selecteren van een anders bestandstype in het dialoogscherm Save as is ook geen optie, het moet met de macro gaan.
En het dialoog scherm Save as moet er wel zijn want de de loactie waar hij opgeslagen moet worden verschild
Het ducument is toegevoegd en heeft als wachtwoord; 12345678

Met vriendelijke groet,
aljohn

 

[Aljohn]

na 1,5 uur gezocht te hebben, heb ik toch wat kunnen vinden op een forum ergens, dit is de code nu;

Sub SaveAs()
'
' SaveAs Macro
'

  
  Application.Dialogs(xlDialogSaveAs).Show [d3] & "mw" & [h3] & sStr,[COLOR="Red"] 1[/COLOR]

End Sub

En door de rode 1 te veranderen verander je de extensie.