Soru Süreli excel dosyası oluşturma yardım

[butterflyist]

Merhaba arkadaşlar,

Ortak alanda kullanımının belirli sürelerde olmasını istediğim excel dosyalarını nasıl oluşturabilirim?
Örneğin bir excel hesaplama dosyasının 01.05.2019 tarihi ile 30.06.2019 tarihleri arasında erişilsin sonrasında dosya kullanılmasın istiyorum,
Teşekkürler şimdiden.

 

[Mahmut Bayram]

Private Sub Workbook_Open()
Static DateOpen1, DateOpen2 As Date
Static Check As Boolean
If Check = False Then
Check = True
DateOpen1 = DateSerial(2019, 5, 1)
DateOpen2 = DateSerial(2019, 6, 30)
End If
If Now >= DateOpen1 And Now <= DateOpen2 Then
Exit Sub
Else
MsgBox "Üzgünüm 01.05.2019-30.06.2019 tarihlerinde erişebilirsiniz.", vbCritical + vbOKOnly, "Kısıtlı Kullanım"
Application.Quit
End If
End Sub

 

[Orion1]

Makrolar devre dışı bırakıldığı zaman dosya açılır.

 

[butterflyist]

Kod:
Private Sub Workbook_Open()
Static DateOpen1, DateOpen2 As Date
Static Check As Boolean
If Check = False Then
Check = True
DateOpen1 = DateSerial(2019, 5, 1)
DateOpen2 = DateSerial(2019, 6, 30)
End If
If Now >= DateOpen1 And Now <= DateOpen2 Then
Exit Sub
Else
MsgBox "Üzgünüm 01.05.2019-30.06.2019 tarihlerinde erişebilirsiniz.", vbCritical + vbOKOnly, "Kısıtlı Kullanım"
Application.Quit
End If
End Sub

Makrosuz yapabileceğim bir yöntem yok sanırım makrolarla ilgili pek bir bilgim yok

 

[butterflyist]

Makrolar devre dışı bırakıldığı zaman dosya açılır.

Önerebileceğiniz başka bir yöntem var mıdır?

 

[Orion1]

O tarih geldiğinde dosyana şifre koy.Şifreyi bilmeyen açamaz.

 

[butterflyist]

dosyaya şifre nasıl koyuluyor

 

[Mahmut Bayram]

Dosya menüsünden sonra aşağıdaki resme bakınız.

 

[butterflyist]

Dosya menüsünden sonra aşağıdaki resme bakınız.

Öncelikle teşekkür ederim,

Private Sub Workbook_Open() Static DateOpen1, DateOpen2 As Date Static Check As Boolean If Check = False Then Check = True DateOpen1 = DateSerial(2019, 5, 1) DateOpen2 = DateSerial(2019, 6, 30) End If If Now >= DateOpen1 And Now <= DateOpen2 Then Exit Sub Else MsgBox "Üzgünüm 01.05.2019-30.06.2019 tarihlerinde erişebilirsiniz.", vbCritical + vbOKOnly, "Kısıtlı Kullanım" Application.Quit End If End Sub

bu şekilde makrosuz yapabileceğim bir yöntem yok sanırım?

 

[Mahmut Bayram]

AllahuAlem (Allah Bilir.)