Werkblad Excel beveiligen met VBA

Status
Niet open voor verdere reacties.
B

Boshoffer

Nieuwe gebruiker
Lid geworden
10 dec 2020
Berichten
3
Dag iedereen,

Ik heb een VBA code gevonden om een werkblad te beveiligen met een wachtwoord.
Nu is mijn probleem dat ik de code wel kan aanpassen maar dat het enkel maar uit cijfers mag bestaan. En ik vind niet direct waar ik iets moet veranderen om zowel cijfers als letters te kunnengebruiken.

In bijlage het bestandje waar ik de VBA codes uit wil gebruiken voor mijn eigen bestand.

Alvast bedankt voor de hulp.
 

Bijlagen

  • Tabblad verbergen(T1).xls
    59,5 KB · Weergaven: 24
Het lijkt me een zinloze excercitie.
 
Sluiten mag je zelf doen door je vraag als Opgelost te markeren.
 
als jij checkt op 1234 dan blijft dat zo want dat is je if

nu kan ik weet niet invoeren om bladen te zien :

Sub Wachtwoord()
'Prompt the user for a password and unhide the worksheet if correct
On Error GoTo Einde
If InputBoxDK("U heeft beperkte toegang, geef wachtwoord voor volledige toegang : ") = "weet niet" Then
Sheets("Blad2").Visible = True
Sheets("Blad3").Visible = True
Application.GoTo [Blad2!B3]
Else
MsgBox "Ingevoerd wachtwoord is onjuist!", _
vbCritical + vbOKOnly, "Geen toegang!"
End If
Einde:
End Sub
 
Ja, maar dan heb je dus al die overbodige code wel nodig.
Tevens zal dat in een 64-bit Office niet werken.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan