Opslaan via menu balk beveiligen maar macro toestaan

[Neuz]

Hey allemaal,

Ik ben op dit moment bezig om een document te maken waar in verschillende personen moeten gaan werken. Om er geen chaos van te maken wil ik dat
het bestand onder een vaste naam wordt opgeslagen. Tot zo ver gaat alles nog goed dit heb ik namelijk opgelost via een macro.

Maar nu wil ik dat het knopje opslaan en opslaan als welke zijn te vinden in de menubalken van excel beveiligd/gedeactiveerd worden tegen het gebruik.

Ik gebruik op dit moment deze code om de opslag via de standaard knoppen te blokkeren.

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

Als het zou kunnen dezelfde optie ook voor het printen. De macro hiervoor is ook al reeds gemaakt en werkt.

Alvast bedankt.

Groet Neuz

 

[Neuz]

Tijdelijke oplossing

Beste allemaal,

Er is nog niet gereageerd op de vorige post maar ik ben zelf wel verder blijven zoeken.
Ik heb alleen nog niet de perfecte oplossing voor gevonden. Ik gebruik nu deze als tijdelijke
oplossing.

Ik denk post het even misschien hebben andere hier ook nog wat aan.

Voeg deze code toe aan thisWorkbook en alles gaat automatisch bij het openen en sluiten.

Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayStatusBar = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayStatusBar = True
End Sub

Status staat als opgelost maar is maar een tijdelijke oplossing.
Mocht iemand het juiste antwoord weten, post hem dan even aub