automatisch berekenen uitzetten met toetsencombinatie

[radar]

Is er een toetsencombinatie die er voor zorgt dat automatisch berekenen wordt uitgeschakeld ?
Aantal collegae hebben het automatisch berekenen regelmatig uit staan, terwijl ze dit niet zelf bewust gedaan hebben.
Is er iets anders wat dit kan triggeren ?

 

[pasan]

dat kan door een macro gebeuren waar dit als code staat.

of als je meerdere excel mapjes opend en de eerste stond op handmatig staat de rest ook op handmatig en als het mapje ook nog wordt opgeslagen blijft deze op handmatig staan
probeer het maar eens uit met 2 test mapjes
zet de 1 op handmatig en de ander op auto
en open ze is achterelkaar en in omgekeerde volgorde (nadat je ze weer gesloten hebt uiteraard)

 

[radar]

Pasan,

Dank je wel voor je reactie; een macro ligt er niet aan ten grondslag, dat dit gebeurt.
De tweede optie voor een deel wel.
Betekent dat dan ook, dat een bestand opgeslagen in de "niet automatisch rekenen" een volgende keer geopend, weer bepalend is voor andere daarna geopende bestanden in zelfde sessie??


Een vervolgvraag mijnerzijds:
Kan ik op een of andere wijze, afgezien dan van per bestand erop letten of er automatisch aanpassingen gedaan worden, controleren bij welke bestanden de automatisch rekenen-functie is uitgeschakeld.

 

[pasan]

ja is dan weer bepalend voor de daarna andere geopende bestanden

een mogelijke oplossing zou kunnen zijn als je een melding wilt krijgen bij het openen van een bestand als deze op handmatig berekenen staat
zet je de volgende code in Thisworkbook

Private Sub Workbook_Open()
If Application.Calculation = xlManual Then
MsgBox "Pas op!!  Deze map  staat op handmatig herbereken"
End If
End Sub

of met de keuze om meteen op automaat te zetten

Private Sub Workbook_Open()
If Application.Calculation = xlManual Then
intkeuze = MsgBox("Pas op deze map staat op handmatig herbereken" & vbCrLf & " Wilt deze op Automatisch zetten?", vbYesNo)

Select Case intkeuze
Case Is = vbYes
Application.Calculation = xlCalculationAutomatic
Case Is = vbNo
Exit Sub
End Select
End If
End Sub

 

[radar]

OK, was ik al bang voor.

Dank je wel voor de codes !