Wijzigingen zijn mogelijk in Excel bestand voor accepteren macro's!

[raimond2014]

Beste mensen,

Voor mijn werk ben ik een Excel sheet aan het beveiligen (Excel 2010).
Het doel is dat informatie in het bestand wel kan worden gesorteerd, gefilteerd, maar niet kan worden gewijzigd.
Nu werkt dat allemaal wel, maar....alleen als de macro's worden geaccepteerd bij het opstarten. Vóór acceptatie kun je echter alle informatie in het bestand wijzigen, kopieren, etc....
Dat was dus net niet de bedoeling!

Heeft iemand een oplossing? Dit is trouwens de vba code die ik gebruik:

Private Sub Workbook_Open()
Dim x As Long

For x = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(x)
.Protect Password:="fietsbel", userinterfaceonly:=True
.EnableOutlining = True
.EnableAutoFilter = True
End With
Next

End Sub

 

[Joske2000]

Alle bladen op xlveryhidden plaatsen bij het afsluiten, zodat de gebruiker bij het openen alleen één leeg blad te zien krijgt.
Pas bij het accepteren van de macro's moet je de bladen pas opnieuw op xlveryhidden = false plaatsen.

Groet,

Joske

 

[Joske2000]

Hierbij een setup :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For x = 2 To ActiveWorkbook.Sheets.Count
        MsgBox x
        ActiveWorkbook.Sheets(x).Visible = xlVeryHidden
    Next
End Sub

Dit plaats je bij in je workbook_open module :

Private Sub Workbook_Open()
    For x = 2 To ActiveWorkbook.Sheets.Count
        MsgBox x
        ActiveWorkbook.Sheets(x).Visible = True
    Next
End Sub

Het meest linkse blad moet altijd zichtbaar blijven, maar dat kan een blad zijn waar je bv een melding op plaatst dat de macro's moeten aanvaard worden !

Groet,

Joske