Abryd Luk

<ole>

I formen, der forsøges lukket:

Option Explicit

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim inp As String
   
    inp = InputBox("Kodeord, please", "Kode")
    If (inp <> "olebole") Then
        Cancel = True
    End If
End Sub

/mvh
</bole>

Kan sikkert gøres smartere. Men hvis du skriver følgende:

Private Sub Form_Unload(Cancel As Integer)
Cancel = True

a = InputBox("Indtast kode")
  If a = "test" Then
  Command1_Click
End If

End Sub


command1 knappen ser sådan her ud:

Private Sub Command1_Click()
End
End Sub

og ja, olebole's var den smarte :o))

- jamen, så lægger jeg også et svar  ;o)

I skal have så mange tak begge to og som blueeye97 osse siger er oleboles svar det smarteste, så jeg håber det er i orden at han får pointene.

Så takker jeg for points  :)

- og i virkeligheden kan det gøres endnu slankere (men ikke udpræget kønnere):

Option Explicit

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If (InputBox("Kodeord, please", "Kode") <> "olebole") Then
        Cancel = True
    End If
End Sub

Det er helt i orden :o)