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

Alle tabbladen tegelijk beveiligen

Status
Niet open voor verdere reacties.
B

beertje

Gebruiker
Lid geworden
14 dec 2000
Berichten
491
Hallo,

Ik heb een Excel bestand met 12 tabbladen, wil graag deze allemaal tegelijk kunnen beveiligen, met een wachtwoord.
dus niet een voor een.
En ook graag weer met een klik alles weer actief kunnen maken.
Misschien iemand hier een scriptje voor ?

Ik hoor het graag...
 
Dat kan:
Code: 
For Each sh In ThisWorkbook.Sheets
    sh.Protect "JeWachtwoord"
Next sh

De tegenhanger is sh.UnProtect
 
Dank je wel voor je bericht Edmoor.
Het "vergrendelen" gaat goed, maar alleen bij het "ontgrendelen" krijg ik een gele balk door de zin "sh.Unprotect "JeWachtwoord"
Doe ik iets verkeerd?


Sub Vergrendelen()
For Each sh In ThisWorkbook.Sheets
sh.Protect "JeWachtwoord"
Next sh
End Sub

Sub Ontgrendelen()
For Each sh In ThisWorkbook.Sheets
sh.Unprotect "JeWachtwoord"
Next sh
End Sub
 
Er mankeert niets aan dus kan ik zo ook niets van zeggen.
Plaats een voorbeeld document waarin dat gebeurt.
 
mogelijks is er nog een werkblad, dat nog met een vroeger wachtwoord beveiligd was, dat verschillend was van "JeWachtwoord".
Dus moet je voor dat ene werkblad misschien nog 1 maal de beveiliging er af gooien met het oude paswoord en dan ben je vertrokken.
 
Dat was het Cow18
Maar dacht dat dit wel voldoende was, maar iedereen kan natuurlijk ALT+F8 indrukken, en dan zo alles ontgrendelen.
Dat was eigenlijk niet de bedoeling.
Is het ook zo te maken als een marco onder een knop zet dat ie dan eerst vraagt om een wachtwoord, en dat ie dan pas alles vergrendeld en zo ook bij het ontgrendelen?
En dat het wachtwoord niet te achterhalen is ?
Is voor op het werk, dat alleen ik het kan wijzigen en collega's alleen kunnen kijken.
 
hiermee is je wachtwoord (niet meer)iets moeilijker te achterhalen.
Code: 
Sub Vergrendelen()
   JeWachtwoord = Application.InputBox("Wat is het wachtwoord", Type:=2)
   For Each sh In ThisWorkbook.Sheets
      sh.Protect JeWachtwoord
   Next sh
End Sub

Sub Ontgrendelen()
   JeWachtwoord = Application.InputBox("Wat is het wachtwoord", Type:=2)
   For Each sh In ThisWorkbook.Sheets
      sh.Unprotect JeWachtwoord
   Next sh
End Sub
 
THX Cow18
Helemaal goed.
Maar nog een laatste vraag, is het ook mogelijk om bv sterretjes (***) weer te geven als ik het wachtwoord in geef ?
Als je hier ook een antwoord op hebt, dan ben ik helemaal tevreden :)
 
dat moet met een userform, die vraag is hier vroeger al eens voorbij gekomen.
Vraag me niet wanneer of hoe.
 
Dank je wel voor je antwoord.
Ik ga kijken of ik het voor elkaar krijg !!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan