Bladbeveiliging met marco knoppen

[wimix69]

Hallo,

Ik heb een document met macro's waar bij ik de bladbeveiliging wil inschakelen. Ik gebruik diverse knoppen in het documen. Ik heb Unprotect en Protect toegevoegd maar het werkt nog niet. Wat moet ik nu aanpassen?

Sub Rechthoek58_Klikken()
Sheets("Blad1").Unprotect "Test"
  Sheets("Blad2").Visible = Not Sheets("Blad2").Visible   'toggle-mode Blad2 zichtbaar of niet
   If Sheets("Blad2").Visible Then                'is blad2 zichtbaar
      Sheets("Blad3").Visible = True             'blad3 ook zichtbaar
      Application.Goto Sheets("Blad3").Range("C13")   'ga naar hier
      Application.Goto Sheets("Blad2").Range("C27")   'en naar daar
 Sheets("Blad1").Protect "Test"
   End If
End Sub

 

[HSV]

Je gehele werkboek is nog beveiligd.

ThisWorkbook.Unprotect "Test"

 

[edmoor]

Nu niet meer
Bekijk bijlage test 3-4.xlsm

 

[HSV]

:d:d:d
Had ik zelf natuurlijk al gevonden: zie #2.

 

[edmoor]

Blijft een wassen neus, die beveiliging

 

[HSV]

Gewoon een gokje het wachtwoord. :d

 

[edmoor]

Hacker!

Een wachtwoord op een document of werkblad kan je simpel verwijderen, zonder het wachtwoord zelf te weten.

 

[HSV]

Ik ben daar veel te lief voor, maar als ik hulp nodig ben raadpleeg ik jou. :thumb:

Ik moet ook nog ergens een code hebben om wat te verwijderen.

 

[edmoor]

Is ook geen code voor nodig, maar als je het een keer nodig hebt dan laat het maar weten

 

[wimix69]

Bedankt HSV opgelost. En ik weet nu ook waar ik moet zijn als ik mijn code niet meer weet :d