Tabblad WEEK X openen

[Gast]

Geen flauw idee, hier werkt het feilloos en er is niets mis met de code.

de volledige code:

Quote

Private Sub Workbook_Open()
Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
ThisWorkbook.Sheets(tDay).Activate
ActiveSheet.Tab.Color = 255
End Sub

De code moet dus in Workbook_Open() event

Als dat ok is  dan bestand opslaan en sluiten terug openen en zien of de fout zich nog voordoet.

Om die code te gebruiken moet er wel een werkblad met de naam WEEK 50 in het bestand te vinden zijn. (deze week is week 50)

Anders post een gelijkend vb bestandje of op zijn minst de code die in ThisWorkbook staat.

[Ron001]

@ Woef,

 

blijft foutmelding geven...

 

in bijlage planfile...

 

mvg

 

woef.xlsm

 

 

 

 

[Gast]

Hmm,

Werkt hier perfect.

Wat heb ik gedaan, uw bestand geopend en op Bewerken inschakelen geklikt.

Dan krijg je idd een foutmelding, (dit is normaal voor deze soort code de eerste keer via het internet)

nadien op beëindigen geklikt en op opslaan als.

Terug geopend zonder problemen. het actieve blad was Week 50

Dit een paar maal getest zonder problemen.

Hoogst waarschijnlijk zit het probleem nu tussen het scherm en de stoel

[alpha]

Hier ook geen problemen (Excel 2010).

[Ron001]

@ Alpha/Grote Woef,

 

Zelf hier ook nog wat zitten testen en wat me opvalt is dat er geen foutmelding komt als ik "werkmap beveiligen" NIET instel.

Deze staat dus bij mij ingesteld, ik denk dat hier het probleem zit...

 

Viel me in een keer op....

 

mvg

 

ron

15 december 2017 aangepast door Ron001

[Ron001]

Opgelost, mag gesloten worden...

[kweezie wabbit]

OK, bij deze het