Password ved åbning af ark

Hvis det skal være skudsikkert? Så kan det ikke lade sig gøre. Du kan kode dig et stykke ad vejen via VBA, men hvis nogen VIL se dine data får de dem også at se.

Brug følgende til at skjule arket (skriv først et eller andet sted i det skjulte ark adgangskoden til at åbne det, fx i AC367.

Sub SkjulArk()
    Sheets("Ark1").Visible = xlVeryHidden
End Sub

For at vise arket kan du bruge denne kode:

Sub VisArk()
    a = InputBox("Indtast adgangskode")
    If a = Sheets("Ark1").Range("AC367") Then
        Sheets("Ark1").Visible = True
    Else
        Exit Sub
    End If
End Sub

Ret til fxv. angår det ark, der skal skjules og den celle, du skriver adgangdkoden i. Når det er færdigt, skal du have skjult det modul, du har koden i. Højreklik på modulnavnet og Vælg VBAProject Properties. I fanebladet Protection sætter du flueben i Lock Project for Viewing, og indsætter og bekræfter en adgangskode.

Det er som sagt ikke skudsikkert, da koden forholdsvis nemt kan brydes.

Perfekt - det virker. Brugeren er særlig stærk i Excel

Send lige et svar - så giver jeg point

Jeg kan dælme ikke få det til at virke???

Jeg vil lave et password på Ark2, som jeg har omdøbt til Intern. Hvordan vil VBA koden komme til at lyde?

Og hvad betyder fxv, som du hentyder til?

Sub SkjulArk()
    Sheets("Intern").Visible = xlVeryHidden
End Sub

Sub VisArk()
    a = InputBox("Indtast adgangskode")
    If a = Sheets("Intern").Range("AC367") Then
        Sheets("Intern").Visible = True
    Else
        Exit Sub
    End If
End Sub

fxv var en slåfejl.

Tak

Var det ikke mig, der skulle have haft pointene :-)?

Point?

Ny i forum og kender ikke til noget point system?

Når et svar accepteres overføres point til den, hvis svar, der er blevet accepteret. I dette tilfælde accepterede banboy dit svar, selv om det egentlig var mig, der havde givet løsningen :-)