Ark beskyttelse på alle ark samtidig

Sub Beskyt()
For Each ws In Worksheets

    Sheets(ws.Name).Protect password:="kode"
    Next
End Sub

og modsat

Sub UBeskyt()
For Each ws In Worksheets
    Sheets(ws.Name).Unprotect password:="kode"
    Next
End Sub

Lidt af ideen med kodeord forsvinder dog - såfremt én der har en lille bitte smule forstand ville kunne trykke alt+F11 og se koden! Men ok, så har du også med en person at gøre som vil ødelægge/ændre noget!

stewen > man kan altså sætte kode på modulet

ja, det ved jeg - men så begynder vi også at snakke om at du til, i yderste tilfælde, ÉN Excelfil har 4-5 koder (som selvfølgelig kan være den samme)

men selvfølgelig alt kan kodes - og alle koder kan brydes! ("ingen regler uden undtagelser")

kabbak-> Også koden på modulet kan ret let omgås, men det er åsan set også ligegyldigt. Sikkerheden i Excel er ikek til at beskytte statashemmeligheder, men for at forhindre at folk ændrer noget "ved en fejltagelse". Bevidst "hærværk" er der ingen mulighed for at forhindre. Så det er efter min meningn ret ligrgyldigt om man bruger kode eller ej.

enig.

også mig - enig

hva så ransborg, kører det ?

kabbak, ja jeg er taknemlig, det var en fin løsning

Mvh
Ransborg

tak for point's ;-))

kan man ikke lave cellehenvisning, som indeholder koden. Cellen kan så skjules.

kll1978 -> spørgsmålet her er fra 2003... og for længst afsluttet.

Men jeg svarer gerne på dit spørgsmål: Jo det kan man godt! Men det øger ikke sikkerheden for hvis det er en cellehenvisning, kan igen bare kalde værdien af den celle i VBA... Så som jkrons rigtigt skriver er det ikke muligt at forhindre bevidst hærværk.

Jeg har dog ikke testet sikkerheden af, i Office 2007 - men den skulle efter sigende være øget...