Delt regneark

Man skal efter min mening gøre alt for at undgå delte regneark! Har man det behov bør man seriøst overveje at flytte til en database (der er født til at være delt).

Og umiddelbart er svaret nej - det er muligt at man kan gøre noget med VBA...

En database er desværre ikke en mulighed.
Nogen der kan noget VBA der kan løse det?

Selv med VBA vil det bleve noget høns, da man på en eller anden måde, skal finde ud af hvilken bruger, der har åbnet regnearket, og det kan man ikke direkte i Excel, men skal have fat i et Windows API, Dernæst skal det beskyttes med en kode (og der skal være en for hver bruger), som også skal kontrolles via vba, og som derfor skal ligge ukodet et eller andet sted.

Jeg ved præcist hvem der åbner arket, enten Poul eller mig.

Hvordan kan koden sem, hvem af jer, der er på?

Jeg tænker om det er muligt at fastlåse linje 2, 4 og 8 til bruger Butterfly og linje 1-200 til Poul undtaget linje 2, 4 og 8.

Jeg har en ide, men skal lige have afprøvet s0den, når jeg kommer hjem

Det tog sin  tid, men her er noget, der virker, selv om det ikke er elegant. Koden skal ligge på mappens modulark

Private Sub Workbook_Open()
Dim Bruger As String
Dim LCol As Integer
Dim LRow As Long

Bruger = UCase(InputBox("Indtast brugernavn"))
Select Case Bruger
Case Is = "BUTTERFLY"
  With ActiveSheet
        .Unprotect
        .Range("1:1, 2:3, 5:7, 9:200").Locked = True
        .Range("2:2, 4:4, 8:8").Locked = False
        .Protect Contents:=True
        .EnableSelection = xlUnlockedCells
  End With
Case Is = "POUL"
    With ActiveSheet
        .Unprotect
        .Range("2:2, 4:4, 8:8").Locked = True
        .Range("1:1, 3:3, 5:7, 9:200").Locked = False
        .Protect Contents:=True
        .EnableSelection = xlUnlockedCells
  End With
Case Else
  ActiveSheet.Unprotect
  ActiveSheet.Cells.Locked = True
  ActiveSheet.Protect
End Select
End Sub

Butterfly kan taste i række 2, 4, og 8
Poul i rækkerne 1, 3, 5, 6, 7 og 9 til 200
Andre kan ikke taste.

Jeg kan desværre ikke få det til at virke. Skulle der komme en msgbox op, når jeg åbner regnearket? Eller skal jeg have noget kode i "Denne projektmappe"