Moederbestand niet overschrijven

[Maik]

Op de zaak werken we met een moederbestand, de bedoeling is dat het bestand na bewerkt te zijn onder een andere naam opgeslagen wordt. Het komt echter te vaak voor dat het moederbestand overschreven wordt. Weet iemand of het mogelijk is om dit moederbestand tegen overschrijven te beveiligen? Het dient dus wel onder een andere naam opgeslagen te mogen worden.

 

[erbicom]

Kun je het bestand niet beveiligen tegen schrijven? Rechtermuisknop/tab beveiliging

 

[Jan van Asseldonk]

Enkele opties:

1. via opslaan als, opties. Alleen lezen aanbevolen aanzetten of een wachtwoord erop voor schrijfbevoegdheid.
2. bestand opslaan en de eigenschappen op alleen lezen zetten.
3. bestand in een directorie plaatsen waar de gebruiker alleen leesrechten heeft.
4. bestand opslaan als template.

 

[jpvs]

Of via VBA heb ik deze listing gevonden:

Maak eerst een Path van C:\test\ of verander in VBA het Path.

Bij het sluiten van het bestand komt er een MsgBox met de melding "Typ de document naam " klik op OK en de beide bestanden worden gesloten.

ThisWorkbook :
Private Sub Workbook_Open()
opslaan = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim naam As String
If opslaan Then
Do
naam = InputBox("Typ de documentnaam:")
Loop Until naam <> ""
ThisWorkbook.SaveAs "C:\test\" & naam & ".xls"
End If
End Sub


Module :
Public opslaan As Boolean
Sub nietOpslaan()
opslaan = False
ThisWorkbook.Close SaveChanges:=False
End Sub

Pierre

 

[Maik]

Opgelost, allemaal bedankt.