Foutmelding in VBA bij beveiligen blad

[marcel31281]

Beste forumleden,

Ik ben bezig een onderhoudsrapport te maken, nu ik eindelijk de code goed heb om automatisch vinkjes te plaatsen krijg ik weer een andere foutmelding als ik het blad wil beveiligen.

"fout 1004 Eigenschap Name van Klasse Font kan niet worden ingesteld"

iemand die weet hoe ik dit kan oplossen

Bekijk bijlage OH Rapport met fouten.xlsm

 

[VenA]

Als je de celeigenschappen eenmalig goed zet dan heb je het probleem niet meer. Anders moet je het aanpassen van de eigenschappen ook toestaan.

Aan code is dit dan voldoende. Al zou ik het BeforeDoubleClick event hiervoor gebruiken.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("G11:G38,I11:I38")) Is Nothing And Target.Count = 1 Then Target.Value = IIf(Target.Value = "", "ü", "")
End Sub

 

[gast0660]

Voorzetje wegens rotweer
De twee tabbladen (Onderhoudsrapport en data verbergen)
Wachtwoordje op de VBA , klaar.
zipje, eerst uitpakken.

 

[marcel31281]

Voorzetje wegens rotweer
De twee tabbladen (Onderhoudsrapport en data verbergen)
Wachtwoordje op de VBA , klaar.
zipje, eerst uitpakken.

Bedankt, hier ga ik later eens induiken. bij de eerste test krijg ik trouwens nog wel een foutmelding

 

[marcel31281]

Als je de celeigenschappen eenmalig goed zet dan heb je het probleem niet meer. Anders moet je het aanpassen van de eigenschappen ook toestaan.

Aan code is dit dan voldoende. Al zou ik het BeforeDoubleClick event hiervoor gebruiken.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("G11:G38,I11:I38")) Is Nothing And Target.Count = 1 Then Target.Value = IIf(Target.Value = "", "ü", "")
End Sub

Bedankt!