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

• #13397 Delila_1 veterán Mythunderboy #13396

  Új Válasz 2012-04-10 15:29:54 #13397

  Ú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 #13396 üzenetére

  A zaro változóban add meg a lejárat dátumát.

  Private Sub Workbook_Open()
  Dim lap%, zaro As Date
  zaro = "2012.04.15"
  
  If Date >= zaro 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 zaro - Date & " nap van még hátra!"
  Exit Sub
  End If
  End Sub

  ...és hogy ne kelljen a próbálgatásoknál egyenként feloldanod a lapvédelmeket, és a cellák zárolását:

  Sub Felold()
  Dim lap%
  For lap% = 1 To 5
  Sheets(lap%).Select
  ActiveSheet.Unprotect Password:="mmm"
  Cells.Locked = False
  Next
  End Sub

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