forma değişken atarsınız
form açılırken false olur, kapatma butonuna da bu değeri true yapacak kod yazılır
gerisi kapatma olayında bu değeri kontrole kalır

Dim Dgr As Boolean

Private Sub CommandButton1_Click()

Dgr = True

 Unload Me

End Sub

Private Sub UserForm_Initialize()

Dgr = False

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If Dgr = True Then Exit Sub

MsgBox "Kapat Butonu Devre Dışıdır"

Cancel = True

End Sub