30. maj 2007 - 10:35Der er
8 kommentarer og 1 løsning
Vis ikke denne box igen
Jeg har en template der køre en Sub workbook_activate() Load UserForm1 UserForm1.Show 0 'Modeless - d.v.s. der kan arbejdes i arket samtidig End Sub
Men når folk har gemt den, og flg. skal arbejde med den gemmen hele året, skal de ikke bruge denne box til noget, da det kun er oplysninger der står i den. er der mulighed for at lave noget med at man vinger af i en "vis ikke igen" Så den ikke kommer op mere når workbooken åbnes?
Du kunne f.eks. tilføje en dokumentegenskab, som du tjekker på, inden du loader din form. Når den så har været loadet den første gang, ændrer du værdien på egenskaben til "noget andet".
Sub workbook_activate() If Sheets(2).Range("a1") = True Then Exit Sub Else UserForm1.Show 0 End If End Sub
Den kræver at afkrydsnibngsboksen linkes til encelle i mappen. Her A1 ig Ark2, men det kunne være en hvilken som helst celle. Fx Ark3!IV65536 for at få den meget langt væk.
Med linkes til mener jeg atr afkrydsningsboksens Controlcource sættestil den relevante celle i det pågældende ark. Når sættes flueben i boksen får værdien af cellen SAND, og det testes der så på, når mappen aktiveres
Ja, det kan du godt. Men er det ikke meningen, at formen skal vises første gang, man opretter en ny fil på baggrund af templaten? For så er det jo ikke en template længere.
Hvis jeg tager udgangspunkt i, at formen skal vises, når man danner en ny fil på baggrund af en template (og så ikke igen), ville jeg gøre følgende:
Private Sub Workbook_Open() If ThisWorkbook.Path = "" Then Load UserForm1 UserForm1.Show 0 End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.