Installationsproblem

Har försökt installera följande vätskebalans_mall.xls på jobbet…. Men fått bara problem. Jag vet inte vad som orskar problemen, så därför listar jag lite data om filen och installationen:
Filen:

1. underlaget VBL.xls skapades i XL-97 av JS. Bestog av 5 blad, kallad blad 1,2,3,4,5
2. underlaget mailades till mig.
3. Jag öppnade i XL-2000. Tog bort 4 blad, döpte om blad 1 till vätskebalans och sparade filen under annat namn i filformatet: XL-arbetsbok
4. Skickade filen vätskebalans_mall.xls med mail till jobbet, där filen av en 3:e person (A.G) kopierades till mappen Vätskebalans på skrivbordet, och öppnades i XL-97.

NU BÖRJAR PROBLEMEN !!!

1. När A.G tryckte på Nytt_knappen med koden så fick man följande felmeddelande

2. När A.G tryckte på spara_knappen med"]http://lelkes.webhostme.com/Sparknapp.htm\]med koden så fick man följande felmeddelande

3. det enda som funkar är skriv ut knappen"]http://lelkes.webhostme.com/SkrivUt.htm\]knappen

Det Mystiska är att det fungerar utmärkt hemma på min dator!

Tillägg: försökte spara om, nu i filformatet:XL 97-2000 arbetsbok –har ännu inte fått svar om det hjälpt!!

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Dennis,

det är fullt av vara vundsjuk*ler*

försökte spara om, nu i filformatet:XL 97-2000 arbetsbok

1. svar JA
2. tror inte att filen är skrivskyddad – i kollade filens ”egenskaper” där är bara attributet ”arkiv” markerad.
3. Sökvägarna bör inte vara fel på, eftersom jag spelade in macro – och excell angav själv dessa sökvägar
4. Men jag kom på 1 sak som kan ha strulat till: efter att ag har sparat om i ” filformatet:XL ”97-2000 arbetsbok” så fick de makrofel… Och då kom jag på att jag hade moduler med makron som hänvisade till andra sökvägar kvar. Så jag passade på att ta bort de….. Väntar fortf på svar från jobbet.

en ny fråga: på vilket sätt kan jag sedan skydda arbetsbladet? Och VBA-koden?

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

jag kanske skall tillägga att datorerna är i nätverk...

Fick detta svar från jobbet: "Skickar med felsökningsloggen från VB editorn. Mot slutet finns en rad som det verkar vara något krångel där, för mappen på L:\hittas inte."KOD]
With ActiveWorkbook
.SaveAs Filename:="C:\WINNT\Profiles\All Users\Skrivbord\Vätskebalans\" & CStr(rnCell.Value)
.SaveCopyAs Filename:="L:\Vätskebalans\" & CStr(rnCell.Value) & ".xls"
End With
Application.Quit
End Sub

När jag på jobbet lätt exel spela in ett makro för bok1.xls för att få sökvägen så fick jag:<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">ChDir ”L:\Vätskebalans”
ActiveWorkbook.SaceAs FileName:=”L:\Vätskebalans\Bok1.xls”

Och:
ActiveWorkbook.SaceAs Filename:="C:\WINNT\Profiles\All Users\Skrivbord\Vätskebalans\Bok1.xls”

Det är ju samma sökväg som jag har…..
Och jag har kollat att jag fån all datorer kan hitta L:\Vätskebalans

Måste kolla upp så att mappen kan nåsa va samtliga profiler, som de är tänkt… eller kan det vara andra fel?

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Nu har jag fått svar:
Samtliga dvs ”all users” har fullständig behörighet till Mappen Vätskebalans på L:\

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Eftersom XL och VBA är kinkig med mellanslag i sökvägar har jag kollat koden för mellanslag:<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">.SaveCopyAs#"L:\Vätskebalans\"#&#CStr(rnCell.Value)#&#".xls"

.SaveAs#Filename:="C:\WINNT\Profiles\All#Users\Skrivbord\Vätskebalans\"#&#CStr(rnCell.Value) där #=mellanslag

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Problemet var att mappen på L var skrivskyddat - alltså inte filen.

Det Löste sig!

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

det var tråkigt det Dennis att Du har det...

MEN det uppstog ett nytt problem: det går inte att skydda bladet och därmed formlerna, mm - för då funkar ej att spara i mappen på skrivbordet

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Nej dennis, det har jag ej provat, MEN det konstiga är att det funkar på min dator..., men inte på jobbet!

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Hej Dennis!

Hoppas helgen förflyter lugnt, och att Du får ordning på moderkortseländet!!!!!

Mycket konstigt tycker jag MEN!:
Som sagt så funkar allt hemma på min hårddisk, men när jag skicka en olåst fil med mail, sparar den på dess plats och låser den = 1) skyddar blad 2) skyddar VBA-projektet så fungerar varken att spara med XL eller mina kodade knappar!!!!!!!!!

Jag gjorde även en test: den olåsta fil som jag skickade i mail till jobbet, låste jag och skickade hem!

• Det gick ej att spara på min hårddisk: Fick meddelandet Dokumentet sparas ej med VBA projektet låst

• jag gjorde ett nytt försök, efter att jag låst upp både bladet och VBA-projektet. Därefter försökte jag spara fick bara upp en varningsruta: ”Dokumentet sparades inte

  Så tyvärr har jag inte kunnat kolla din kod om den funkar (skall jobba i morgon och då kan jag göra det)
  MEN menar Du typ: <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">With ActiveWorkbook
  wsBlad.Unprotect password:="xxxx"
  .SaveAs Filename:="C:\Vätskebalans\" & CStr(rnCell.Value) & ".xls"
  wsBlad.Protect password:="xxxx"
  End With
  Application.Quit
  End Sub

  Låser detta även upp VBA-projektet?
  Skall jag skicka filen olåst eller låst?
  Är det bättre att ta med filen på en diskett?

  ------------------
  Tack på förhand!
  Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Dennis,
vad menar du med:

- Se till att alla knappobjekten är olåsta

Du menar kanske att den cell som knapparna finns i får ej vara låsta??
Det var de - kanske det var felet???????

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Hej Dennis,
Nu har jag provat och provat igen!

1. knappanarna celler var låsta – jag låste upp
2. det funkar när jag slår på arbetabladsskyddet

MEN när jag sätter på VBA-skyddet utan koden <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"> wsblad.unprotect password:="Ditt" får jag fel meddelande: Ms Visual Basic

Körfel nr ’1004’ dina ändrongar kunde inte sparas….[/CITAT}

När jag använder arbetsbladsskydd + VBA-skyddet med koden <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"> With ActiveWorkbook
wsBlad.Unprotect password:="mpc190"

.SaveAs Filename:="C:\WINNT\Profiles\All Users\Skrivbord\Vätskebalans\" & CStr(rnCell.Value)
.SaveCopyAs Filename:="L:\Vätskebalans\" & CStr(rnCell.Value) & ".xls"
wsBlad.Protect password:="mpc190"
End With
Application.Quit
Hela knappkoden: <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"> Private Sub Nyttknapp_Click()
Dim wsBlad As Worksheet
Dim rnCell As Range, rnCellC As Range, rnCellD As Range, rnOmrade As Range, rnDatum As Range
Dim sMedd As String, sTitel As String

Set wsBlad = ThisWorkbook.Worksheets("vätskebalans")
Set rnDatum = wsBlad.Range("E7:K7")
Set rnCell = wsBlad.Range("I1")

sMedd = "Du har glömt att antingen fylla i" & Chr(10) _
& "VIKTen, kroppsTEMPen, RespTiden."
sTitel = "Viktig information"

If IsEmpty(Range("L9")) Then
MsgBox "Patientens LÄNGD måste vara ifyllt.", vbInformation, sTitel
End
ElseIf IsEmpty(Range("I1")) Then
MsgBox "Personnumret måste vara i fyllt", vbInformation, sTitel
End
End If

For Each rnCellD In rnDatum
If Not IsEmpty(rnCellD) Then
Set rnOmrade = Range(rnCellD.Offset(40, 0), rnCellD.Offset(42, 0))
For Each rnCellC In rnOmrade
If IsEmpty(rnCellC) Then
MsgBox sMedd, vbCritical, sTitel
End
End If
Next rnCellC
End If
Next rnCellD

With ActiveWorkbook
wsBlad.Unprotect password:="mpc190"

.SaveAs Filename:="C:\WINNT\Profiles\All Users\Skrivbord\Vätskebalans\" & CStr(rnCell.Value)
.SaveCopyAs Filename:="L:\Vätskebalans\" & CStr(rnCell.Value) & ".xls"
wsBlad.Protect password:="mpc190"
End With
Application.Quit
End Sub
Får jag felmeddelandet:

MS Visual Basic, felmedd 1004: Metoden unprotect i objektet ’_Worksheet’ misslyckades

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Dennis,

Det verkar som om Du tråkigt nog inte riktigt tror på mig*snyft*
Därför gjorde jag ett nytt försök:

1. sparade den mailade olåsta filen på nytt i mappen vätskebalans – allt fungerade

2. skyddade bladet - allt fungerade

3. låste projektet i VBE
   a) sparade dokumentet både i VBE och efter att jag stängde VBE (klickade på krysset)
   b) stängde dokumentet

4. öppnade dokumentet igen och NU börjar mina problem:
   a) försöker jag spara dokumentet (antingen via Arkiv/spara, eller via sparknappen som jag kodade ) får jag meddelandet från Microsoft Visual Basic: Körfel nr ’1004’.: Dina ändringar kunde inte sparas i dokumentet ’vätskebalans.xls’ men sparades temporärt i dokumentet’22C9FF30’
   b) försöker jag spara under ett nytt namn (antingen via den kodade knappen eller via Arkiv/Spara som) får jag meddelandet från Microsoft Visual Basic: Körfel nr ’1004’.:
   Dokumentet sparades inte.

Det ovanstående intygas ”på heder och samvete”*ler*

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

PS.:
vilken ver av XL använder Du? Även jag får allt att funka dvs både skydda av blad och VBA projekt hemma där jag använnder XL 2000 - som ju "programmet" är skapad i, men inte i XL97 som vi har på jobbet.

Kan inte det vara så att därri ligger konflikten?

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Dennis,

Nu har jag kommit på problemet, tror jag…….
Mitt ”program” är sparad i filformatet:

Microsoft Excel 97-2000 & 5.0/95 arbetsbok

I det formatet fungerar det inte heller på min dator hemma!!

När jag sparar i filformatet:

Microsoft Excel 97-2000 & 5.0/95 arbetsbok

Microsoft Excel arbetsbok ….ja, då fungerar det bra! Som sagt iaf hemma på min ”burk”

Nu hoppas jag att jag även kan använda detta format på jobbet! Där vi ju har XL-97

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Förra inlääget blev lite fel, så är det när jag klipper och klistrar efter 3 nätters arbete*ler*

Så här skulle det vara:
Dennis,

Nu har jag kommit på problemet, tror jag…….
Mitt ”program” är sparad i filformatet:

Microsoft Excel 97-2000 & 5.0/95 arbetsbok

I det formatet fungerar det inte heller på min dator hemma!!

När jag sparar i filformatet:

Microsoft Excel arbetsbok

….ja, då fungerar det bra! Som sagt iaf hemma på min ”burk”

Nu hoppas jag att jag även kan använda detta format på jobbet! Där vi ju har XL-97

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter