Na beveiliging werkt formulierbesturingselement niet meer

[Jos1234]

Ik heb op mijn werkblad (Excel 2007) een formulierbesturingselement (knop cmd_terug) gemaakt, waar de volgende code achter zit.

Private Sub Cmd_terug_Click()
    Selection.Interior.ColorIndex = xlNone
End Sub

Hiermee wordt de opvulkleur weggedaan in de geselecteerde cel.
Als ik mijn werkblad echter beveilig, krijg ik een foutmelding?

 

[spaarie]

Lukt het zo?

Private Sub Cmd_terug_Click()
With Activesheet
.Unprotect Password:="je wachtwoord"
.Selection.Interior.ColorIndex = xlNone
.Protect Password:="je wachtwoord", UserInterFaceOnly:=True
End With
End Sub

 

[Jos1234]

Ik krijg een foutmelding bij
.selection.interior enz.
Blijkbaar gaat dat niet in combinatie met Activesheet?

 

[spaarie]

.Selection.etc werkt als je iets selecteert.
Dus zal het

With Activesheet
.Select
.Unprotect Password:="je wachtwoord"
.Selection.Interior.ColorIndex = xlNone
.Protect Password:="je wachtwoord", UserInterFaceOnly:=True
End With

 

[Jos1234]

Ik blijf bij die .selection een foutmelding krijgen?

 

[spaarie]

.Selection.Interior.ColorIndex = xlNone is de kleur van een cel, maar welke cel? Deze moet je definieren...

Als het de geselecteerde cel is moet je Activesheet vervangen voor Activecell

Private Sub Cmd_terug_Click()
With Activesheet
.Unprotect Password:="je wachtwoord"
With Activecell
.Interior.ColorIndex = xlNone
End With
.Protect Password:="je wachtwoord", UserInterFaceOnly:=True
End With
End Sub

 

[Jos1234]

Dit werkt, maar slechts voor 1 cel. Is het mogelijk om meerdere cellen tegelijk te selecteren ? In mijn oorspronkelijke code kon ik verschillende cellen tegelijk selecteren, op de knop klikken en de bewerking werd gedaan. Als ik nu meerdere cellen selecteer, wordt de bewerking alleen gedaan voor de cel waar ik de selectie laat beginnen.

 

[spaarie]

Poging 4 ofzo...

Private Sub Cmd_terug_Click()
With Activesheet
.Unprotect Password:="je wachtwoord"
With Selection
.Interior.ColorIndex = xlNone
End With
.Protect Password:="je wachtwoord", UserInterFaceOnly:=True
End With
End Sub

Nu doet ie het echt

 

[Niels28]

Dit is voldoende.

Private Sub Cmd_terug_Click()
ActiveSheet.Protect Password:="je wachtwoord", UserInterFaceOnly:=True
Selection.Interior.ColorIndex = xlNone
End Sub

Niels

 

[Jos1234]

Bedankt!