Geen macro voor read-only users

[Marrosi]

Beste HELP-MIJ-EXPERTS,

Ik heb een werkboek gemaakt dat gebruikt word door een groep mensen om te raadplegen (READ-ONLY) en door enkele anderen met bevoegdheid tot updaten (zij hebben uiteraard een paswoord).
Ik zou een macro willen schrijven die een MsgBox weergeeft alleen wanneer het werkboek ge-opend wordt door diegenen die kunnen updaten.
Zij met enkel READ-ONLY bevoegdheid krijgen dus geen MsgBox te zien.

Ik weet niet hoe ik dit moet aanpakken. Jullie wel?????

 

[Ingrid B]

Private Sub Workbook_Open()
  If Not ThisWorkbook.ReadOnly Then MsgBox "Update toegestaan"
End Sub

Kopieer de macro naar ThisWorkbook.

 

[Marrosi]

Ik wist niet dat het zo eenvoudig was.

Ingrid, jij bent Excel-lent!!!!