problem med userform

Er det med vilje, at du minimerer Excel ?

Prøv om Load Userform1 foran Userform1.Show hjælper dig

Private Sub Workbook_Open()
    Application.WindowState = xlMinimized
    Load Userform1
    UserForm1.Show
End Sub

Sorry, der er noget, som er endnu bedre, tror jeg.
Din mening er nok, at Excel ikke skal være synlig, imens userform1 vises - right !

Try this:

Private Sub Workbook_Open()
    Application.Visible = False
    Load UserForm1
    UserForm1.Show
    Application.Visible = True
End Sub

Ja det var nu min mening, at Excel skulle minimeres og ikke lukkes. Det er vel ikke en god ide at gemme Excel for brugeren, ham tror bare alle hans ander åbne vinduer er lukket uden opdatering.
Load UserForm, gav intet resultat... Excel står stadig og blinker der udaf i min taskbar.
Måske er det også bare en dum løsning, brugeren kan jo alligevel ikke åbne andre regneark så længe min userform optræder midt på skærmen eller hvad.!!  giv evt en kommentar til dette  :-)

Du har ret, brugeren kan ikke gøre noget i excel før din userform er afsluttet på den ene eller anden måde, så overraskelsen over at excel er væk giver nok spørgsmål...
Hvis det er fordi du gerne vil sikre dig, at brugeren udfylder noget på din userform inden han/hun går videre, så skal du nok lave noget sikring heraf istedet. Jeg tænker f.eks. på at brugeren ikke må trykke Ctrl+Break eller lukke userformen med X eller ved exit_eventen på et felt,  checker du om feltet har en værdi, og sætter en global variabel = true hvis feltets værdi <>\"\" og så checker på den variabel i starten af klik på OK knappen. Der er mange muligheder, hvis det er sådan noget du tænker på.

Du har ramt helt rigtigt… det går ikke at brugeren afslutter userformen før dele af den er udfyldt, det skader min eksport af data til txt filer. mht. til x-knappe er der pludselig opstået et mærkeligt problem. Efter min userform er blevet resizable, har min x-knappe fåer problemer. Jeg lukke bruger koden som

Private Sub UserForm_QueryClose _
  (Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
        Call Luk
        Cancel = True
    End If
End Sub

Og

Option Explicit
Dim moResizer As New Class1

Private Sub UserForm_Activate()
    Set moResizer.Form = Me
End Sub

Private Sub UserForm_Resize()
    moResizer.FormResize
End Sub

Her opstår så en konflikt jeg ikke gennemskue… det var vist en hel del snak jeg skulle nok oprette et nyt spørgsmål ;-) (det var bare dejligt, at komme af med min galle..)

ja, der lidt at se til :-)