ich speichere eine Datei mittels Makro und möchte, dass sie einen Schreibschutz erhält (es soll die Datei von mehereren Benutzern im Netz ohne Probleme gleichzeitig geöffnet werden können). Kann mir jemand ein Makro schreiben?
Daniel
ich speichere eine Datei mittels Makro und möchte, dass sie einen Schreibschutz erhält (es soll die Datei von mehereren Benutzern im Netz ohne Probleme gleichzeitig geöffnet werden können). Kann mir jemand ein Makro schreiben?
Daniel
Sub Makro1()
Dim Dateiname As String
Dateiname = InputBox("Name ?")
ActiveWorkbook.SaveAs FileName:=Dateiname, WriteResPassword:="Alex", ReadOnlyRecommended:=True
End Sub
VG,
Alex
sub schreibschutz()
ActiveWorkbook.SaveAs FileName:= _
"C:Eigene Dateien\Mappe1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="test", ReadOnlyRecommended:=False, _
CreateBackup:=False
end sub
gruß
Uwe
ich benötige kein Passwort. Bis jetzt mache ich es so, dass ich im Explorer mit der re. Maustaste auf die betreffende Datei klicke und in den Eigenschaften bei den Dateiattributen das Häkchen f. Schreibgeschützt aktiviere! Mehr nicht!
Daniel
Alex
und was ist der sinn bei so einem Schreibschutz ?
Ob du den hast oder in der Wüste kippt ein Eimer Sand um ;-)
gruß
Uwe