Print side | Luk vindue

Tidsfrist adgang til workbook

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2084
Udskrevet den: 04.Mar.2025 kl. 13:28


Emne: Tidsfrist adgang til workbook
Besked fra: Oliver Storm
Emne: Tidsfrist adgang til workbook
Posteringsdato: 23.Apr.2015 kl. 16:56
Hej alle

Jeg vil meget gerne have enten en "Time limit" eller "User limit" på et af mine excel woorkbooks.

Er desværre ikke så stærk til VBA, så er der nogen her inde som kan hjælpe? 

Tak



Svar:
Besked fra: froksen
Posteringsdato: 23.Apr.2015 kl. 18:42
Hej Oliver

Er det en tidsbegrænsning på hvor længe arket på være åben eller, hvor længe det kan redigeres eller hvad er det egentlige formål med begrænsningen? :-)


Besked fra: Oliver Storm
Posteringsdato: 23.Apr.2015 kl. 22:16
Hej 

Formålet er ark'et skal være tilgængelig i ca. 4-6 måneder og derefter ikke muligt at åbne igen. 

Ved ikke om det er muligt?


Besked fra: EXCELGAARD
Posteringsdato: 24.Apr.2015 kl. 07:35
Det kan laves meget let med en enkelt kodelinje i 'Workbook_Open' eventen, men du bør nok spørge dig selv om dette virkelig er metoden???

Enhver 'sikkerheds' løsning, der bygger på VBA, kan meget let slås fra, bare ved at deaktivere makroer!

Rent faktisk vil det være meget mere sikker, blot at lave en alarm i din kalender, der pågældende dag, hvor regnearket ikke længere skal være tilgængelig, og så selv gå ind og slette arket manuelt - så, er du også sikker på, at det virkeligt er gjort...


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: froksen
Posteringsdato: 24.Apr.2015 kl. 16:00
Hvis det er fordi, at du gerne vil have, at brugerene skal kunne læse arket efter x-antal-tid bare uden at kunne ændre i det. Så kunne en mulighed være at sætte kode på arket?

Se evt. nedrestående link:
http://www.excel-easy.com/examples/read-only-workbook.html" rel="nofollow - http://www.excel-easy.com/examples/read-only-workbook.html


Besked fra: Oliver Storm
Posteringsdato: 26.Apr.2015 kl. 16:10
Hej!

Tak for svar. 

Ideen er at man får arket, og efter noget tid er det slet ikke muligt at åbne det. 

Må undersøge muligheden med Workbook_Open



Besked fra: EXCELGAARD
Posteringsdato: 26.Apr.2015 kl. 20:02
Jamen, det er såment nemt nok...

Hvis vi antager, at man ikke må kunne åbne regnearksfilen efter den 24. december 2015, så er koden blot:
Private Sub Workbook_Open()
      If Date > DaterSerial(2015,12,24) Then ThisWorkbook.Close False
End Sub
...men, blot husk, som jeg tidligere har nævnt: Dettte er UFATTELIGT let at omgå!


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: Oliver Storm
Posteringsdato: 28.Apr.2015 kl. 16:17
Hej 

Tusind tak for det! 

Ja, det er lidt kedeligt hvis man bare kan deaktivere makroer. 

Men det er en start :) 


Besked fra: Oliver Storm
Posteringsdato: 28.Apr.2015 kl. 16:27
Mmh får en fejl? Kan godt ske at det bare er mig som er noob:

"Compile error: 

Sub or Function not defind"

Hva' går galt?


Besked fra: EXCELGAARD
Posteringsdato: 29.Apr.2015 kl. 08:07
Ups - en stavefejl - der er kommet et 'r' for meget med - kommandoen hedder:
DateSerial
og, ikke
DaterSerial
Sorry...

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.



Print side | Luk vindue