skrivebeskytte til og fra (VBE)

Gem dine ark som beskyttet med et kodeord. Flg. kode gør at du kan arbejde med arket "Ark" i en sub el. funktion:

Dim Ark As Worksheet
Set Ark = Worksheets("MitArk")
Ark.Unprotect "MinBeskyttelsesKode"
Ark.Protect "MinBeskyttelsesKode"

Kan jeg gøre det samme med workbook?

Det skulle jeg mene - du kan jo prøve :-)
MEN er en beskyttelse af workbook'en det du vil? Kan du ikke godt skrive i cellerne selvom workbook'en er beskyttet?

Jo, jeg kan skrive i dem, men jeg kan ikke gemme ændringerne - hvis workbooken er beskyttet. Ideen er så, at hvis man har indtastet data i formularen, kan man slå beskyttelsen fra, gemme ændringerne, og så slå beskyttelsen til igen. Så kan man ikke (uden videre) foretage ændringer bare ved at lukke for formularen og indtaste forkerte oplysninger. Der skal heller ikke kunne oprettes nye ark.

    Dim Mig As Workbook
    Set Mig = Workbooks("ThisWorkbook")
    Mig.Unprotect "MinBeskyttelsesKode"
    Mig.Protect "MinBeskyttelsesKode"

virker ikke... "Subscript out of range"

Jeg sidder ikke lige med Excel lige nu, men prøv:
Set Mig = Thisworkbook

Ahh:
    ActiveWorkbook.Protect

Du får halv point for at sætte mig på sporet.