otevření sešitu pouze pro čtení(excel 2007)

[spespe]

Zdravim potřeboval bych jestli jde udělat makro ,aby při otevření sešitu a splnění určité podmínky se sešit otevřel pouze v režimu read only.
Vím jak ho otevřít rovnou v jen pro čtení,ale já nejdřív potřebuji vyhodnotit podmínku a až pak se rozhodnout zda otevřít normálně nebo jenom pro čtení.
Díky za rady, pokud se nějaký najdou

[cmuch]

A co jít na to obráceně, co když někdo nepovolí makra?
Mít od začátku sešit jen pro čtení a podle podmínky se rozhodnout zda ponechat pro čtení nebo změnit na pro zápis.

Kód: Vybrat vše

Private Sub Workbook_Open()

  If podminka <> neco Then

   With ActiveWorkbook
    SetAttr .FullName, vbNormal
    .ChangeFileAccess xlReadWrite
   End With
  End If
End Sub

Nebo to co chceš ty

Kód: Vybrat vše

Private Sub Workbook_Open()
  If podminka = neco Then
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
  End If
End Sub

[spespe]

Diky za rady, já věděl že mi tu pomůžete.