VBA - Odstránenie červeného kríža z UserForm

Môže byť potrebné, aby bola zakázaná možnosť ukončenia užívateľského formulára, kým nebudú zadané všetky položky, ale stále je tu červený krížik, ktorý umožňuje užívateľovi opustiť.

Na odstránenie kríža použite nasledujúci kód.

V deklaračnej časti UF

 'odstrániť kríž v užívateľskom formulári Deklarovať Funkcia GetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex ako dlho) Ako Long deklare Funkcia SetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex ako dlho, _ ByVal dwNewLong Ako dlho) Ako Long Declare Funkcia FindWindowA Lib "user32" _ (ByVal lpClassName ako reťazec, ByVal lpWindowName ako reťazec) Ako dlho 

Pri inicializácii UF

 Súkromné ​​Sub UserForm_Initialize () Dim hwnd Ako dlho hwnd = FindWindowA ("Thunder" & IIf (Application.Version Ako "8 *", "X", "D") _ & "Frame", Me.Caption) SetWindowLongA hwnd, - 16, GetWindowLongA