Niet opslaan

[Nicu]

Is het mogelijk om een excel bestand niet op te laten slaan door de gebruiker?
Ik heb een sheet waar foto's in moeten komen te staan, dit kan men zelf selecteren en daarna wordt dit uitgeprint, hierna mag het bestand worden afgesloten. Ik wil echter dat de beginwaarde er dan weer op staan, ik ken echter mijn collega's. Als ik met grote blokletters erbij zet dat men niet moet opslaan, wordt het toch gedaan.....
Hoop dat dit mogelijk is.

 

[jkpieterse]

Je zou een wachtwoord in kunnen stellen voor bewerken, dan opent het bestand alleen-lezen tenzij je het wachtwoord kent.

 

[Nicu]

ja maar het probleem is dat ze wel foto's moeten kunnen veranderen....

 

[jkpieterse]

Zonder dat wachtwoord kunnen ze je bestand alleen in alleen lezen openen en dus wel bewerken, maar niet opslaan over het origineel heen.

 

[Nicu]

Als ik objecten bewerken selecteer kan ik geen foto meer selecteren (via een script) en dat moet nog wel kunnen gebeuren, anders was dit een goede optie geweest....

 

[Cobbe]

Gebruik het BeforeSafe event om het bestand te sluiten voor het opslaan.

 

[Nicu]

Mooi, naar zoiets was ik opzoek, ga het morgen gelijk proberen. Thanks alweer Cobbe.

Gr. Nicu

 

[jkpieterse]

Je hebt het niet over dezelfde optie als ik, kies bestand, opslaan als, klik op Extra, kies "Algemene opties" en stel daar een wachtwoord voor schrijfbevoegdheid in.

 

[tkint]

@Cobbe,
Uit nieuwsgierigheid heb ik het event beforesave uitgeprobeerd maar je krijgt alsnog de mogelijkheid om het bestand op te slaan.

 

[Cobbe]

Zo ook nog?

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
ThisWorkbook.Close
End Sub

 

[snb]

Waarom niet de start beginnen met een kopie van een Excel bestand dat als sjabloon dienst doet ? (waarvoor zou dat anders bedacht zijn ?)

 

[tkint]

Beste,

Ik heb deze code in thisworkbook gezet :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("Je kan dit bestand niet opslaan. Het wordt gesloten")
Cancel = True
ThisWorkbook.Close
End Sub

Maar ik kan nog steeds opslaan. Mag ik de Application.DisplayAlerts op false instellen?

 

[jkpieterse]

@snb: Is ook een goede optie. Het enige nadeel hieraan dat ik zo snel kan bedenken is als mensen het bestand via hun Bestand, Recent gaan openen, dan loop je de kans dat het sjabloon zelf geopend wordt (en dus overschreven kan worden).

 

[Cobbe]

Moet ik de Application.DisplayAlerts op false instellen ? JA

 

[tkint]

Beste,

Op dit forum lees ik regelmatig dat je na het instellen van Application.DisplayAlerts op false dit op het einde van de sub opnieuw op true moet instellen.

 

[snb]

Dat is niet nodig. De instelling geldt slechts voor de duur van de procedure.

 

[Nicu]

Ik heb alles even bekeken, maar eigenlijk volstaat het voor mij om een sjabloon te maken. Hier had ik natuurlijk eerder aan kunnen denken

Bedankt allen

 

[tkint]

Beste,

Ik denk aan het volgende : hoe kan je een dergelijk bestand (die zichzelf afsluit bij het opslaan) aanbieden aan een gebruiker die het bestand kan openen en gebruiken en niet opslaan?
Is deze methode niet beter : bestand, opslaan als, klik op Extra, kies "Algemene opties" en stel daar een wachtwoord voor schrijfbevoegdheid in?