Opslaan beveiligen; wel opslaan als

[Inekebeu]

Goedenavond allen,

Ik wil mijn basisbestanden beveiligen tegen opslaan; de mensen moeten dus echt kiezen voor opslaan als.
Nu heb ik vanuit de diverse forumvragen het volgende bij elkaar gegraaid.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A50000") = "" Then Cancel = True
MsgBox "u mag niet opslaan, gebruik opslaan als"

End Sub

Met bovenstaande kun je echter ook niet 'opslaan als'. Kan iemand mij hiermee helpen.

Bij voorbaat dank.

Ineke

 

[Wigi]

Hier is alvast wat code. Het is nog niet perfect, maar wel een grote stap in de goede richting.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = Not SaveAsUI
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = Not ThisWorkbook.Saved
End Sub

Wigi

 

[NLPaPe]

Standaard functionaliteit Excel

Ineke,

Je kunt ook de standaard functionaliteit van Excel gebruiken. Ga naar Options via Tools en selecteer map Security. Daarin vind je de mogelijk Read-Only. Gebruikers die het bestand open krijgen dan een scherm te zien waarin ze het bestand met een password kunnen open om wijzigingen door te voeren. Of als Read-only op te starten. Zodra dit laatste gekozen wordt kunnen ze het bestand alleen saven onder een andere naam of op een andere locatie.

Paul.

 

[Wigi]

Goed gezien Paul. Is veel beter dan mijn oplossing.

 

[Inekebeu]

Wigi en Paul, hartelijk dank. Ga morgen gelijk al mijn basisbestanden beveiligen.

mvg
Ineke