werkboek met sheets via macro unprotecten

[VJMC]

hallo allemaal,

Ik heb een vrij groot bestand in excel. Het werkboek heeft zo'n 33 sheets welke allemaal beveiligd zijn. Nu weet ik dat er macro's bestaan om het in 1 keer te beveiligen en 1 keer ook te "ontveiligen". Maar ik ben die macro kwijt en nu moet ik iedere keer elke sheet afzonderlijk unprotecten en weer protecten voor een handeling die bij alle 33 moet gebeuren.

Wie kan me helpen? Ik weet dat het 2 macro's waren: 1 voor protect en 1 voor unprotect


please help me

 

[Hoornvan]

Kijk hier maar eens.
Ge woon even de helpmij functie Doorzoek dit forum gebruikt

 

[VJMC]

ik heb het gezien en geprobeerd, maar het lukt me niet, er gebeurd niets.

Ik moet toch een nieuwe macro dan maken?

 

[Warme bakkertje]

Sub Uitvoeren()
    Call Onbeveiligd
        'voer jouw code uit
    Call Beveiligd
End Sub
Sub Onbeveiligd()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Sheets
            sh.Unprotect Password:="jouwwachtwoord"
        Next
End Sub
Sub Beveiligd()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Sheets
            sh.Protect Password:="jouwwachtwoord"
        Next
End Sub

Mvg

Rudi

 

[VJMC]

hetwerkt echt niet zo. ik zal wat fout doen, maar ik moet toch de macro maken via Tools, en dna macro opnemen? Dan kan ik de editer dit invoeren? MAar hij pakt het niet als ik daarna het werkblad open en via tools, macro het open en op run klik. Ik heb wachtwoord veranderd, maar hij geeft foutmelding dan in het uitvoeren commando.

Als ik heb ingevoerd, staan er van deze tekst, 3 macro's: Uitvoeren, beveiligd en onbeveiligd. Geen van allen doet iets....

 

[Warme bakkertje]

ALT-F11 >> Invoegen >> Module >> Code plakken

Mvg

Rudi

 

[VJMC]

dan wordt

sh.Protect Password:="ikke"


geel gemaakt als bug....

 

[Warme bakkertje]

Haal van alle bladen de wachtwoordbeveiliging af en run de code opnieuw.

Mvg

Rudi

 

[Hoornvan]

VJMC,

Ik weet niet wat je fout doet maar hier werkt het perfect.
Zet even een voorbeeld bestandje met de code hier.

 

[Hoornvan]

Ik heb even een voorbeeldje gemaakt.

 

[VJMC]

ik wilde wel wat toeveogen maar bestand is te groot (240 KB)

lukt nog niet.. ik word GEKEKKKK haha