Fișa de lucru pentru fișiere și foile de lucru ale familiei

Userinterf aceOly - valide valide: True (foaia este protejată de modificări de către utilizator, dar nu de subrutina VBA) și False (foaia este protejată de modificările din partea utilizatorului și a subrutinei VBA). Valoarea implicită este False

Următorul exemplu stabilește protecția completă a foii de lucru active împotriva oricărei modificări din partea utilizatorului:

Fișa activă. Protejați

Parola: = "Secret".

Conținut: = Adevărat, Scenarii. = Adevărat

Eliminarea protecției de la foaia de lucru.

Parolă - un șir utilizat ca parolă pentru protejarea colii

Următorul exemplu elimină protecția din foaia de lucru activă:

ActiveSheet. Protejați parola: = "Secret"

Înainte - foaia de lucru a cărții înaintea căreia sunt inserate aceste date

După - foaia de lucru, după care se introduc aceste date

În același timp, este permis doar un singur argument.

În exemplul următor, foaia1 din registrul de lucru activ este copiată după fila 3 a aceluiași registru de lucru:

Foaie de lucru ("Sheet1") După: = foi de lucru ("SheetZ")

Deplasați foaia de lucru într-o altă locație din registrul de lucru.

Mutați (Înainte, După)

Înainte - o foaie de lucru, în fața căreia aceasta

După - foaia după care sunt inserate aceste date

În același timp, este permis doar un singur argument.

În acest exemplu, Sheet1 din registrul de lucru activ este mutat înainte de Sheet 3 din același registru de lucru:

Fișe de lucru ("Foaie1"). = Foile de lucru ("Sheet3")

Convertește o expresie la un obiect sau la o valoare. Folosit la introducerea formulelor și a celulelor din casete de dialog.

Sub două exemple pentru evaluarea ()

Celula = InputBox ("Introduceți numele celulei") '

Valoare = Evaluare (Celulă) .Value '

"Afișează valoarea citită în caseta de dialog

MsgBox CStr (valoare)

"Intrând în caseta de dialog a formulei, de exemplu, păcatul (1) ^ 2 '

Funcție = InputBox ("Introduceți funcția") '

"Calculul unei valori folosind formula"

Valoare = Evaluare

"Rezultatul valorii găsite în caseta de dialog"

MsgBox CStr (valoare) End Sub

Articole similare