Bladbeveiliging uit en daarna weer aanzetten met macro

[Peter B]

Er hoort een komma achter "Michel"

Activesheet.Protect "Michel"[COLOR="#FF0000"],[/COLOR] _

Stom!

 

[VenA]

@Peter B,
Het enige stomme vind ik het onnodige quoten:d

Het leuke van een macro-opname is dat je dit vaak tot het minimale kan reduceren.

Sub VenA()
With ActiveSheet
  .Protect "Michel", , , , 1
End With
End Sub

Bijna alles in een opname is default en kan dus weggelaten worden. Om het nog korter/onleesbaarder te schrijven zoals hierboven kan je deze site eens bekijken. https://msdn.microsoft.com/en-us/library/office/ff840611.aspx

Het is wel een beetje lastig om komma's te tellen dus voor de leesbaarheid kan het ook zo.

Sub VenA1()
With ActiveSheet
  .Protect "Michel", UserInterfaceOnly:=True
End With
End Sub