Bladbeveilging via macro

[auxi]

Beste allemaal,

zou iemand mij kunnen helpen met het volgende:
Ik wil graag een blad beveiligen d.m.v. een macro, maar wel zo dat de cellen B5:E17, G5:G17 en C25:C30 bewerkt mogen/kunnen worden.

Ik heb zelf deze macro al toegevoegd maar dacht toen; wellicht is het handiger om alles via een macro te doen.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect "XYZ"
    Sh.UsedRange.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 36
ActiveSheet.Protect Password:="XYZ"
End Sub

Alvast dank voor het meedenken.

Mvg,
Auxi

 

[alphamax]

Een blad beveiligen gaat zeer goed zonder macro.
Zie https://www.gratiscursus.be/Excel_Tips/Excel_Tip_124.html
Dit is een standaard ingebouwde functie van excel.

 

[auxi]

Dankjewel!!

Heb e.e.a. al ingesteld.