Avatar billede krohn Praktikant
30. maj 2007 - 10:35 Der 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?
Avatar billede word-hajen Nybegynder
30. maj 2007 - 12:10 #1
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".
Avatar billede krohn Praktikant
30. maj 2007 - 12:57 #2
Ok, men det er ikke sikkert at jeg er der efter førstegang, det skal være noget alle kan finde ud af
Avatar billede krohn Praktikant
30. maj 2007 - 16:56 #3
Kan man lave noget med at den kigger om det er en template, og hvis ikke så skal den ikke køre den automatisk?
Avatar billede jkrons Professor
30. maj 2007 - 17:04 #4
Her er en mulighed

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
Avatar billede jkrons Professor
30. maj 2007 - 17:05 #5
Alternativt kan du gemme info i en fil uden for Excel, men det kræver mere kodning.
Avatar billede word-hajen Nybegynder
30. maj 2007 - 17:10 #6
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

Vær opmærksom på, at jeg bruger Workbook_Open.
Avatar billede krohn Praktikant
30. maj 2007 - 17:50 #7
Jeg har et skjult ark, så jeg gik efter jkrons oplæg det virker efter hensigten
Avatar billede krohn Praktikant
01. juni 2007 - 06:53 #8
kommer der et svar
Avatar billede jkrons Professor
01. juni 2007 - 09:40 #9
Her er et svar :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester