Nedtelling

[Linea]

Hvordan lager jeg en makro som låser et ark når en bestemt dato kommer, men først skal brukeren få en melding om at for eks. 14 – 13 – 12..... dager vil arket bli låst (nedtelling for hver dag fra dag 14).

[Cerwell]

Hei

Her er ett forslag:

 

Dim strDay As String

Private Sub Workbook_Open()

 

'Lagring av sluttdato:

If GetSetting(ThisWorkbook.Name, "Settings", "Date") = "" Then

 

SaveSetting ThisWorkbook.Name, "Settings", "Date", DateAdd("d", 14, Date)

 

End If

 

'Hente dato:

strDay = DateDiff("d", Date, GetSetting(ThisWorkbook.Name, "Settings", "Date"))

 

 

'Drepe eller ikke:

If strDay < 0 Then

 

MsgBox "Sorry": ThisWorkbook.Close

 

Else

 

MsgBox strDay & " Dager igjen."

 

End If

 

End Sub