VBA Userform

Hej noget ala.

dim wb as workbook
set wb= thisworkbook
msgbox "du har ikke adgang"
wb.close


ej Testet
Jan

MsgBox "Adgang nægtet"
ThisWorkbook.Close

#1 og #2
Jeg er måske ikke helt klar i min forklaring af problemet, så j

Private Sub CommandButton2_Click()
If Textbox1.Value = "" Or Textbox2.Value = "" Or Textbox3 = "" Then
    If MsgBox("Du skal udfylde alle felterne for at få adgang til budgettet. Ønsker du at prøve igen?", vbQuestion + vbYesNo, "Manglende data") <> vbNo Then
Exit Sub


Det der sker nu er, at hvis man vælger "nej" så er det kun userformen som lukker, og man få adgang til arket.
Jeg har brug for at bygge noget mere kode på, så arket ikke åbner men lukkes ned istedet. 
Har i et forslag til det?

If Textbox1.Value = "" Or Textbox2.Value = "" Or Textbox3 = "" Then
    If MsgBox("Du skal udfylde alle felterne for at få adgang til budgettet. Ønsker du at prøve igen?", vbQuestion + vbYesNo, "Manglende data") = vbNo Then ThisWorkbook.Close
End If

Sub test()
    Dim Svar As Long

    Svar = MsgBox("Du skal udfylde alle felterne for at få adgang til budgettet. Ønsker du at prøve igen?", vbQuestion + vbYesNo, "Manglende data")
   
    If Svar = vbYes Then
        MsgBox "Du svarede: Ja"
    Else
        MsgBox "Du svarede: Nej og Arket lukkes"
        ThisWorkbook.Close
    End If

End Sub

#5
Den melder fejl i metoden på "Thisworkbook.Close", hvad kan det skyldes?

Det var mærkeligt :-(

Her er en anden indfaldsvinkel, hvor du tester og tvinger til at udfylde direkte i Userformen:

#7
Det virker.
Men nu skal jeg jo have data fra de 3 tekstbokse ind i arket. Vi kan sige at data fra tekstboks 1 og 2 skal overføres til ark 3, i a1 og a2, mens data fra tekstboks 3 skal overføres til ark 4, i a1.
Hvordan kan det gøres?

Private Sub CommandButton2_Click()

If TextBox1 = "" Then
TextBox1.BackColor = RGB(255, 255, 150)
MsgBox "Du skal udfylde Textbox1"
TextBox1.SetFocus
Exit Sub
Else
TextBox1.BackColor = RGB(255, 255, 255)
End If

If TextBox2 = "" Then
TextBox2.BackColor = RGB(255, 255, 150)
MsgBox "Du skal udfylde Textbox2"
TextBox2.SetFocus
Exit Sub
Else
TextBox2.BackColor = RGB(255, 255, 255)
End If

If TextBox3 = "" Then
TextBox3.BackColor = RGB(255, 255, 150)
MsgBox "Du skal udfylde Textbox3"
TextBox3.SetFocus
Exit Sub
Else
TextBox3.BackColor = RGB(255, 255, 255)
End If

ThisWorkbook.Worksheets(3).Range("A1").Value = TextBox1.Value
ThisWorkbook.Worksheets(3).Range("A2").Value = TextBox2.Value
ThisWorkbook.Worksheets(4).Range("A1").Value = TextBox3.Value

UserForm1.Hide

End Sub
Private Sub UserForm_terminate()
        ThisWorkbook.Close SaveChanges:=False
End Sub

#9
Der er noget som ikke helt fungerer.
Når man har udfyldt de 3 tekstbokse og trykker ok, så lukker arket ned.
Hvad gør jeg ved det?

Lukker arket når du trykker på Ok?

Det burde virke sådan:
Når man har udfyldt de 3 tekstbokse og trykker ok, så skrives data i de 3 celler og så lukker Userformen ned.
Hvis man trykker på det røde kryds i Userformen lukker arket uden at gemme.

Ja når jeg trykker ok lukker arket, og der overføres ingen data fra de 3 tekstbokse.

Kan du sende det på E-mail?

Kan du sende arket hvor Userformen ikke starter ved åbning?

Det var:Der skulle forhindre at lukke Userformen ved at trykke på det røde kryds.
Kan se du har en knap (luk) der gør dette, troede man ikke måtte dette uden at indtaste data ;-)
Kode virkede heller ikke efter hensigten, så slet den.

Denne kode deaktiverer luk på X


Du viser Userformen ved åbning af arket.
Et tip kunne være at indlæse de 3 celler i Userformen.
Eller ikke at vise Userformen hvis de 3 celler er udfyldt.

#15
Ja det er et godt tip.
Hvordan kan det gøres!?
Altså indlæse de 3 celler i Userformen?

Læg denne på din Userform: