Goedenavond,
Heb even een vraag, ben momenteel bezig voor mijn bedrijf in excel.
Ik heb een soort van planner gemaakt en alles is zo ongeveer wel goed gelukt.
Alleen heb ik voor de duidelijkheid in VBA een code gevonden waardoor de cel oplicht waar ik ben.
Nu wil ik ook graag het werkblad waar het over gaat beveiligen, alleen dan geeft die aan dat er fout 1004 is geconstateerd.
fout 1004 tijdens uitvoering:
Door de toepassing of door object gedefinieerde fout.
Nu weet ik door een beetje te zoeken op internet dat het komt omdat ik het blad beveilig.
De code wat in VBA staat is :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row that contain the active cell
.EntireRow.Interior.ColorIndex = 28
' Highlight the active cell
Target.Interior.ColorIndex = 6
End With
Application.ScreenUpdating = True
End Sub
Kan iemand me helpen hoe ik in de code verwerk dat ik het blad toch kan beveiligen ? Het beveiligen hoeft niet per se met een wachtwoord maar kan wel.
Met vriendelijke groet en alvast bedankt.
Heb even een vraag, ben momenteel bezig voor mijn bedrijf in excel.
Ik heb een soort van planner gemaakt en alles is zo ongeveer wel goed gelukt.
Alleen heb ik voor de duidelijkheid in VBA een code gevonden waardoor de cel oplicht waar ik ben.
Nu wil ik ook graag het werkblad waar het over gaat beveiligen, alleen dan geeft die aan dat er fout 1004 is geconstateerd.
fout 1004 tijdens uitvoering:
Door de toepassing of door object gedefinieerde fout.
Nu weet ik door een beetje te zoeken op internet dat het komt omdat ik het blad beveilig.
De code wat in VBA staat is :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row that contain the active cell
.EntireRow.Interior.ColorIndex = 28
' Highlight the active cell
Target.Interior.ColorIndex = 6
End With
Application.ScreenUpdating = True
End Sub
Kan iemand me helpen hoe ik in de code verwerk dat ik het blad toch kan beveiligen ? Het beveiligen hoeft niet per se met een wachtwoord maar kan wel.
Met vriendelijke groet en alvast bedankt.
