Forfatter |
Emne Søg Emne funktioner
|
Goldie
Forum Begynder
Medlem: 14.Jan.2011
Land: Danmark
Status: Offline
Point: 17
|
Emne: Beskyttelse af enkelt Ark Sendt: 29.Sep.2011 kl. 13:41 |
Hej Jeg har en exccelfil med mange faner. Jeg har skrivebeskyttet nogle celler i hvert ark men så opstår min udfordring. Det ene ark skal kun kunne ses ved at indtaste en kode. (Lønoplysninger). Kan Excel "kun" kodeordsbeskytte et ark og samtidig skrivebeskytte resten af arkene. Mange hilsner Paul
|
|
|
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 29.Sep.2011 kl. 15:00 |
Hej Paul, Både ja og nej. Hvis det er 100% sikkerhed du går efter, er Excel nok ikke det rigtige værktøj. Med VBA kan jeg skrive en kodestump som beder om en adgangskode når man aktiverer fanen med lønoplysninger. Hvad siger du? //Allan
|
|
Goldie
Forum Begynder
Medlem: 14.Jan.2011
Land: Danmark
Status: Offline
Point: 17
|
Sendt: 29.Sep.2011 kl. 15:17 |
Hej Allan Jeg er helt klar over at 100% beskyttelse opnåes ikke (og er heller ikke nødvendigt). I celle a:1 er en mailadresse som jeg sender arket til . Dette kaldes arkene
General
Info |
IT Udstyr |
OST |
Adm |
Værksted |
BS Navision |
MC Amex |
Løn |
SBE Invest |
eService_BJ |
Reception |
Mobil |
På alle ark er der kun nogle enkelte celler der ikke er skrivebeskyttet. Det er arket "Løn" som ikke skal kunne tilgåes af andre end dem som kender password. Når Arket "Løn" sendes må koden gerne følge med, men da det bliver sendt til personer på lønkontoret er det ikke et must Jeg takker mange gange hvis du kan bygge en lille stump der kan klare dette. Paul
|
|
GackB
Forum Begynder
Medlem: 01.Okt.2011
Land: Danmark
Status: Offline
Point: 1
|
Sendt: 01.Okt.2011 kl. 02:36 |
Hej Jeg er også interesseret i en funktion hvor jeg kan låse en enkelt fane i et excel ark med en kode, hvordan gør jeg det?
Mvh
Casper
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 03.Okt.2011 kl. 22:24 |
Hej Paul og Casper, Denne kode skal placeres i THISWORKBOOK og vil sikre at man ikke kommer ind på arket LØN ved en fejl. Grunden til jeg skiver 'Ved en fejl' er at man kan omgå koden ved at åbne arket uden makroer, men det kan man også gøre noget ved.... Sig til hvis sikkerheden ikke er høj nok. Når man klikker på arket 'Løn' vil koden aktivere arket 'Generel Info' og spørge om adgangskode. Hvis adgangskoden er lig med '123' så kan arket 'Løn' tilgås, ellers ikke. Private Const VIPArk = "Løn" Private Const Hovedside = "General Info" Private Const Kode = "123" Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = VIPArk Then Sheets(Hovedside).Select If Application.InputBox("Indtast adgangskode til arket " & VIPArk, "Beskyttet område", , , , , , 2) <> Kode Then Sheets(Hovedside).Select Else Application.EnableEvents = False Sheets(VIPArk).Select Application.EnableEvents = True End If End If End Sub
//Allan
|
|
Leif Jensen
Forum Begynder
Medlem: 27.Feb.2012
Land: DK
Status: Offline
Point: 6
|
Sendt: 27.Feb.2012 kl. 18:04 |
Hej Allan Jeg har fået også fået brug for at man skal indtaste en kode for at få vist et specifikt ark. Jeg kan godt få det til at virke med ovennævnte kode, men som du skriver så kan det omgås hvis der åbnes uden at makroer er valgt. Har du en løsning i ærmet som også kan forhindre visning ved makroer fravalgt. En ting mere... Når jeg anvender ovennævnte programstump så skal jeg godtnok indtaste en kode for at få vist siden, men hvis jeg i stedet for at indtaste koden går ned og klikker på fanebladet igen, som så bliver sat ind i stedet for kodeord så kan man uhindret se arket som jeg jo gerne ville have skjult på alle måder. Håber du kan hjælpe mig. På forhånd tak. Mvh. Leif
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 27.Feb.2012 kl. 22:45 |
Hej Leif, At bruger altid skal åbne med makroer, kan ikke tilsikres 100%, men man kan sikre at det ikke sker ved en fejl. Du har helt ret i at man godt kan tilgå siden 'Løn' med programstumpen, men en lille modifikation kan øge sikkerheden. Prøv med: Private Const VIPArk = "Løn" Private Const Hovedside = "General Info" Private Const Kode = "123" Private Sub Workbook_Open() Sheets(Hovedside).Select End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = VIPArk Then Sheets(Hovedside).Select Sheets(VIPArk).Visible = xlVeryHidden If Application.InputBox("Indtast adgangskode til arket " & VIPArk, "Beskyttet område", , , , , , 2) <> Kode Then Sheets(Hovedside).Select Sheets(VIPArk).Visible = True Else Application.EnableEvents = False Sheets(VIPArk).Visible = True Sheets(VIPArk).Select Application.EnableEvents = True End If End If End Sub
Nu vil fanen 'Løn' blive skjult når du klikker på den, og først kunne tilgås når koden er korrekt angivet. Hjalp det på funktionaliteten? //Allan
|
|
Leif Jensen
Forum Begynder
Medlem: 27.Feb.2012
Land: DK
Status: Offline
Point: 6
|
Sendt: 28.Feb.2012 kl. 08:52 |
Hej Allan,
Tak for din hurtige respons.
Det er blevet lidt bedre, men hvis du istedet for at klikke holder venstre mueknap vedvarende nede kan du se lønarket indtil du slipper museknappen - kan dette også forhindres?
Og lige et tillægsspørgsmål
Hvordan fletter man programstumpen for MAKROER eksemplet ind i LØN eksemplet, jeg har prøvet at sætte begge programstumper ind uden godt resultat - er det muligt at få begge muligheder kombineret?
Håber du kan hjælpe.
Mvh Leif
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 28.Feb.2012 kl. 21:36 |
Hej Leif, Prøv lige denne fil, som jeg tror lever op til dine ønsker Den kan ikke åbnes uden makroer (Sådan da...) Der skal tastes adgangskode hvis man vil have adgang til arket 'Løn' Arket 'Løn' skjules hver gang arket gemmes, for at undgå andre 'kigger med' Alle ark undtagen 'Uden makroer' skjules når filen lukkes, så brugere ikke kan se dem uden at have makroer aktiveret. //Allan
|
|
Leif Jensen
Forum Begynder
Medlem: 27.Feb.2012
Land: DK
Status: Offline
Point: 6
|
Sendt: 29.Feb.2012 kl. 10:34 |
Hej Allan,
Takker mange gange for eksemplet. Dejligt at du vil bruge tid på mig..!
Det har de ønsker jeg har behov for. Nu vil jeg tilpasse eksemplet til mine yderligere ønsker.
Mvh Leif
|
|