• 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.

Nogmaals over beveiliging

Status
Niet open voor verdere reacties.
W

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Na een slechte ervaring met iemand die al mijn spellingspakketten per ongeluk heeft gewist, heb ik een opzet gemaakt, zodat dit niet meer zou kunnen gebeuren.
Het bestand opent met een schermvullende userform.
Alle handelingen gebeuren op de userform, niemand hoeft nog in het bestand zelf te komen.
Kan op deze manier, iemand die het wachtwoord niet kent, toch nog in het bestand of in de VBE geraken?
En dan bedoel ik een gewone huis-,tuin- en keukengebruiker, geen specialist.
En als dit nog wel kan, hoe dan?
 

Bijlagen

  • Userform = schermvullend.xlsm
    19,2 KB · Weergaven: 43
Welke spellingspakketten ?

Heb je geen kopiebestanden ?
 
Simpel.
- Hernoem het document van .xlsm naar .zip
- Pak deze uit
- Open de map xl
- Edit het bestand workbook.xml
- Wijzig: <workbookPr codeName="ThisWorkbook"/>
- In dit: <workbookPr codeName="TEST"/>
- Selecteer de uitgepakte mappen en het bestand [Content_Types].xml
- Klik er met rechts op
- Kies Send to
- Kies Compressed (zipped) folder
- Hernoem het .zip bestand naar .xlsm
- Dubbelklik op het document om het met Excel te openen
- Tada!

Beveilig dus ook je VBA project.
Toegegeven. Dit is niet voor de simpele eindgebruiker ;)
 
Laatst bewerkt:
Het was een bestand waarin op blad1 spellingsregels konden geoefend worden door leerlingen.
Op blad2 stonden allemaal woordpakketten(per spellingsregel).
Blad2 werd onbedoeld verwijderd, dus weg alle woordpakketten.
En neen, ik had geen kopie-bestand.
 
Hallo Ed,
Dit zie ik een gewone gebruiker niet zomaar even uitvoeren.
Mijn bedoeling is niet om sabotage te voorkomen.
Alleen een minimale beveiliging om ongelukjes te voorkomen.
 
En het is simpel om tevens je VBA project te beveiligen met een wachtwoord.
 
Dat is ook de bedoeling om ook de VBA te beveiligen, maar dat was in het meegestuurde voorbeeld, niet gebeurd.
Groeten Wieter.
 
Prima dat je dat wel doet, en uiteraard ook dat je dat niet hebt gedaan in het voorbeeld bestand
Zet tevens niet het wachtwoord in een cel van een werkblad maar in het Tag attribuut van het Userform:
Code: 
Private Sub CommandButton1_Click()
    Response = InputBox("Alleen toegankelijk met de toeganscode!" & vbNewLine & "Geef uw toegangscode in.", "TOEGANGSCODE")
    If Response <> Me.Tag Then MsgBox "Foutieve toegangscode", , "FOUT": Exit Sub
    Unload Me
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan