Új hozzászólás Aktív témák

• #13399 Delila_1 veterán Mythunderboy #13398

  Új Válasz 2012-04-10 16:44:32 #13399

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Mythunderboy #13398 üzenetére

  Továbbra is a zaro változóba kell beírni, hány napig legyen érvényes a demo.
  Mivel az első megnyitás dátumát csak úgy lehet megjegyezni, ha a füzet tartalmazza, az első lap IV1 cellájába írattam be, hozzáadva a zaro értéket, ez adja a lejárat napját. Ha ez a cella üres (első megnyitás), akkor bekerül oda a lejárat dátuma.
  A további futtatásoknál megvizsgálja a makró, hogy az aktuális dátum >= IV1 értéknél. Ha igen, megy a védelem. Ha nem, jön a szöveg a hátralévő napok számával. Elég lenne az aktuális dátum = IV1 feltétel, de lehet, hogy aznap nem nyitják meg a fájlt.

  Private Sub Workbook_Open()
  Dim lap%, zaro As Date
  zaro = 5
  If Sheets(1).Cells(1, 256) = "" Then
  Sheets(1).Cells(1, 256) = Date + zaro
  Exit Sub
  End If
  
  If Date >= Sheets(1).Cells(1, 256) Or Date - Sheets(1).Cells(1, 256) = 0 Then
  For lap% = 1 To 5
  Sheets(lap%).Select
  Cells.Locked = True
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
  Scenarios:=True, Password:="mmm"
  Next
  MsgBox "Megmondtam!"
  Else
  MsgBox (Date - Sheets(1).Cells(1, 256)) * -1 & " nap van még hátra!"
  End If
  Sheets(1).Select
  End Sub

Új hozzászólás Aktív témák