Beskyttelse af ark

Jeg bruger nedenstående funktion, når jeg vil beskytte et ark men tillade, at grupper virker. Det er userinterfaceonly, der trigger, at det bliver muligt. Måske du kan bruge det.

Function ProtectAndAllowGroups(ByVal SheetName As String, Optional ByVal Password As String)
  With Sheets(SheetName)
    .Protect Password:=Password, userinterfaceonly:=True, AllowFiltering:=True
    .EnableOutlining = True
    .EnableAutoFilter = True
    .EnableSelection = xlNoRestrictions
  End With
End Function

Har prøvet at smide det ind i VBE men uden held, man kan stadig redigere i tekst, bokse etc? Hvad gør jeg forkert?

Er dine celler og bokse "Locked"?

Nej, hvordan gør man det?

Marker en af de celler, du mener skal være låst
Gå ind i formater celler/beskyttelse
Check, at fluebenet for "Låst" er sat

Højreklik på dine objekter
Vælg egenskaber
Check at "Loced" er sat til "True"

Jeg kan stadig ikke få det til at funke, har du en mail så kan jeg sende et ark hvor i du gerne må prøve at beskytte det på den måde du beskriver?

Hej FroZties,

Jeg gør følgende:

Ved de celler der skal kunne redigeres på nogen måde, fjerner jeg fluebenet for "Låst" under "Formater celle/Beskyttelse"

Så åbner jeg Visual Basic, og under modulet "ThisWorkbook" skriver jeg følgende, for at makroer m.m. stadig fungerer:

---
Private Sub Workbook_Open()

If ActiveWorkbook.ReadOnly = False Then
    ActiveWorkbook.Close
End If

Dim wSheet As Worksheet

    For Each wSheet In Worksheets

        wSheet.Protect Password:="1234", _
            UserInterFaceOnly:=True

Next wSheet

Range("A1").Select
End Sub
---
...og så er arket beskyttet med adgangskoden: 1234

PBChristensen: Har sendt en private message til dig herinde, i håb om du kan hjælpe...

froZties, du kan maile mig på jc@3xchristensen.dk - så kigger jeg på de i aften.

Hej FroZties...

Beklager, men i mit forslag til løsning er der inkluderet en ekstra sikkerhed. Din fil skal være skrivebeskyttet, ellers vil den ikke åbne... (bare fjern de 3 linier mellem private og end if, så er den sikkerhed væk)

...og husk at de bokse, kontrolelementer m.v., som dine brugere skal kunne åbne, ikke skal være markeret som "låste" - så skulle det køre.

...men ellers, så ser jeg på din mail senere...

Hej FroZties

Tak for tilsendte. Det er altid nemmere at forstå problematikken, når man ser det :-)

Gør følgende:

Højreklik på kontrolelement øverst til venstre
Vælg formater "kontrolelement"
Vælg fanebladet "Beskyttelse"
Fjern hakket under "Låst"

Højreklik på C330, som kontrolelementet peger på under "Kontrolelement/cellekæde"
Vælg "Formater celler"
Vælg fanebladet "Beskyttelse"
Fjern hakket under "Låst"

Gør tilsvarende for de andre kontrolelementer.

Beskyt ark - fjern evt. hakket under "Marker ulåste celler" for at forhindre, at brugeren får adgang til feltet.

Jeg mailer dig lige arket, hvor jeg har fikset den første.

God arbejdslyst :-)