Status Protected - Unprotected van een werkblad

[Stone52]

Excellers,


In een macro wil ik de protected of unprotected status van een werkblad uitvragen. Afhankelijk van de situatie wil ik de waarde veranderen. Dit moet niet moeilijk zijn.

Wie kan mij helpen ?

 

[jpvs]

Misschien kun je hier al mee beginnen :

'scant of er beveiligde tabbladeren zijn
Sub ProtectScan()
Application.ScreenUpdating = False
Sheet1 = ActiveSheet.Name
MyNote = ""
For Each sht In ActiveWorkbook.Sheets
sht.Select
IsProtected = Application.ExecuteExcel4Macro("get.document(7)")
MyNote = MyNote & sht.Name & ": " & IsProtected & vbCrLf
Next sht
Sheets(Sheet1).Select
MsgBox Prompt:=MyNote, Title:="Blad Beveiliging aan "
End Sub

Pierre

 

[Stone52]

Pierre,

Kan je mij een korte uitleg geven van het FOR EACH gedeelte. met name het gedeelte met - Application.ExecuteExcel4Macro("get.document(7)") -

 

[jpvs]

Heb dit ooit eens zelf gevraagt in een forum.
Heb zelf de macro niet geschreven maar dit zou iets te maken hebben om de macro sneller te laten werken?

Dit gevonden als uitleg :
de tijdswinst zit m in het feit dat de xl4 macro
alle eigenschappen van een pagesetup in EEN keer instelt, daar waar VBA het eigenschap voor eigenschap doet. (en bij ELKE wijziging wordt de pagina opnieuw opgemaakt (ook al zie je dat niet.. toch kost tijd.)





Pierre

 

[Stone52]

Bedankt voor de moeite !

:thumb: