Gem som skrivebeskyttet

Ja, sådan her.
Du skal sætte WriteResPassword så kan man åbne filen som readonly uden password, men skal man redigere i den skal man have password.
Hvis man åbner som readonly er det ikke muligt at overskrive filen.

ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\tbc\My Documents\skrivebesk2.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="tbc", ReadOnlyRecommended:= _
        False, CreateBackup:=False

Fint nok, det virker....

men kan man så få den til at skrive i en

msgbox "Du har allerede gemt for denne uge!", vbCritical

i stedet for den der kommer op, med hjælp og alt muligt

Nix, ikke helt men næsten. Jeg kan ikke hindre 1. meddelelse.

indsæt denne i ThisWorkBook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.ReadOnly Then
    Cancel = True
    MsgBox "Du har allerede gemt i denne uge"
End If
End Sub

nåda, jeg kan se at du ikke har fået skrevet et svar her endnu...men hvis du vil ha point, er det nok en god idé :)

ok:-)

arg trykkede forkert!

ok, så prøver du da bare igen :-)))