optie opslaan blokkeren

[patrickje]

Hoi kenners

Is er een code om mijn excel document te blokkeren tegen opslaan. Als die mogelijkheid bestaat zou het dan ook kunnen als men dit toch probeerd dat er dan een melding komt ??

M.V.G.

 

[wampier]

je kunt de event "workbookbeforesave" aanpassen en daarin een melding geven en het saven blokkeren. Let wel, dit is niet waterdicht tegen fraude en datadiefstal e.d. hoogstens om normaal gebruik te verhinderen.

 

[edmoor]

Dat kan.
Plaats in het ThisWorkbook object de volgende code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     
     MsgBox ("Opslaan niet toegestaan.")
     Cancel = True
     
End Sub

Edit:
Botsing met wampier

 

[patrickje]

Bedankt voor de snelle oplossing

Ga dit gelijk aanpassen om de ergenis weg te halen ;-)

 

[patrickje]

Ok deze code werkt alleen hoe kan ik de code opslaan in this workbook dat doet hij nu niet na invoeren van deze code

 

[wampier]

Hoe veilig moet het zijn?

Wat je kan doen:

bovenin je workbook definitie:

public nietsave as bool

daarna dit toeoegen:

private sub Workbook_Activate()
nietsave = true
end sub

vervolgens in je workbookbeforesave:

if nietsave = true then
<niet saven>
end if

kun je een keer snel saven, volgende keer dat het geopend wordt niet meer

 

[HSV]

Ok deze code werkt alleen hoe kan ik de code opslaan in this workbook dat doet hij nu niet na invoeren van deze code

Voeg de code toe in thisworkbook.
Zet de code in de onderbreking; Menu 'Uitvoeren'.
Sla het op.

 

[edmoor]

Kip/ei verhaal
Bovenstaande methodes zullen het wel oplossen.

 

[patrickje]

Voeg de code toe in thisworkbook.
Zet de code in de onderbreking; Menu 'Uitvoeren'.
Sla het op.

Waar kan ik dat vinden ??? ik ben geen echte kenner op vba gebied.

 

[HSV]

Voeg de code toe in thisworkbook.
Zet de code in de onderbreking; Menu 'Uitvoeren'.
Sla het op.

 

[patrickje]

Ik ben al een tijdje op zoek nu maar ik snap er niks van
Ik denk dat ik temoeilijk aan het denken (zoeken) ben
Kan je me verder helpen ????

 

[HSV]

Druk Alt+F11.
Menu Uitvoeren → Onderbreken.
Opslaan linksboven.
Ga terug naar Excel: Alt+Q of Alt+F11.
Sluiten.

 

[patrickje]

Dank je het werkt eindelijk

Ik was echt veel te moeilijk aan het zoeken