Fjern gem mulighed

Du kunne teste på "UserName" - og kun anvende ovenstående kode, hvis dette <> "udvikler"

og så velkommen til....

stop din kode, ved at markere en linje med en stop prik,( f.eks ved Cancel = True ).
Tryk på diskette for gem nu vil linjen blive markeret med gult og koden er så stoppet.
tryk så igen på disketten og mappen gemmes.

luk det hele ned og hent mappen igen, så skulle den være der.

Du kan fjerne muligheden for at gemme med disketteikonet i standard-værktøjslinjen og fra punktet Gem i menuen filer med en Workbook_Open event, samt bruge en BeforeSave event som den du bruger nu.

Hvis du laver rettelser og vil gemme dem, kan du bare 'lukke' filen på lukke-krydset i øverste højre hjørne i programvinduet. Det vil udløse standardspørgsmålet om du vil gemme ændringer. Tryk på ja, og filen gemmes med ændringer.

Det er noget sjusk at fjerne standard menupunkter eller ikoner uden at genindsætte dem når filen lukkes, derfor har du brug for en BeforeClose event der genindsætter dem igen.
Her er mit forslag:

Private Sub Workbook_Open()
    With Application
        .CommandBars("Worksheet Menu Bar").Controls("Filer").Controls("Gem").Enabled = False
        .CommandBars("Standard").Controls(3).Delete
    End With
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True
    MsgBox "FEJL - Du må ikke gemme denne som en fil. Du skal vælge Eksporter fra menuen - Data - XML"

    End If
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        .CommandBars("Worksheet Menu Bar").Controls("Filer").Controls("Gem").Enabled = True
        .CommandBars("Standard").Reset
    End With
End Sub

I stedet for bare en messagebox kan du også kalde en makro der dirigerer brugeren direkte til det ønskede menupunkt.

kabbak > Det var jo lige præcis det der skulle til for at få den kode til at virke. Super fedt.

Lægger du et svar, så jeg kan tildele dig point?

;-))