Automatisk navngive fil

Hej iss

Prøv om du kan bruge denne kode. Hvis der skal password på arkbeskyttelsen virker koden ikke.

Sub Gem_som()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
    ActiveWorkbook.Save
    Application.Dialogs(xlDialogSaveAs).Show Range("A2") & ".xlsm"
End Sub

Er det så ikke en skabelon, du skal lave? Så det ikke er muligt at gemme "oven i", men du skal tage stilling til, hvilket navn, der skal gemmes under.

Filnavn fra celle: hvis det ønskede navn står i A1:

Sub navngiv_fra_celle()
vupti = "c:\Slet_mig\"
    VAPTI = vupti & Range("a1") & ".xls"
    ActiveWorkbook.SaveAs Filename:=VAPTI, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=True, CreateBackup:=False
End Sub

Husk at tilpasse Vupti-linjen, så den passer til din sti.

Opgivet og lukker.