Blad beveiligen en macro

[glda19]

Hi
ik heb macro gemaakt op alle zijnen zwart te maken. zie code.
Daar er in een ander deel af en toe een rode lijn wordt getekend.
De code werkt perfect maar zolang ik het werkblad niet beveilig. Als ik het beveilig tegen verandering dan kan de code de randen van de cellen niet wijzigen.
Hoe komt dat

For Each ElkeCel In Range("I5:I45")
ElkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
 ElkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThin
 
 ' De Linkse lijn dun naar onder zwart kleuren
 ElkeCel.Offset(1, -7).Borders(xlEdgeLeft).ColorIndex = xlAutomatic
 ElkeCel.Offset(1, -7).Borders(xlEdgeLeft).Weight = xlThin

'De rechtselijn  dun naar boven zwart kleuren
 ElkeCel.Borders(xlEdgeRight).ColorIndex = xlAutomatic
 ElkeCel.Borders(xlEdgeRight).Weight = xlThin
next

 

[edmoor]

Dat komt omdat het blad dan beveiligd is.

 

[glda19]

Wat weet ik ook maar hoe kan ik toch zorgen dat dit kan

 

[edmoor]

Je kan de beveiliging er in de code afhalen met:
Activesheet.Unprotect ""

En er weer op zetten met:
Activesheet.Protect ""

Met tussen de dubbele aanhalingstekens eventueel een wachtwoord.

 

[glda19]

zou dit liever niet doen daar ze dan het paswoord kennen

 

[edmoor]

Niet als je ook je VBA project met een wachtwoord beveiligd.

 

[glda19]

maar is snel te verwijderen de beveiling

 

[edmoor]

Je wilde weten hoe het kan.
Zo kan het dus.

Je kan ook bij het beveiligen van een blad een vinkje zetten bij Celeigenschappen.

 

[glda19]

thx dit even getest en wekt.
Maar ik kan er wel via de macro geen vorm op tekenen. Daar hij beveilgd is

 

[edmoor]

En de andere mogelijkheden die je kan aanvinken bij het beveiligen van een blad heb je allemaal bekeken?
Tip:
Een vorm is een object.

 

[glda19]

thx thx het werkt.

 

[VenA]

Waarom een lusje?

Sub VenA()
  With Range("B6:I45")
    .Borders.ColorIndex = xlAutomatic
    .Offset(-1, 7).Resize(1, 1).Borders(xlEdgeRight).ColorIndex = xlAutomatic
    .Offset(40).Resize(1, 1).Borders(xlEdgeLeft).ColorIndex = xlAutomatic
  End With
End Sub

 

[glda19]

via een macro teken ik bepaalde vormen =objecten dus bij beveiligen selecteer ik objecten. Maar het probleem is da er ander figuren zoals logo en handtekening niet mogen worden gewijzigd hoe doe ik dat ?

 

[HSV]

We wachten even af op enige reactie aldaar.
https://www.excelforum.com/excel-pr...e-against-deletion-but-other-symbols-not.html

 

[glda19]

heb je niks beter te doen dan de forums af te schuimen naar cross posted. Beter zou zijn om te helpen .
Gaat het spelletje terug her beginnen. Ben dit beu

 

[edmoor]

Als je het gewoon even meldt dat je de vraag ook op een ander forum hebt gesteld is er niks aan de hand.
Ze zullen het daar ook op prijs stellen als je dat even doet.
Forum etiquette heet dat.

 

[HSV]

Ik wil gewoon iedereen even waarschuwen dat ze er niet teveel energie in moeten steken en moeten afwachten.
Kunnen ze het kopiëren, misschien nog vertalen en hier plaatsen.

Veel gemakkelijker. :d:d

 

[edmoor]

En er zijn hier helpers die op meerdere fora actief zijn.
Dat heeft dus niks te maken met "forums afschuimen".