|
SolidWorks : Schreibschutz aufheben
VBSpawn am 17.10.2006 um 07:56 Uhr (0)
Hallo,habt Ihr Unterschiedliche Berechtigungen auf dem Laufwerk?GrußMicha------------------Manche Menschen gehen so plötzlich, daß die Zeit für einen Abschied nicht reicht… Zitat:Interpunktion und Orthographie des Postings sind frei erfunden.Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 05.09.2006 um 08:02 Uhr (0)
Hi,Call filesystem.SetAttr("C: est.sldprt",vbNormal)entfernt den Schreibschutz, achte nur darauf das die Datei nicht geöffnet ist.GrußMicha------------------ http://classicvb.org/petition/ Zitat:Interpunktion und Orthographie des Postings sind frei erfunden.Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz für Tabelle???
VBSpawn am 11.11.2005 um 13:16 Uhr (0)
Hi,Bin mir niicht sicher ob es Funktioniert aber Versuch macht Klug .. Öffne deine XLS Tabelle und selektiere alle Zellen, klicke auf Zellen Formatieren - wähle Registerkarte Schutz und setzte den Haken Gesperrt falls er nicht bereits aktiv ist... Klicke dann im XLS Menü auf Extras Schutz - Blatt schützen ggf Passwort festlegen.Jetzt ist kein Schreibschutz mehr auf der Datei erforderlich und die Zellen können nicht mehr geändert werden was SWX nun macht ist wohl abzuwarten.GrußMicha------------------ Zit ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 06.09.2006 um 07:26 Uhr (0)
Hi und Moinalso beide Infos die du brauchst hast du schon erhalten1. http://ww3.cad.de/foren/ubb/Forum2/HTML/011054.shtml#000007 Aktiven Dateinamen eines slddrw ermitteln und gegen .dwg austauschen.2. http://ww3.cad.de/foren/ubb/Forum2/HTML/011054.shtml#000009 Schreibschutz entfernen falls einer vorhanden ist.bzgl Filenamen manuell eingeben usw. siehe einfach mal in der VB Hilfe: Thema Variable / Konstante oder auch Function / Strings zuweisen ect ... das sollte man generell verstehen wenn man mit VBA ar ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz für Tabelle???
VBSpawn am 11.11.2005 um 13:21 Uhr (0)
Immer gerne ;o)Gruß Micha------------------ Zitat:Interpunktion und Orthographie des Postings sind frei erfunden.Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der SW Datei auf CD
VBSpawn am 30.09.2008 um 16:08 Uhr (0)
Hallo Tommy,Dateien die sich auf CDs befinden sind immer Schreibgeschützt ......da eine normale CD nur einmal beschrieben werden kann.GrußMicha------------------Stell dir vor, es geht, und keiner kriegts hin. Zitat:Interpunktion und Orthographie des Postings sind frei erfunden.Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 05.09.2006 um 08:42 Uhr (0)
Zitat:Original erstellt von oma1:Danke schon mal, aber wie mache ich es, dass er mir den Namen der offenen Zeichnung ausliest, und dann das slddrw abschneidet, und dwg ranhängt ??Hallo mal wieder ... If Not Application.SldWorks.ActiveDoc Is Nothing Then If Application.SldWorks.ActiveDoc.GetType = 3 Then Debug.Print Replace(LCase(Application.SldWorks.ActiveDoc.GetPathName), ".slddrw", ".dwg") Else Debug.Print "Kein Drawing" End IfEnd IfGrußMicha------------------ http://classicvb.org/petition/ ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 05.09.2006 um 16:41 Uhr (0)
Hi,das hier dürfte eigentlich vollkommen ausreichen Dim sFilename As String Dim attr As VbFileAttribute sFilename = "C:eichnung2.idw" --------------------------------------- Fileexists On Error Resume Next attr = FileSystem.GetAttr(sFilename) If Err.Number = 53 Then Datei nicht gefunden Exit Sub ElseIf Err.Number 0 Then Fehler ?? Exit Sub ElseIf Err.Number = 0 Then Kein Fehler Datei Verzeichniss ist vorhanden End If On Error GoTo 0 -------------------------------- ...
|
| In das Form SolidWorks wechseln |
