alleen lezen

[michielsprockel]

Hallo,


Als ik op de zaak als 2e persoon deze sheet open, staat er boven de statusregel <alleen-lezen> achter de naam van de sheet te zien. In deze alleen-lezen-modus kan normaal de 2e gebruiker de sheet niet opslaan zonder hem te hernoemen.
Omdat ik de sheet altijd via een macro opsla krijg ik wel de vraag of ik het originele bestand wil overschrijven.
Met de formule =CEL("bestandsnaam") krijg ik de bestandsnaam van de sheet in de betreffende cel te zien. Met welke formule of aanpassing (van =CEL("bestandsnaam")) krijg ik dit <alleen-lezen> wel als toevoeging in de betreffende cel te zien? Met die informatie kan ik dan automatisch laten bepalen of mijn macro het bestand dan wel of niet mag opslaan.

Wie kan mij daarmee helpen?
Alvast bedank.

Michiel

 

[Conseclusie]

Dit kun je ook in je macro afvangen:

If ThisWorkbook.ReadOnly = True Then

 

[SjonR]

zoiets in het workbook_event

Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then Range("A1").Value = "Alleen lezen"
End Sub

 

[edmoor]

Dan kan je beter controleren met:

If ActiveWorkbook.ReadOnly Then

 

[SjonR]

3 in één minuut.... Waar zie je dat tegenwoordig nog

 

[Conseclusie]

3 in één minuut.... Waar zie je dat tegenwoordig nog

Yess!! Ik win!

 

[edmoor]

Alleen bij de uitgebreide club van Helpmij :d

 

[michielsprockel]

Geweldig !!

Hallo Conseclusie, SjonR & edmoor,

Wat een service, hartelijk dank !!

Michiel