Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngLaatsteInvoer As Range
Set rngLaatsteInvoer = Range("A1")
If Target.Address = rngLaatsteInvoer.Address Then
Application.OnTime Now + TimeValue("00:01:00"), "Wissen"
End If
End SubPrivate Sub Wissen()
Range("A1").ClearContents
End Sub
Dat geeft toch niet... Je bent nu toch op de juiste plaats voor vragen?
Jack Nouws,Dat geeft toch niet... Je bent nu toch op de juiste plaats voor vragen?
Hoe scherm je trouwens die andere tabbladen af? Ik bedoel, als je gewoon een workbook met een hele serie tabbladen hebt, kan iedereen dus gewoon naar hartelust van tabbladen wisselen.
Ik begrijp dat ik wellicht nu een beetje 'advocaat van de duivel' speel, maar het zijn wel vragen om over na te denken (én af te handelen!).
Mijn voorstel is dan ook om een workbook te maken met allemaal 'hidden sheets'. Bij het openen krijg je zo'n inputbox voor je neus waar je je naam of ID of iets dergelijks moet opgeven. Na validatie zal alleen jouw sheet getoond worden.
Groet, Leo
Ja ja... 't is voor ons helpers óók zondag hoor! :evil:
Ja ja... 't is voor ons helpers óók zondag hoor! :evil:
Maar goed, ik heb je sheet flink onderhanden genomen. Die 1e sheet heb ik verwijderd, die leek me vrij onzinnig. Op de sheet 'Registratie' heb ik een 'protect' en een 'scrollarea' gezet. Hierdoor heb je alleen nog maar de mogelijkheid om de cel van de persoonlijke inlogcode te selecteren. Als je een code hebt ingetikt, druk je op de knop 'log in'. Er vindt dan een check plaats in je tabelletje met ID's in kolom P. Als de code goed is, wordt de juiste sheet zichtbaar en verdwijnt de sheet 'Registratie'. Er wordt dus niet meer gewerkt met je eerder gekregen code om het ID te verwijderen na een x aantal seconden.
Let wel...! De nu gemaakte 'beveiliging' is voor de iets gevorderde exceller een wassen neus. Je kan het allemaal iets verder doorvoeren, maar je krijgt Excel nooit 100% beveiligd.
Kijk maar of je er zo iets mee kan.
Groet, Leo
Sub Terug()
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
Select Case sh.Name 'het uitvragen via een select is expres
Case "Registreren"
sh.Visible = True
Case Else
sh.Visible = False
End Select
Next sh
Range("D10").Select
End Sub
