Regneark skal ikke kunne gemmes eller printes

Hej,

I VB modulet skriver du flg. to procedurer i arket Denne_projektmappe (ThisWorkbook):

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    MsgBox "Denne mappe kan ikke printes!" 'brugermeddelse
   
    Cancel = True 'Denne kode gør at arket ikke printes

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    MsgBox "Denne mappe kan ikke gemmes!" 'brugermeddelelse
   
    Cancel = True ' denne kode gør at arket ikke gemmes

End Sub

Tusind tak. Det virker lige som det skal:-)

Tænkte lige på, om det vil være muligt, at tilpasse vba-koden sådan at man kan låse op for regneskabet. Altså så det igen bliver muligt at gemme og printe. Kort sagt, kan man låse demo-regearket op med en adgangskode (f.eks. fire cifre), således at regnearket virker uden begrænsninger. Adgangskoden skal selvfølgelig kun indtastet en gang for at åbne regnarket.

Hvis du f.eks. beskytter strukturen i projektmappen med en kode, vil du kunne anvende flg. if sætning:

    If ActiveWorkbook.ProtectStructure Then

        Cancel = True

    End If

Denne tester om projektmappens struktur er beskyttet, og hvis den er det så sættes Cancel = SAND og der kan ikke printes eller udskrives.

Du indsætter denne kode, hvor der står Cancel = True i den oprindelige løsning.

Du beskytter projektmappen via menuen "Gennemse" - "Beskyt projektmappe" - (husk flueben i struktur) - Det er frivilligt om du vil sætte et password.

Kan man gøre det på andre måder, da projektmappen under alle omstændigheder skal være password-beskyttet?