Permanente actie t.b.v. alle workbooks

[Robert Smidt]

Beste Helpmij'ers,

Ik heb een code in gebruik die voor iedere workbook altijd actief moet zijn. Deze staat in "ThisWorkbook". Echter werkt de code alleen wanneer ik naar een ander workbook ga.

Private Sub Workbook_SheetActivate(ByVal sh As Object)
If [Kassaldo] < 0 Then CreateObject("WScript.Shell").Popup "Het kassaldo is negatief hetgeen op een fout berust, herstel eerst deze fout of ga naar INTERNE OVERBOEKING en boek dit als KASVERSCHIL!", 20, "Waarschuwing: Je hoeft niet op OK te klikken", vbCritical
End Sub

Ik begrijp dat het een wijziging van Workbook_SheetActivate moet zijn, alleen ken ik de code niet.

Alvast bedankt.

Robert

 

[HSV]

Die code werkt echt niet in een ander werkboek.
Alleen in Thisworkbook voor elk blad.

De vraag ontgaat me dus.

 

[Robert Smidt]

Ik zou graag willen dat de code

If [Kassaldo] < 0 Then CreateObject("WScript.Shell").Popup "Het kassaldo is negatief hetgeen op een fout berust, herstel eerst deze fout of ga naar INTERNE OVERBOEKING en boek dit als KASVERSCHIL!", 20, "Waarschuwing: Je hoeft niet op OK te klikken", vbCritical

actief is voor ieder werkblad. Nu werkt de code alleen wanneer ik naar een ander werkblad ga en dus niet wanneer ik in een werkblad blijf werken.

 

[HSV]

Dan zou je de coderegel tussen onderstaande event kunnen zetten.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
..........
End Sub

 

[Robert Smidt]

Dat is precies wat ik bedoel, heel hartelijk dank!!