Remove the Close command from the system menu

Remove the Close command from the system menu

If you want to prevent the user from closing a form by using Alt+F4 or by clicking on the “X” button in the upper-right corner you just need to write some code in the form’s QueryUnload event procedure:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    If UnloadMode = vbFormControlMenu Then Cancel = TrueEnd Sub

However, if you want to give the user a visual clue that the she can’t manually close the form, you can programmatically remove the Close command from the form’s system menu. This action indirectly grays the “X” button and disables the Alt+F4 key. Here is the code that does the trick:

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _    ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As _    LongPrivate Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _    ByVal bRevert As Long) As LongPrivate Const MF_BYPOSITION = &H400&Private Const MF_REMOVE = &H1000&Private Sub Form_Load()    Dim hMenu As Long    Dim itemCount As Long    ' get the handle of the system menu    hMenu = GetSystemMenu(Me.hWnd, 0)    ' get the number of items in the menu    itemCount = GetMenuItemCount(hMenu)    'remove the system menu Close menu item    RemoveMenu hMenu, itemCount - 1, MF_REMOVE Or MF_BYPOSITION    'remove the system menu separator line    RemoveMenu hMenu, itemCount - 2, MF_REMOVE Or MF_BYPOSITIONEnd Sub

Share the Post:
XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved

AI is revolutionizing fraud detection

How AI is Revolutionizing Fraud Detection

Artificial intelligence – commonly known as AI – means a form of technology with multiple uses. As a result, it has become extremely valuable to a number of businesses across

AI innovation

Companies Leading AI Innovation in 2023

Artificial intelligence (AI) has been transforming industries and revolutionizing business operations. AI’s potential to enhance efficiency and productivity has become crucial to many businesses. As we move into 2023, several

data fivetran pricing

Fivetran Pricing Explained

One of the biggest trends of the 21st century is the massive surge in analytics. Analytics is the process of utilizing data to drive future decision-making. With so much of

kubernetes logging

Kubernetes Logging: What You Need to Know

Kubernetes from Google is one of the most popular open-source and free container management solutions made to make managing and deploying applications easier. It has a solid architecture that makes

ransomware cyber attack

Why Is Ransomware Such a Major Threat?

One of the most significant cyber threats faced by modern organizations is a ransomware attack. Ransomware attacks have grown in both sophistication and frequency over the past few years, forcing

data dictionary

Tools You Need to Make a Data Dictionary

Data dictionaries are crucial for organizations of all sizes that deal with large amounts of data. they are centralized repositories of all the data in organizations, including metadata such as