- Katılım
- 19 Ocak 2019
- Mesajlar
- 58
- Excel Vers. ve Dili
- Türkçe son sürüm
- Altın Üyelik Bitiş Tarihi
- 08-04-2023
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
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