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

Beveiliging vanaf 1 knop

Status
Niet open voor verdere reacties.
M

mattie94

Gebruiker
Lid geworden
30 aug 2011
Berichten
80
Ik heb een excel bestand met ongeveer 15 tabbladen.
Hier zit een beveiliging overheen, elke keer als ik iets wil aanpassen moet de beveiliging eraf gehaald worden per tabblad.

Nu wil ik op 1 pagina/tabblad een knop maken om de beveiliging op te heffen voor alle tabbladen.
Nadat ik klaar ben met bewerken weer op deze knop klikken zodat de beveiliging er weer op gaat.
uiteraard met wachtwoord.

Heeft hier iemand ervaring mee?
Alvast bedankt
 
Zou dit werken? Heft de beveiliging van alle tabbladen op, ervanuitgaande dat ze dezelfde wachtwoord hebben.

Code: 
Sub test()

    For Each s In ThisWorkbook.Sheets
        s.Unprotect Password:="test"
    Next s

End Sub

Gr. Tom
 
Opheffen alle tabbladen
Code: 
Sub UnprotectingSheets()
Dim S As Object
    For Each S In Sheets
                S.Unprotect Password:=""  'uw passwoord invullen tussen ""
                  Next

End Sub

Beveiligen alle tabbladen
Code: 
Sub ProtectingSheets()
    Dim S As Object
    For Each S In Sheets
                 S.Unprotect Password:=""
                 S.Protect Password:="", DrawingObjects:=True
    Next
End Sub
 
Bedankt voor de snelle reactie!
Moet ik dan voor elke tab die ik heb wachtwoord instellen, en zorgen dat het wachtwoord overal hetzelfde is?
 
Kan de beveiliging ook nog worden uitgebouwd dat als je op een knop klikt je een pop upje krijgt dat je alsnog het wachtwoord moet invoegen, uiteraard wel voor alle tabbladen
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan