Bestand verwijderen bij verkeerde wachtwoord module (VBA)

[royb73]

Beste,

Voor een klein corporatie doe ik de administratie. Ik heb wat modules die bepaalde sheets verborgen houdt waarin informatie van huurders staan en is niet zichtbaar voor anderen.

Ik heb de modules ook beveiligd met een password.

Mijn vraag is, of er een vba code is die bij een x-aantal keren verkeerd wachtwoord ingevoerd wordt (modules), dat hij het bestand verwijderd of locked op het systeem.

Ik hoor het graag.

mvg

Roy.

 

[wampier]

Zolang de persoon weet waar hij mee bezig is, is dat onmogelijk.

Bovendien zijn verborgen sheets sowieso een wassen neus, want je kunt de inhoud van verborgen sheets nog steeds kopiëren. De enige manier om het echt veilig te krijgen is met een interface naar een database of (iets minder veilig maar wel beter) een koppeling naar een tweede bestand dat niet extern te openen is.

 

[royb73]

Beste Wampier,


Ik had wel iets op internet gevonden die een beetje op lijkt. Aangezien ik een beginner ben, snap ik niet helemaal wat hier gebeurt:

CommandButton1_Click() 
Dim username, password As String 
Dim Wks As Worksheet 
username = TextBox1.Text 
password = TextBox2.Text 
Select Case TextBox1.Text 
Case Is = "Admin" If TextBox2.Text = "admin" Then 
'Unprotect all sheets 
For Each Wks In Worksheets 
Wks.Unprotect "password" 
Next Wks 
End If 

Case Is = "Data Input" If TextBox2.Text = "kmart2011" Then 
'Protect all sheets 
ProtectAllSheets 
'Unprotect Sheet1 (Scoring) 
'Unprotect Sheet14 (State Safety Score Movement) 
Sheet1.Unprotect "password" Sheet14.Unprotect "password" 
End If 

Case Is = "Reporting" 
If TextBox2.Text = "Reporting" Then 
'Protect all sheets 
ProtectAllSheets 
'Unprotect Sheet14 (State Safety Score Movement) 
Sheet14.Unprotect "password" 
End If 

Case Else 
MsgBox "You entered the WRONG info. Please try agian", vbCritical 
End Select 

Unload Me 

End Sub

 

[wampier]

Dat geeft nog steeds geen maximum aan het aantal pogingen en heeft ook niets te maken met de beveiliging van het VBA blok. Het enige wat hier gesimuleerd wordt is verschillende users die verschillende rechten krijgen