wie kann ich es verhindern, dass eine UF verschoben wird?
Vielen Dank für Eure Tipps!
Liebe Grüße schickt die Petra
Private Sub UserForm_Activate()
Dim Hwf As Long, Hwm As Long
Hwf = FindWindow(vbNullString, Me.Caption)
If Hwf 0 Then
Hwm = GetSystemMenu(Hwf, 0)
If Hwm 0 Then DeleteMenu Hwm, &HF010, &H0
End If
End Sub
mfg Kurt