låse ark efter bestemt tid

Sub OpretMandagsark()

    Sheets("Ark1").Copy After:=Sheets(1)
    If Weekday(Date) = 2 Then
    ActiveSheet.Name = "Uge " & Format(Date, "ww", vbMonday, vbFirstFourDays)
  On Error GoTo IngenGammel
 
  ' **********fjerner formler og låser arket for forrige uge
    Sheets("Uge " & Format((Date - 7), "ww", vbMonday, vbFirstFourDays)).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Uge 30").Select
      Range("A1").Select
        Application.CutCopyMode = False
IngenGammel:

    Sheets("Uge " & Format(Date, "ww", vbMonday, vbFirstFourDays)).Select
    Range("A1").Select
    Else
    MsgBox " Kan kun køres om Mandagen"
  End If
End Sub

Det ser godt ud..... men er der ikke en måde som sikre at der ikke oprettes et ark, hvis man kommer til at køre macroen 2 gange på en mandag?

Sub OpretMandagsark()
For Each Ws In Worksheets
If Ws.Name = "Uge " & Format(Date, "ww", vbMonday, vbFirstFourDays) Then
MsgBox " Arket er oprettet"
Exit Sub
End If
Next

    Sheets("Ark1").Copy After:=Sheets(1)
    If Weekday(Date) = 2 Then
    ActiveSheet.Name = "Uge " & Format(Date, "ww", vbMonday, vbFirstFourDays)
  On Error GoTo IngenGammel
 
  ' **********fjerner formler og låser arket for forrige uge
    Sheets("Uge " & Format((Date - 7), "ww", vbMonday, vbFirstFourDays)).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Uge 30").Select
      Range("A1").Select
        Application.CutCopyMode = False
IngenGammel:

    Sheets("Uge " & Format(Date, "ww", vbMonday, vbFirstFourDays)).Select
    Range("A1").Select
    Else
    MsgBox " Kan kun køres om Mandagen"
  End If
End Sub

hvordan går det. ?

efter lidt roden med det, har jeg fået det til at virke....så smid et svar

Et svar ;-))