Show tip on start

Du kan lave en userform med en checkbox på. Din Auto_open makro kan så checke status af din checkbox, inden den viser userform. Hvis der er et hak, viser den ikke userforms. Endvidere skal du have en makro hvor brugeren kan fortryde, at han har sat hak i "vis ej mere". Men hvis du vil bruge box'en til nyheder, hvorfor må brugeren så vælge den fra???

Hvis du ikke selv kan kode dette, så har jeg løsningen til dig, hvis du lægger din e-mail adresse her.

Hvorfor ikke lægge koden her, så vi andre også kan se den ?

God idé riejensen

Koden skal bare kombineres med en Userform, som jeg jo ikke kan vise her. Userformen skal indeholde et tekstområde, en checkbox og en ok knap.

Sub TestAuto_Open() 'Test foran Auto_Open fjernes før det virker automatisk ved åbning af fil

    If UserForm1.CheckBox1 = True Then
   
    Else
        UserForm1.Show
    End If

End Sub

Følgende 'nul-stiller' checkboxen, så man kan se beskeden igen

Sub ShowAgain()
UserForm1.CheckBox1 = False
End Sub

Følgende kode skal lægges på ok knappen, på userformen:

Private Sub CommandButton1_Click()
TestAuto_Open (navnet på ovenstående makro)
End Sub

Håber det giver en idé

Det ser meget fornuftigt ud, ploughgaard . Jeg kan dog ikke for det til at virke helt efter hensigten.
UserForm1 kan godt startes op automatisk, den viser den ønskede tekst og knapper.
Problemmet opstår når man klikker på 'CommandButton1_Click()' som i mit tilfælde er en ok knap der skal lukke dialogboksen.
Du skriver at CommandButton1_Click()
skal se således ud:

Private Sub CommandButton1_Click()
Auto_Open
End Sub


Mit spørgsmål er om der ikke skal stå noget andet end Auto_Open, dette lader nemlig til at give nedenstående fejl :

Kørselsfejl "400";
Formularen ises allerede og kan derfor ikke vises modalt.
Dette fortælle kun mig at når man prøver at kører formularen en gang til , hvilket ikke kan lade sig gøre og heller ikke er det der skal ske. Formularen skal bare lukke så man kan arbejde videre med sit regneark.
På grund af ovenstående fejl har det endnu ikke været muligt at se om Checkboxen virker.

På forhånd ta.

Du har fuldstændig ret. Prøv med

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

istedet. Sorry :-)

Tak ploughgaard det hjalp med ok knappen.

Så er problemmet bare med checkboxen.
Det kan være at jeg lige skal uddybe arbejdsgangen.
På en excel skabelon (.Xlt) har jeg vores UserForm1, når en bruger så åbner skabelonen dukker vores dialogbox op, han læser meddelsen klikker i checkbox, der får teksten "vis ikke denne besked igen", derefter gemmesr han skabelonen i almindeligt .xls excel format , hvorfra den kan åbnes med eller uden dialogboksen, alt efter om brugeren har klikket i "vis ikke denne besked igen".


Du er bare for god, det ser meget lovende ud. Tak skal du have.

Vi bruger en masse forskellige skabeloner, der jævnligt bliver ændret eller opdateret, derfor ville det nemt at give brugeren besked om eventuelle ændringer/ nyheder første gang han får fingerne i den nyeste version.

Gå til din userform.
Højreklik på din checkbox
Vælg properties
Giv feltet 'Value' (nr. 4 fra bunden) værdien 'True'

Prøv at lukke filen igen. Så skulle chekcboxen gerne virke.

Hold your horses.

Jeg har lige fundet ud af, at en Checkbox når Excel åbner altid antager default værdi, hvorfor det ikke virker uanset om du giver den værdien true eller false. Jeg arbejder på en løsning til dig.

Tusind tak det ser jeg frem til.

Hvis du giver et felt i regnearket (det kan godt være skjult) den værdi som brugeren bestemmer for Checkbox'en , og så lader din auto_open give checkboxen den værdi når du åbner, så har du altid brugerens egen værdi:

Navngiv et felt i regnearket (jeg har kaldt det: 'ChkBoxVal')

Indsæt flg. linie i Auto_open:
UserForm1.CheckBox1.Value = Worksheets("Sheet1").Range("ChkBoxVal")
hvor du erstatter 'Sheet1' med din egen sheet

Indsæt flg. linie i koden til Ok knappen på userform:
Worksheets("Sheet1").Range("ChkBoxVal") = UserForm1.CheckBox1.Value
hvor Sheet1 igen erstattes med din egen.

Nu sørger OK knappen for, at værdien lægges i arket, og Auto_open sørger for at værdien fra arket tildeles Checkboxen ved åbning. Nu skulle alt være på plads.

Og så må du hellere give Checkbox1.Value værdie false igen hvis du allerede har udført min 11.14.31 kommentar

Det fungerer ikke helt men det er tæt på, er det ikke nemmere hvis jeg sender dig regnearket?

Ok. ploughgaard@hotmail.com

Du skal flytte:

UserForm1.CheckBox1.Value = Worksheets("AFTALESEDDEL KALK").Range("ChkBoxVal")

op, så den står øverst i din Auto_Open. Ellers checker den stadig på default værdien. Lad mig vide, hvis jeg skal sende din fil retur.

Husk iøvrigt at rette caption på din userform, så den ikke bare hedder userform :-)

det fungere bare skide godt gået her er dine point.

tak for hjælpen.