În Word, majoritatea opțiunilor pe care le găsiți în caseta de dialog Word Options (faceți clic pe fila File, apoi clic pe Options) sunt disponibile prin obiectul Options din Word.

Însă în Excel, majoritatea opțiunilor se află în obiectul Application, iar opțiunile specifice registrului de lucru sunt accesate prin obiectul Workbook.

Setarea opțiunilor din obiectul Application

Următoarele secțiuni afișează trei exemple de setare a opțiunilor foarte utile în obiectul Application.

Controlul calculului în Excel

În foile de lucru complexe care efectuează multe calcule, poate fi necesar să dezactivați calculul automat, astfel încât o procedură să poată introduce rapid date fără ca să fie realizate calculele.

Pentru a face acest lucru, setați proprietatea Calculation a obiectului Application la xlCalculationManual, introduceți datele, apoi setați proprietatea Calculation la valoarea sa anterioară:

Dim varAutoCalculation As Variant 

varAutoCalculation = Application.Calculation 

Application.Calculation = xlCalculationManual 

'aici se introduc datele

Application.Calculation = xlCalculationAutomatic

Golirea listei de fișiere utilizate recent

Uneori este utilă ștergerea intrărilor din lista cu documentele folosite recent (afișată atunci când faceți clic pe fila File din Ribbon, apoi clic pe Recent). De exemplu, dacă macrocomanda creează unele fișiere temporare pe care doriți să le eliminați din această listă.

Puteți face acest lucru setând proprietatea Maximum a obiectului RecentFiles la 0. După aceasta, probabil doriți să restaurați setarea anterioară a utilizatorului, ca în exemplul următor:

Dim myMax As Long

With Application.RecentFiles

  myMax = .Maximum 'stocheaza preferința utilizatorului, în prezent în vigoare 

  .Maximum = 0 

  .Maximum = myMax 

End With

După ce executați acest cod și apoi faceți clic pe fila File din panglică și clic pe Recent, nu se vor afișa fișiere în lista Documente recente.

Setarea unei locații implicite pentru fișiere

Pentru a seta locația implicită pentru salvarea și deschiderea fișierelor, utilizați proprietatea DefaultFilePath a obiectului Application, ca în acest exemplu:

Application.DefaultFilePath = \\server3\users\mjones\files

Setarea opțiunilor într-un registru de lucru

Opțiunile specifice registrului de lucru includ următoarele:

• Opțiuni de securitate (cum ar fi cele afișate în secțiunea următoare "Setarea parolelor și recomandări doar în citire pentru un registru de lucru")
• Dacă se actualizează referințe la distanță în registrul de lucru (proprietatea UpdateRemote References de tip Boolean) și dacă se salvează valorile pentru link-ul extern (proprietatea SaveLinkValues de tip Boolean)
• Dacă se utilizează Recuperarea automată (proprietatea EnableAutoRecover de tip Boolean)
• Dacă se acceptă etichete în formule (proprietatea AcceptLabelsInFormulas de tip Boolean) și dacă se va folosi sistemul de date din 1904 (proprietatea Date1904 de tip Boolean)

Forțarea Excel să elimine la salvare informațiile personale din proprietățile fișierului

Pentru ca Excel să elimine informațiile personale din proprietățile unui registru de lucru atunci când le salvați, setați proprietatea RemovePersonalInformation a registrului de lucru la True:

ActiveWorkbook.RemovePersonalInformation = True

Accesarea OneNote

Mai sus ați văzut cum se pot accesa OneDrive și Dropbox. Destul de simplu. Lucrul cu OneNote este o altă problemă, deoarece conținutul său este stocat în formatul XML complicat. Codul scris pentru lucra cu XML este mai dificil.

VBA nu este încorporat în OneNote, dar puteți accesa OneNote din VBA în alte aplicații Office.

Următorul exemplu preia metadata (date despre date) din însemnările OneNote.

Înainte de a încerca acest cod, alegeți Tools > References din VBA Editor pentru Excel și, în caseta de dialog References, verificați dacă sunt selectate (bifate) Microsoft OneNote 15.0 Object Library și Microsoft XML v6.0.

1. Sub GetMetaData()

2.

3. 'Dacă nu rulează deja, OneNote va fi lansat

4.  Dim ONote As oneNote.Application

5.  Set ONote = New oneNote.Application

6.

7.  Dim strXML As String

8.

9.  ONote.GetHierarchy "", hsNotebooks, strXML, xs2013 'nu se foloseste xs2016

10.

11. MsgBox strXML

12. End Sub

Liniile 4 și 5 creează o instanță temporară a OneNote și îi atribuie o variabilă obiect ONote. Apoi, vom crea o variabilă șir pe linia 7 pentru a memora metadatele. Linia 9 folosește metoda GetHierarchy pentru a umple strXML cu metadate. hsNotebooks reprezintă colecția notebook-urilor din OneNote. Caseta de mesaje afișează rezultatele.