kenmerken alleen lezen in vba zetten

[vrouw]

Hoi.

onderstaande code maakt deel uit van een module

With ThisWorkbook
.SaveAs ThisWorkbook.Path & "\" & [A1] & [A2] & ".xlt"
      .Close True
    End With

Nu zou ik graag willen dat het .xlt bestand gelijk als alleen lezen word opgeslagen.
Volgens mij moet dan deze regel erin maar het lukt mij niet om die erin te verwerken.
SetAttr ActiveWorkbook.FullName, vbReadOnly

 

[Hoornvan]

vrouw,

Dit heb ik met de macrorecorder opgenomen, misschien kun je er wat mee.

ActiveWorkbook.SaveAs Filename:="Path & "\" & [A1] & [A2] & ".xlt"", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=True, CreateBackup:=False

 

[vrouw]

Thanks Hoornvan,
maar bij mij word de tekst in rood aangegeven dus er gaat iets niet goed.

Ik heb er deze macro van gemaakt.

Sub tst()
With ActiveWorkbook
[COLOR="Red"]ActiveWorkbook.SaveAs Filename:="Path & "\" & [A1] & [A2] & ".xlt"", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=True, CreateBackup:=False[/COLOR]
End With
  End Sub

 

[Hoornvan]

vrouw,

Ik denk dat het misschien in het bovenste stukje code zit.
Opnieuw opgenomen en nu geeft hij geen foutmelding.

Sub tst()
  With ActiveWorkbook
    .SaveAs Filename:="E:\Mijn documenten\Excel\TestMap.xls", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=True, CreateBackup:=False
  End With
End Sub

 

[vrouw]

Lukt nog steeds niet hoor..
melding:
Run-time error 1004
method 'SaveAs' of object'_Workbook' failled

 

[Hoornvan]

vrouw,

Hier hou het voor mij dan op.

Probeer het anders ook eens met de macro recorder, zo heb ik het ook gedaan.

Suc6

 

[vrouw]

Heb jij daarna in de verkenner als je rechtsklik en eigenschappen kiest dan een vinkje staan bij alleen lezen?

 

[Hoornvan]

Ik heb gedaan;
Kies vvor opslaan als, bij het menu dat dan komt, gekozen bij opties / Algemene opties en daar een vinkje gezet bij Alleen lezen.

 

[Ginger]

Vrouw, Open 'ns een nieuw leeg workbook en sla die even op als bijvoorbeeld 'test.xls'. Zet dan deze code in een standaard module en laat 'm lopen.

Sub MaakReadOnly()

    SetAttr ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, vbReadOnly

End Sub

Kijk in de eigenschappen via de browser wat het resultaat van deze actie is....
Ik gok dat je zo een basis hebt om verder te komen!

Groet, Leo

 

[Hoornvan]

vrouw,

Ik heb nog even gezocht en dit gevonden.

 

[vrouw]

@ginger,

Ik had de hoop dat ik er inderdaad een basis maae had maar helaas....
Ik krijg hem niet in mijn code geintregeerd.

With ThisWorkbook
     [COLOR="Red"]SetAttr ActiveWorkbook.Path & "\" & [B2] & [b3] & ".xlt", vbReadOnly[/COLOR]
    Workbooks.Open "E:\!Downloads\test.xlt"
     Sheets("blad2").Select
    .Close True
     End With

Er word gevraagd hoe op te slaan en slaat nu niet meer automatisch op met de naam uit cel B2 en B3.
Excel stel nu test1(=sjabloon+1) voor maar is ook dan geen alleen lezen bestand.

 

[Ginger]

Ik heb nog even gezocht en dit gevonden.

grappig... daarmee is de circel weer rond...

Groet, Leo

 

[snb]

@Frank

Waarom gebruik je zoveel verschillende aliassen voor steeds dezelfde vragen?
Knarfje, Frix, Frixel, Vrouw ....

 

[Ginger]

Vrouw, Ik zie in je code dat je bezig bent met het opslaan van een .xlt. Dat is toch een template? Een template is in mijn beleving al een soort van 'read only' omdat je die altijd onder een andere naam (en extensie) moet opslaan.
Ik begrijp je bedoeling dus niet helemaal...

Groet, Leo

 

[vrouw]

@ginger,
Omdat er dmv deze templete door mij een een nieuwe template word gemaakt die door een ander gebruikt gaat worden als template.

Ik probeer die tweede template als alleen lezen te maken omdat er een code in komt te staan voor een datum in de .xls bestanden die van die tweede template gemaakt moeten worden.
Zie dit topic.

 

[Thoralf]

Hallo vrouw,

Bijgaand een map die altijd als Alleen Lezen beschikbaar komt en tevens bij het afsluiten niet vraagt om wijzigingen op te slaan (wat er in zou resulteren dat er een kopie van het bestand diende te worden opgeslagen). Wat niet is afgevangen, is dat er zolang het bestand geopend is in gewijzigd kan worden en er dan voor kan worden gekozen het onder een gewijzigde naam op te slaan.

 

[vrouw]

Bedankt Thoralf,
Maar hier kan ik geen template van maken denk ik want als dat doe en ik open het dan komen er foutmeldingen.

Ik kom op het punt om er maar het bijltje er bij neet te gooien want ik denk dat
a) of het niet kan wat ik wil.
b) ik niet duidelijk genoeg kan uitleggen wat mijn bedoeling is.

 

[Wigi]

Ik kom op het punt om er maar het bijltje er bij neet te gooien want ik denk dat
a) of het niet kan wat ik wil.
b) ik niet duidelijk genoeg kan uitleggen wat mijn bedoeling is.

c) Je 4 gebruikersnamen hanteert en ten minste 3 fora tegelijk.

 

[vrouw]

c) Je 4 gebruikersnamen hanteert en ten minste 3 fora tegelijk.

Dat is dan waarschijnlijk mijn man en die is met andere dingen bezig...
Mij gaat het hier om deze topic en de topic die ik hier eerder genoemd heb.

 

[Tardis]

Zie ook

http://office.webforums.nl/viewtopic.php?t=43026

Tardis