Flerbruger af excel filer på server
Jeg har et system bestående af 5 excel workbooks og et word doc alt ligger i samme biblotek. den ene excel fil er en masterside hvor der indtastes nogle personoplysninger som så bliver overført til den workbook som åbnes med funktionsknap. I dag har hver bruger sit eget system men det gør vedligeholdelse besværlig. Jeg ønsker at ligge det på serveren evt som skabelon så de findes kun et sted og så alle kan anvende dem samtidigt. men når jeg gør det fungerer funktionerne mellem de forskellige workbooks ikke. Jeg ved godt at referencen i mit program ikke er rigtig når de bliver lagt ud og åbnet som skabelon men hvad skal jeg ændre koden til. der er vedhæftet et eksempel.Private Sub Balloon_Click()
Dim wb As Workbook
Dim wbOpen As Boolean
Dim wbFilename As String
wbOpen = False
wbFilename = "BA147NAI.xls"
For Each wb In Application.Workbooks
If wb.Name = wbFilename Then
wbOpen = True
wb.Activate
End If
Next
If wbOpen = False Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\BA147NAI.xls", ReadOnly:=True
Application.Windows.Arrange xlArrangeStyleCascade
End If
End Sub
jeg håber der er nogle som kan hjælpe.