Hej Har någon ett bra tips på hur jag med hjälp av ett makro kan kopiera en kodsnutt från ett Excel-dokument till ett annat? Det måste vara på nivån "klicka på en knapp", att gå in i VB-editorn blir alldeles för komplicerat för de som skall använda funktionen.
Tanken är att kopiera en kodsnutt för att komma åt Anpassade dokumentegenskaper inne i ett Excel-dokument, av någon outgrundlig anledning kommer man inte åt dessa utan att skapa en egen funktion som läser ut dem. Jag kan då skapa en mall som mina kollegor öppnar och där körs ett makro som kopierar koden, lite layout och lägger ut vissa dokumentegenskaper på väl valda ställen i dokumentet (försättsblad mm). Koden för att komma åt dokumentegenskaperna ser ut så här:
Code:
Private Function DocProp(Info_needed As String) As Variant
Application.Volatile
DocProp = ThisWorkbook.BuiltinDocumentProperties(Info_needed).Value
End Function
Code:
Private Function DocPropCustom(Info_needed As String) As Variant
Application.Volatile
DocPropCustom = ThisWorkbook.CustomDocumentProperties(Info_needed).Value
End Function