• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Na beveiliging werkt formulierbesturingselement niet meer

Status
Niet open voor verdere reacties.

Jos1234

Gebruiker
Lid geworden
18 feb 2006
Berichten
137
Ik heb op mijn werkblad (Excel 2007) een formulierbesturingselement (knop cmd_terug) gemaakt, waar de volgende code achter zit.
Code:
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?
 
Laatst bewerkt door een moderator:
Lukt het zo?
Code:
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
 
Ik krijg een foutmelding bij
.selection.interior enz.
Blijkbaar gaat dat niet in combinatie met Activesheet?
 
.Selection.etc werkt als je iets selecteert.
Dus zal het
Code:
With Activesheet
.Select
.Unprotect Password:="je wachtwoord"
.Selection.Interior.ColorIndex = xlNone
.Protect Password:="je wachtwoord", UserInterFaceOnly:=True
End With
 
.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
Code:
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
 
Laatst bewerkt:
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.
 
Poging 4 ofzo...
Code:
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 :D
 
Dit is voldoende.

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

Niels
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan