Makro stopper ikke ved "gem fil", hvis filen er skrivebeskyttet

kan du ikke bare bruge SaveAs og så filens normale navn + yymmdd så kan man finden den igen ved at søge på navn, og finde nyeste gemte version let.

Desværre ikke. Brugeren skal starte med at omdøbe filen til bestemt tilbudsnummer og gemme den i en bestemt mappe til denne bestemte sag.

Det var egentligt tænkt som en sikkerhed. Det skal undre om ikke en eller anden på et tidspunkt glemmer at omdøbe filen fra starten af.

Som det er nu kører makroen bare færdig og på skærmen står der, at filen er glemt. Men det viser sig at filen ikke er gemt.

du kan måske hente tilbudsnummer fra en celle, og se om det indgår i filnavn - er det der, så save, ellers saveas med tilbudsnummer indsat som filnavn.

Tænker!!

I denne projektmappe

Private Sub Workbook_Open()
      MappeFilNavn.show
End Sub

og så lave en Userform (døbt: MappeFilNavn) med indtastning af mappe og file navn, for derefter at gemme, så glemmer ingen at omdøbe!!

Kan Lave et eks. hvis det har interesse!!

Jan

Ja, det kan godt være en mulighed.
Har du mulighed for at vise mig makro koden på det ?  Det kan jeg jo ikke bruge Indspil makro til...…..

Laver lige et lille eksempel, vender tilbage!!

Ja, meget gerne :-)

her er et forsøg

https://1drv.ms/x/s!AmlqgsyjsAq5hu48N2DiHogOuC-OAQ?e=RFEQva

Jan

Mange tak for hjælpen. Jeg kigger på det.

mvh Dorte

Velbekomme

Måske:

Sub Gem()

If Not ActiveWorkbook.Name = "skabelon.xlxm" Then Exit Sub

'Din gem kode

End Sub

Glem #11

Sub Gem()

If ActiveWorkbook.Name = "skabelon.xlsm" Then Exit Sub

'Din gem kode

End Sub

Hej store-morten

Super nem løsning - TAK for det.

Men jeg kunne godt tænke mig, at der bliver vist en boks på skærmen, hvor jeg kan skrive mig egen tekst.
Hvordan laver man makro kode til sådan en ? og kan man overhovedet det ?

mvh Dorte

Sub Gem()

If ActiveWorkbook.Name = "HEM.xlsx" Then
MsgBox "Filen gemmes ikke!!"
Exit Sub
End If

'Din gem kode

End Sub

Tusind tak for hjælpen.
Nu kører det lige som jeg ønskede det :-)