Kan vi indsætte shortcodes for :heart: ?

Eller lignende ?

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.

The IOProtocolExt plugin adds support for SCP, SFTP and FTPS.

Definitionsliste i MS Word

I forbindelse med udarbejdelse af en skabelon til driftsplaner fandt jeg en sub-rutine på nettet der kan hjælpe med at generere en liste med definition af ord/begreber.

I driftsplans-skabelonen er den implementeret i en makro: OrdTilListe med følgende anvisning:

Der kan med denne skabelon benyttes en makro: OrdTilListe.
Markér et ord, der skal indgå i tabellen, og brug tastekombinationen: Ctrl+Alt+o
Herved indsættes ordet, alfabetisk ordnet, i listens første kolonne, og der kan tilføjes forklaring i den anden.

Selve sub-rutinen - med min tilretning - ser således ud:

         Sub OrdTilListe()
         '
         ' OrdTilListe Makro
         ' Indsætter ord i ordliste samt sorterer listen alfabetisk efter første kolonne
         '
         Dim BookMarkName As String
         Dim ChooseWord As String
         Dim LastCellInColumn As Long
         Dim ListTable As Range
         Dim SourcePlace As Range

         On Error Resume Next

         BookMarkName = "OrdListe"

         Set SourcePlace = Selection.Range

         ChooseWord = SourcePlace.Words(1).Text

         Set ListTable = _
         ActiveDocument.Bookmarks(BookMarkName).Range.Tables(1).Range

         LastCellInColumn = ListTable.Columns(1).Cells.Count

         With ListTable.Columns(1).Cells(LastCellInColumn)
         .Range = ChooseWord
         .Select
         Selection.MoveRight Unit:=wdCell, Count:=2
         End With

         ListTable.Sort excludeheader:=True, fieldnumber:=1

         SourcePlace.Select

         On Error GoTo 0

         End Sub

Her er Leo Heuser's anvisning til den oprindelige rutine:

1. Opret en tabel med 1 række og 2 kolonner et tilfældigt sted (fx bagest i dokumentet).
2. Markér tabellen og opret den som bogmærke med navnet "UdvalgteOrd" (fx). Skal dog være det samme som i subrutinens BookMarkName = ""
3. Indsæt subrutinen WordToTable i et modul.
4. Opret en knap, der kalder denne rutine.
5. Klik på et ord, du vil have i tabellen og klik på knappen.

Ordet bliver nu indsat i første kolonne i tabellen med stort forbogstav, tabellen sorteres efter første kolonne, og der indsættes en ny
række i tabellen.
Gå videre med punkt 5.

I anden kolonne indtastes forklaringerne til de forskellige ord.

Min implementering

Jeg har i øvrigt valgt at indarbejde en tastatur-kombination som er gemt i skabelonen. (Og altså kun virker i dokumenter baseret på skabelonen.)
https://support.office.com/da-dk/article/tilpasse-tastaturgenveje-9a92343e-a781-4d5a-92f1-0f32e3ba5b4d

https://word.tips.net/T001723_Converting_Text_to_Uppercase_in_a_Macro.html
https://www.thedoctools.com/wordtips/om-makroer-og-goere-makroer-tilgaengelige-for-andre/

This plugin allows to conveniently connect to a server via RDP from KeePass.

Full description with Features and Usage is found on the website

Learn Excel VBA and take your spreadsheets to the next level.
The first part of the course is free and can be acccessed without registering.
That gives an introduction to basic macro recording.

Alan Murray (Computergaga) shares some splendid tips - and demonstrates how to make two very useful macros.

1. Protect the cells on a worksheet that contain a formula
2. Consolidates data onto one worksheet (Cut and paste data to the end of a 'table')

Start din læring med denne kursusrække, og få en forståelse af de mange og effektive funktioner i Microsoft Power BI.

Ikke det mest fancy - men en lille app, der gør hvad den lover. Kan lægge et ISO-image ud på USB. Samt gøre den boot-bar.
Er med held benyttet til at lave bootbar USB til Windows installation.

In this video, we show you how to install a 2nd Hard Disk Drive (hdd) or Solid State Drive (SSD) into your HP EliteBook G3. This will increase capacity and possibly the performance of the machine.

Her er beskrivelser til oprettelse af diverse installations medier til Win10 - inkl. USB boot disk