Protect / unprotect af ark

variabel muligheder:
DrawingObjects:=True, Contents:=True, Scenarios:=True
Det nemmeste er at optage en makro med de muligheder du ønsker,

hvis du ikke ønsker kode på, sletter du bare "kode"

Jeg har tror ikke man kan spørge om arket er lås, men du kan bare låse/ulåse arket flere gange i træk.


for at låse
    For Each Skema In Worksheets
        Skema.Protect "kode"
    Next Skema


modsat vej
Dim Skema As Worksheet
       
For Each Skema In Worksheets
    Skema.Unprotect "kode"
Next Skema

oversigt varibel muligheder:

.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True,Password:="kode"

Det ser rigtigt godt ud mht. første del af mit spørgsmål. :O)
Med hensyn til protect/unprotect, så har jeg en workbook, hvor nogle af min sheets er protectet og andre ikke. Jeg har derfor brug for at kunne gemme en oplysning om, hvilke sider der er protectet, således at alle sider kan unprotectet via en løkke, jeg kan lave mine ændringer, hvorefter jeg kan protecte de sider som tidligere var beskyttet. Jeg forstiller mig noget om at oplysningen kan lægges ind i en variabel, som efterfølgende kan anvendes, når beskyttelsen sættes igen.

Denne låser arket hvis der stå noget i celle X1

Sub laas()
    For Each skema In Worksheets
        If skema.Range("x1").Value <> Empty Then
            skema.Protect "kode"
        End If
    Next skema
End Sub

DU kan bruge disse to makroer.

Sub Unp()
    For Each s In ActiveWorkbook.Sheets
        If s.ProtectContents = True Then
            s.Unprotect
            s.Range("A1") = "B"
        End If
    Next s
End Sub

Sub Prot()
    For Each s In ActiveWorkbook.Sheets
        If s.Range("a1") = "B" Then
            s.Range("a1").ClearContents
            s.Protect
        End If
    Next
End Sub

Husk at rette A1 til en celle, du ikke bruger.

Og så skal man lige huske at opdatere inden man svarer :-)

jkrons --> fint nok, dit svar er alligvel lidt anderledes, jeg kendte ikke protectcontents.

Hej Ikrons - det ser godt ud og virker helt efter hensigten, så opgaven er løst. Hvis I lægger et svar så deler jeg med 30 point til hver. Der var jo to spørgsmål.

Her er et fra mig :-)

Hey, hvordan deler jeg egentlig point med 30 til hver?

ps. tak for svarene - de har været til stor hjælp :O)

takker