Bestand werkt wel onder windows 7 maar niet onder windows 10

[snb]

Terzijde:

Om een systeemkaart te maken, gebruik

Private Sub LB_00_Click()
    For i = 0 To 10
      Sheets("Systeemkaart").OLEObjects("TB_" & format(j,"00")).Object.Text = LB_00.Column(i)
    Next
Edn sub

In plaats van

Private Sub LB_00_Click()
    For i = 0 To 10
      Me("TB_0" & j).Value = LB_00.Column(i)
    Next
T_08.Value = LB_00.Column(9)
T_09.Value = LB_00.Column(10)
T_10.Value = LB_00.Column(11)
    With Sheets("Systeemkaart")
        .OLEObjects("TB_00").Object.Text = T_00.Value
        .OLEObjects("TB_01").Object.Text = T_01.Value
        .OLEObjects("TB_02").Object.Text = T_02.Value
        .OLEObjects("TB_03").Object.Text = T_03.Value
        .OLEObjects("TB_04").Object.Text = T_04.Value
        .OLEObjects("TB_05").Object.Text = T_05.Value
        .OLEObjects("TB_06").Object.Text = T_06.Value
        .OLEObjects("TB_07").Object.Text = T_07.Value
        .OLEObjects("TB_08").Object.Text = T_08.Value
        .OLEObjects("TB_09").Object.Text = T_09.Value
        .OLEObjects("TB_10").Object.Text = T_10.Value
    End With
End Sub

 

[JosEindhoven]

E.e.a. uitgezocht. Office 16 geinstalleerd. Dit leverde niet het gewenste resultaat. Het probleem bleef. Vervolgens excel gestart in de veilige modus. Na opstarten kwam de beveiligingswaarschuwing: Bepaalde actieve inhoud is uitgeschakeld. Deze inhoud inschakelen ? Wat schetst mijn verbazing: Na inschakeling werkte het document zoals het hoort te werken. Dus, vermoedelijk heeft het te maken met de bevieliging in windows .