Beskyt formler

I tidligere nævnte Excell VBA kursus demonstrerer Alan Murray oprettelsen af en ret brugbar makro til beskyttelse af formler i et ark.

Makroen har jeg tilpasset og benyttet i flere distribuerede regneark - her er koden:

         Sub Beskyt_formler_i_ark()
         '
         ' Beskyt_formler_i_ark Makro
         ' Beskytter beregnings celler i aktuelle ark.
         ' Idé fra Computergaga.com.
         ' BEMÆRK: Det er det enkelte ARK, der beskyttes - ikke hele projektmappen !
         ' Skal et andet ark beskyttes, må arket aktiveres og makro køres for det ark.
         '
             If ActiveSheet.ProtectContents = True Then

                 MsgBox "Det aktuelle ark er allerede beskyttet!", vbOKOnly + vbInformation, "Beskyttet!"
                 Exit Sub
             End If

             Cells.Select
             Selection.Locked = False
             Selection.FormulaHidden = False
             Selection.SpecialCells(xlCellTypeFormulas, 23).Select
             Selection.Locked = True
             Selection.FormulaHidden = False
             Range("A2").Select
             ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
         End Sub

Makroen kan gemmes som 'global' i den lokale Personal.xlsb og kan dermed kaldes i alle arbejdsmapper, der åbnes på computeren.
Omvendt behøver makroen ikke distribueres sammen med regnearket, når først den har gjort sin gerning. (Og giver dermed ikke sikkerhedsadvarsler når andre åbner arket)

Optagelse af makro

Makroen blev først 'optaget' inden redigering i vb med følgende trin:

1. Højreklik øverst v. 'Select all'
2. Format Cells
3. Protection - unprotect -> ok
4. Søg - formler
5. Højreklik - format - lås
6. Klik A2
7. Beskyt ark
8. Afslut makro optagelse

Måske lidt indforstået med denne korte beskrivelse - fuld beskrivelse i Murray's gennemgang.