åbne med makro via skalbelon

Husk at rette filnavnet på din skabelon og ret evt. True i sidste linje til False, hvis du ikke vil have, at den oprindelige fil skal gemmes, når den lukkes.

**********
    Dim objWB As Workbook
    Dim objNewWB As Workbook
   
    Set objWB = ActiveWorkbook
    Set objNewWB = Workbooks.Add("C:\MinSkabelon.xlt")
   
    objWB.Close True
*************

fungerer ja men kan åbenbart ikke fungere sammen med den næste del af min kode, som blot er en enkelt linie
UserForm1.Show


Private Sub CommandButton5_Click()
    Dim objWB As Workbook
    Dim objNewWB As Workbook
   
   
    Set objWB = ActiveWorkbook
    Set objNewWB = Workbooks.Add("\\sti\test.xlt")
      objWB.Close False

UserForm1.Show
End Sub

Kan du se hvad jeg gør galt?

LN

Ja, det kan jeg godt. Du starter med at kalde en procedure i objWB - som du jo lukker. Ergo "dør" proceduren. Du bør derfor vente med at lukke objWB, så det bliver det sidste, du gør i din procedure. Flyt objWB.Close False til efter UserForm1.Show.

hmm det kan ikke rigtigt lad esig gøre. Den udfører ikke
objWB.Close False
LN

Hvilken workbook er den aktive, når du kører proceduren? For det er jo den, der bliver lukket.

Den der bliver lukket - tror jeg

Mit problem er at brugerne jo ikke ser mine ændringer i skabelonene medmindre de lukker ned og op igen. Og det glemmer de at gøre ind i mellem.
Har så en knap de trykker på for at åbne en userform til indtastning. I det mellemliggende tidsrum kunne det være fedt at man lukker og åbner igen. Men det er slet ikke sikkert det sådan lige kan lade sig gøre.

LN

Hvorfor skriver du, at objWB.Close ikke bliver udført (08/08 11:23:31), når du i dag skriver "Den der bliver lukket"?

Hvorfor skulle brugerne se dine ændringer? Hvad er formålet med at lukke ned og op igen? De lukker vel deres pc, når de går hjem?

Måske skulle du i stedet fortælle mig, hvad problemet egentlig er. Så kan jeg måske bedre hjælpe.

Nej de lukker ikke deres pc. Det kører i døgndrift her og der er 3 holdsskift.

Probelemert er at brugerne ikke lukker systemet ned engang i mellem - dvs de ser ikke mine ændringer.

LN

jeg har en løsning der kan gøre at jeg kan skrive en besked til dem om at lukke ned og op igen. Så større er problemet ikke. Ville bare gerne fritage dem for dette.

LN

Dvs. scenariet er som følger:

En bruger har fyret din Excel-skabelon i luften. Den bliver aldrig lukket igen og bliver således ikke opdateret, uanset hvad du egentlig gør.

Er det rigtigt?

Bliver skabelonen afviklet direkte fra en server eller har alle brugere en lokal kopi (som dermed skal opdateres)?

fra serveren i hvert fald ligger skabelonen på et Netværksdrev
Når de åbner åbner de et system baseret på skanbelonen. dvs på hver pc arbejder de i hver deres "kopi".
Jo de lukker den ned ind i mellem, men der kan gå lang tid i mellem. Jeg har bedt dem lukke ned feks en gang i døgnet. Det tager absolut ingen tid for dem men det sker ikke.

Jeg har ingen problemer med at opdatere skabelonen. Men så længe brugerne sidder og arbejder i en fil baseret på den gamle skabelon ser de jo ikke ædnringerne.

LN

LN

Jeg ved godt, at de får hver deres "kopi" at arbejde i, når de fyrer Excel i luften. Jeg var bare ude efter at vide, om I der skulle køre en synkronisering, hvis I havde valgt at afvikle filen fra hver deres skabelon.

Jeg kan ikke helt se problemet med den kode, som jeg har lavet, men du kunne jo også gøre som følger:

*****************
Private Sub Workbook_Open() 'placeres i ThisWorkbook-modulet så formen bliver fyret i luften, når der bliver dannet en ny fil
    If ThisWorkbook.Path = "" Then
        UserForm1.Show
    End If
End Sub
*****************

Og så min kode på den knap, som de bruger, når de skal have vist formen.

Hvordan går det her?

ikke så godt - det er ikke lykkedes
Og lige nu har jeg vildt travlt med alt muligt andet på arbjde. Har svært ved at få ro til at koncentrere mig om opgaven på mit arbejde.
Men jeg vil godt give point for indsatsen og så kan jeg gå tilbage og tjekke, når der er lidt mere ro på.
Du skal have tak for din hjælp.

LN

Du vender bare tilbage :-)

tak;O)