Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
alexxandra la Simpatie.ro
 | Femeie
24 ani
Timis
cauta Barbat
24 - 57 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
Source:
Open excel and copy the code below to ThisWorkbook code in VBA. Afterwards save the file as XLAM (add-in). Reopen excel and under Add-ins browse for your previously created file and load it.
Option Explicit
Private WithEvents app As Application
Private Sub workbook_Open()
Set app = Application
End Sub
Private Sub app_NewWorkbook(ByVal Wb As Workbook)
Application.OnTime Now + TimeSerial(0, 0, 2), Me.CodeName & ".SetCalcMode"
End Sub
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Application.OnTime Now + TimeSerial(0, 0, 2), Me.CodeName & ".SetCalcMode"
End Sub
Private Sub SetCalcMode()
On Error Resume Next
Application.Calculation = xlAutomatic
End Sub |
|
|
| pus acum 5 ani |
|