Çözüldü userform açılınca arka planı deaktifleştirme

[Partdown]

Private Sub Workbook_Open()
Static DateOpen As Date
Static Check As Boolean
If Check = False Then
Check = True
'DateOpen = Now
DateOpen = DateSerial(2019, 5, 11)
End If
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",false)"
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
If Now - DateOpen > 30 Then
MsgBox "Üyeliğinizin Süresi Doldu. Üyelik Almak İçin => 0xxx 5xx 2x 1x", vbCritical + vbOKOnly, "Expired"
Application.Quit
Else
UserForm1.Show
End If
End Sub

USERFORMUM BU bu açıldığında arka plan hala aktif işlem yapılabiliyor ben istiyorumki userform geldiğinde arka plan deaktif olsun herhangi birşey yapılmasın

 

[Korhan Ayhan]

Formunuzun özelliklerinden ShowModal özelliğini True yapınız.