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

Bladen beveiligen (meerdere te gelijk)

  • Onderwerp starter Onderwerp starter smoas
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
S

smoas

Gebruiker
Lid geworden
29 dec 2007
Berichten
80
Hallo

Ik heb een excel bestand met 52 tabbladen, voor elke week een tabblad.
Nu heb ik in alle tabbladen formules staan, en de werkbladen zijn beveiligd.
Zodat de formules niet gewijzigd kunnen worden, en alleen de aantallen gewijzigd kunnen worden.
Als ik iets wil wijzigen dan moet ik van alle tabbladen de beveiliging afhalen en daarna er weer stuk voor stuk opzetten, is hier ook een makkelijkere manier voor.

alvast dank

vr groet,

smoas
 
Ja, gewoon de hele werkmap beveiligen
 
Laatst bewerkt:
Relleboer zei:
Ja, gewoon de hele werkmap beveiligen
Klik om te vergroten...

Dat heb ik gedaan via extra, werkmap beveiligen.
Maar dan kan je toch nog dingen wijzigen op de bladen, die je niet kan wijzigingen als ik de bladen blad voor blad beveilig

doe ik iets verkeerd ??

vr groet,

smoas
 
Smoas, Het idee van Relleboer is natuurlijk een 1e keus! (gebruik maken van de standaard functionaliteiten van Excel). Maar als je het via VBA wilt oplossen, kan dat óók....
Code: 
Sub BeveiligAlleSheets()
Dim sh As Object
Dim JePassword As String

    JePassword = "pw"  'zet tussen de quotes je eigen password
    
    For Each sh In ThisWorkbook.Sheets
        sh.Protect Password:=JePassword
    Next sh

End Sub

Groet, Leo
 
Ginger zei:
Smoas, Het idee van Relleboer is natuurlijk een 1e keus! (gebruik maken van de standaard functionaliteiten van Excel). Maar als je het via VBA wilt oplossen, kan dat óók....
Code: 
Sub BeveiligAlleSheets()
Dim sh As Object
Dim JePassword As String

    JePassword = "pw"  'zet tussen de quotes je eigen password
    
    For Each sh In ThisWorkbook.Sheets
        sh.Protect Password:=JePassword
    Next sh

End Sub

Groet, Leo
Klik om te vergroten...


hartelijk dank dit werkt.
vr groet,

smoas
 
Beveiligen

Ok, da's gelukt maar hoe haal je de beveiliging er dan weer van af?

Groet,

NJB
 
Laatst bewerkt:
njbink zei:
Ok, da's gelukt maar hoe haal je de beveiliging er dan weer van af?
Klik om te vergroten...

Jammer, maar dat gaat niet meer :o

of het zou moeten lukken dat deze code werkt :p :

Code: 
Sub UnprotectAlleSheets()
Dim sh As Object
Dim JePassword As String

    JePassword = "pw"  'zet tussen de quotes je eigen password
    
    For Each sh In ThisWorkbook.Sheets
        sh.unProtect Password:=JePassword
    Next sh

End Sub
 
is het dan niet zo dat je password niks waard is aangezien iedereen deze kan lezen bij het drukken op ALT + F11?
 
Dan dien je je VBA code ook best af te schermen ...met een password. Maar passwoorden binnen Excel zijn nooit 100% waterdicht.
 
Ik neem aan dat je het script ook om een password kan laten vragen ipv van zo hard in te vullen?

NJB
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan