blad beveiligen

Status
Niet open voor verdere reacties.

lsc.b

Gebruiker
Lid geworden
4 nov 2000
Berichten
187
hallo allemaal

door het vele zoeken en proberen zie ik het niet meer

ik wil enkel werkbladen kunnen verbergen via macro/vba
hoe moet het er uitzien

ik wil een knop in werkblad 1 zetten die enkel werkbladen kan verbergen
en ook weer zichtbaar kan maken met een wachtwoord

het zou ook fijn zijn dat mijn vba code`s die ik al heb ook kan beveiligen met een ander wachtwoord
wie kan er voor mij zo iets maken ik weet het niet meer
 
Je weet dat het super makkelijk te omzeilen of te kraken is. Dus als beveiligen voor anderen een doel zou zijn? Dat heeft geen zin.
De vraag is al veel vaker voorgekomen + oplossingen, heb je al gezocht hier op het forum?
 
Ondanks de prima opmerkingen van route99 toch een voorbeeldje van hoe je dat zou kunnen doen:
Code:
Private Sub CommandButton1_Click()
    If ActiveSheet.CommandButton1.Caption = "Verbergen" Then
        For Each sh In Sheets(Array("Blad3", "Blad4", "Blad5"))
            sh.Visible = xlVeryHidden
        Next sh
        ActiveSheet.CommandButton1.Caption = "Tonen"
    Else
        If InputBox("Wachtwoord: ", "Beveiliging") = "1234" Then
            For Each sh In Sheets(Array("Blad3", "Blad4", "Blad5"))
                sh.Visible = True
            Next sh
            ActiveSheet.CommandButton1.Caption = "Verbergen"
        End If
    End If
End Sub

Een VBA project kan je beveiligen door er met rechts op te klikken en Eigenschappen te kiezen.
Daar wordt het vanzelf duidelijk.
 
bedankt edmoor

ik ga hier mee aan de slag
ps ik was al op het forum aan het zoeken en had al hier en daar iets gevonden wat bruikbaar zou kunnen zijn
 
beste edmoor

hoe kan ik mijn wachtwoord instellen zodat ik in mijn scherm ***** zie nu ik het wachtwoord en dat is niet de bedoeling voor de rest werkt het al prima hier
 
Dat gaat niet zomaar met een inputbox. Je kan er wel een userform voor maken met een tekst object waarvan je het PasswordChar attribuut op * zet.
Ook zou je een Scripting object kunnen gebruiken die dat wel kan.
Kan ik best een voorbeeld voor maken, maar niet om 23:01 ;)
 
Ik zal eens kijken of ik dat vanavond kan doen.
 
Laatst bewerkt:
Graag gedaan.
Wil je ook even je vraag op opgelost zetten?
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan