Melding Alleen lezen

[RobertHak]

Wie kan mij helpen met het volgende:


If ..............


Ik wil met VBA achterhalen of een bestand als "alleen lezen" geopend is.

Als dit het geval is dan wil ik een MSGBOX "Let op bestand is als alleen lezen geopend, uw wijzigingen kunnen niet bewaard worden"

dan wil ik dat de ok knop gekozen kan worden en men toch door kan gaan, of de cancel knop om te stoppen.

Else

End If

ga verder met code


Alvast bedankt

 

[Niels28]

Voor testen op readonly''

If ActiveWorkbook.ReadOnly = True Then

voorbeeld msgbox

ans = MsgBox("bestand is readonly" & vbCrLf & "Wilt u doorgaan?", vbYesNo + vbQuestion)  
if ans = vbno then exit sub

Niels

 

[Warme bakkertje]

Je hoeft niet noodzakelijk een variabele te gebruiken.

If MsgBox("bestand is readonly" & vbCrLf & "Wilt u doorgaan?", vbYesNo + vbQuestion) = vbno then exit sub

 

[RobertHak]

Bedankt voor de oplossing