vba voor opheffen beveiliging voor alle werkbladen (sheets)

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Wie zou mij kunnen helpen aan een code die voor alle werkbladen alle (blad)beveiligingen er af haalt. Nu gebruik ik per werkblad: ActiveSheet.Unprotect

Een antwoord zie ik met veel belangstelling tegemoet.

Robert
 
Code: 
Sub unprotect()
Dim ws As Worksheet
 For Each ws In ThisWorkbook.Worksheets
   ws.Unprotect Password:="uw paswoord"
 Next ws
End Sub
 
Zoiets:
Code: 
For Each sh in ThisWorkbook.Sheets
    sh.Unprotect
Next sh

Edit:
Niet allemaal tegelijk! ;)
 
Laatst bewerkt:
Beste mensen, heel erg bedankt voor beide codes, ik had nu de tweede oplossing nodig maar zie ook mogelijkheden voor de eerste code.

Nogmaals heel erg bedankt.
 
Voorkomen is beter dan genezen: zie af van 'beveiligen' en wachtwoorden.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan