ToggleButtons funktion skal huskes når excel lukkes.

Hej Michael

Lidt inspiration:

Opret en brugerdefineret variabel under avancerede egenskaber - sidste fane. Her kan der defineres et Ja/Nej felt navngives - f.eks. "knap"

knapindstilling = ActiveWorkbook.CustomDocumentProperties("knap").Value

if knapindstilling = true then
..
else
..
end if



Rem Gem indstillingen
ActiveWorkbook.CustomDocumentProperties("knap").value  = False/True

Mener du under Filer-indstillinger-Avanceret ?
Kan ikke finde det du forslår.

Egenskaber under Forbered

Den er nok lige foran mig, men kan ikke finde den i Excel 2010.

Ok - jeg anvender både 2007 & 2013.
Tog udgangspunkt i 2007 - men korrekt kan ikke finde den i 2013.

Jeg prøver at lede og vender tilbage.

Ellers kunne du gemme indstillingsværdien i et andet ark?

Skal desværre hjem, så må se på det i næste uge.
Vender tilbage.

God weekend

Er fundet (2013):
Filer
- Oplysninger
-- Egenskaber
--- Klik på trekantsymbolet til højre
---- Avancerede egenskaber

Hej Super
Så langt så godt, men jeg forstår ikke din første forslag, for jeg kan ikke finde det sted jeg kan indføre formlen.

Hej micwar

NÅR DU ÅBNER FILEN
knapindstilling = ActiveWorkbook.CustomDocumentProperties("knap").Value

if knapindstilling = true then
..
else
..
end if


NÅR DU GEMMER FILEN
ActiveWorkbook.CustomDocumentProperties("knap").value  = False/True

Jeg forstår det sådan at jeg skal indføre denne formel i min UserForm hvor toggelebutton er.
Er jeg gal på den*?

Nej - det er ok
Det er når Userformen aktiveres og når Userformen lukkes.

Den driller stadigvæk, men du får point da det sikkert er rigtig.
Jeg må lige arbejde lidt mere på den.

Skal jeg beholde de navne du har givet? eller skal jeg ændre dem?

Ok - men ellers giv signal.
Nej - du kan godt give egenskaben et andet navn.

Har konstrueret et eksempel, der indeholder følgende i Userformen:
Private Sub UserForm_activate()
    Me.ToggleButton1.Value = ActiveWorkbook.CustomDocumentProperties("knap").Value
End Sub
Private Sub UserForm_Terminate()
    ActiveWorkbook.CustomDocumentProperties(1) = Me.ToggleButton1.Value
End Sub

Vil du have filen - så send en mail - @-adresse under min profil